再见西城 发表于 2015-2-16 00:27:04

ASP网页编程之在阅读器中静态显示图形(使用owc)

Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。静态|阅读器|图形|显示   人人在编写ASP法式的时分,能够要对各类目标以图形的体例显示出来。假如仅仅是柱状图,可以采取画表格的办法。很多投票法式多采取这类办法。假如是饼状图或从数据库中检索数据后再显示,就有些坚苦了.举措也有,本人可以封装excel来完成上述功效,或用deiphi做一个activeform传入参数,或用php来写,java也能够。固然,用一个对照成熟的图形组件来完成更好一些。microsoft office web compoent十分不错。我在开辟一个项目标时分,用到了这个组件。

CHART.ASP法式。

<% Option Explicit %>
<!--#include file="adovbs.inc"-->
<HTML>
<HEAD>
<TITLE>柱状图的例子</TITLE>
<%
Function ExportChartToGIF(objCSpace, strAbsFilePath, strRelFilePath)
Dim strFileName
Randomize
strFileName = Timer & Rnd & ".gif"
objCSpace.ExportPicture strAbsFilePath & "\" & strFileName, "gif", 650, 400
ExportChartToGIF = strRelFilePath & "/" & strFileName
End Function

Sub CleanUpGIF(GIFpath)
Dim objFS
Dim objFolder
Dim gif
set objFS = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(GIFpath)
for each gif in objFolder.Files
if instr(gif.Name, ".gif") > 0 and
DateDiff("n", gif.DateLastModified, now) > 10 then
objFS.DeleteFile GIFpath & "\" & gif.Name, True
end if
next
set objFolder = nothing
set objFS = nothing
End Sub

%>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<div align="center">
<br>
<br>
<%
dim sj1,sj2
sj1=Request.QueryString("s1")
sj2=Request.QueryString("s2")

dim objChartSpace
dim objChart
dim objSeries
dim objConn
dim objRS
dim c
dim series
dim strChartAbsPath
dim strChartRelPath
dim strChartFile
dim axis

strChartAbsPath = Server.MapPath("/xjsi-web/dcss/chart")
strChartRelPath = "/xjsi-web/dcss/chart"
'设置组件

set objChartSpace = Server.CreateObject("OWC.Chart")
set objChart = objChartSpace.Charts.Add
set c = objChartSpace.Constants

objChartSpace.Border.Color="red"
'以柱状图显示
objchart.type=1
objChart.HasLegend = True'是不是显示图例
objChartSpace.HasChartSpaceTitle=true '显示题目
objChartSpace.ChartSpaceTitle.Caption ="柱状图的例子利用office web组件--www.ourfly.com中文手艺网站"
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open application("strconn")
set objRS = Server.CreateObject("ADODB.Recordset")
set objRS.ActiveConnection = objConn
objRS.CursorType = adOpenStatic
objRS.CursorLocation = adUseClient
objRS.Open "select dwsj,sum(jfrs) as jfrs
from dcss_do_jfgcfxb where dwsj>='"&sj1&"' and dwsj<'"&sj2&"'
group by dwsj order by dwsj asc"

set objChartSpace.DataSource = objRS
'显示图例内容
objChart.SetData c.chDimSeriesNames, 0, "jfrs"
for each objSeries in objChart.SeriesCollection
objSeries.SetData c.chDimCategories, 0, "dwsj"
objSeries.SetData c.chDimValues, 0, "jfrs"
next

for each axis in objChart.Axes
axis.HasTitle = True
if axis.Type = c.chCategoryAxis then
axis.Title.Caption = "月份"
else
axis.Title.Caption = "人数"
end if
next

strChartFile = ExportChartToGIF(objChartSpace, strChartAbsPath, strChartRelPath)
Response.Write "<IMG SRC=""" & strChartFile & """>" & "<P>"
CleanUpGIF strChartAbsPath

objRS.Close
set objRS = nothing
set objConn = nothing
set objSeries = nothing
set objChart = nothing
set objChartSpace = nothing
%>
</div>
</BODY>
</HTML>
利用这个组件的注重事项:
1。在office2000的光盘上,有一个msowc.msi的可履行文件.OK
2。建议人人用visual interdev6.0开辟,代码的主动提醒功效此时会发扬出极大的感化。

后果图以下:

</p>asp可以使用微软的activeX 使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般

再现理想 发表于 2015-2-16 02:50:28

ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。

莫相离 发表于 2015-3-1 22:29:01

那么,ASP.Net有哪些改进呢?

分手快乐 发表于 2015-3-11 00:08:05

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。

爱飞 发表于 2015-3-11 00:48:06

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。

小女巫 发表于 2015-3-17 17:08:38

在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。

飘飘悠悠 发表于 2015-3-24 12:38:49

那么,ASP.Net有哪些改进呢?

只想知道 发表于 2015-3-25 03:38:05

从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了

透明 发表于 2015-4-3 15:26:13

交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。

若天明 发表于 2015-4-8 12:44:49

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

深爱那片海 发表于 2015-4-16 10:45:38

不能只是将它停留在纸上谈兵的程度上。

谁可相欹 发表于 2015-4-16 12:09:25

Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write

飘灵儿 发表于 2015-5-2 06:17:14

最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。

小妖女 发表于 2015-6-9 22:57:01

那么,ASP.Net有哪些改进呢?

愤怒的大鸟 发表于 2015-6-12 09:24:04

接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。

小魔女 发表于 2015-6-14 20:13:42

Session:这个存储跟客户端会话过程的数据,默认20分钟失效

若相依 发表于 2015-6-17 13:54:49

Session:这个存储跟客户端会话过程的数据,默认20分钟失效

山那边是海 发表于 2015-6-20 04:47:34

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

变相怪杰 发表于 2015-6-26 04:17:13

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

冷月葬花魂 发表于 2015-7-12 21:54:56

哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
页: [1] 2
查看完整版本: ASP网页编程之在阅读器中静态显示图形(使用owc)