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

只看该作者 · 发表于 2015-2-16 00:27:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

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

CHART.ASP法式。

<% Option Explicit %>

<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

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块