海妖 发表于 2015-1-16 23:18:44

ASP网页编程之使用OWC绘图的例子

源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码<%OptionExplicit%>
<HTML>
<HEAD>
<TITLE>使用OWC绘图的例子</TITLE>
<!--#includevirtual="/include/adovbs.inc"-->
<%
FunctionExportChartToGIF(objCSpace,strAbsFilePath,strRelFilePath)
DimstrFileName
Randomize
strFileName=Timer&Rnd&".gif"
objCSpace.ExportPicturestrAbsFilePath&""&strFileName,"gif",600,350
ExportChartToGIF=strRelFilePath&"/"&strFileName
EndFunction

SubCleanUpGIF(GIFpath)
DimobjFS
DimobjFolder
Dimgif
setobjFS=Server.CreateObject("Scripting.FileSystemObject")
setobjFolder=objFS.GetFolder(GIFpath)
foreachgifinobjFolder.Files
ifinstr(gif.Name,".gif")>0andDateDiff("n",gif.DateLastModified,now)>10then
objFS.DeleteFileGIFpath&""&gif.Name,True
endif
next
setobjFolder=nothing
setobjFS=nothing
EndSub

%>
</HEAD>
<BODYBGCOLOR="#FFFFFF">
<%
dimobjChartSpace
dimobjChart
dimobjSeries
dimobjConn
dimobjRS
dimc
dimseries
dimstrChartAbsPath
dimstrChartRelPath
dimstrChartFile
strChartAbsPath=Server.MapPath("/mypath/temp")
strChartRelPath="temp"

setobjChartSpace=Server.CreateObject("OWC.Chart")
setobjChart=objChartSpace.Charts.Add()
setc=objChartSpace.Constants

objChart.Type=c.chChartTypeLineMarkers
objChart.HasLegend=True

setobjConn=Server.CreateObject("ADODB.Connection")
objConn.Open"provider=sqloledb;datasource=myserver;initialcatalog=testdb;userid=myuid;password=mypswd;"
setobjRS=Server.CreateObject("ADODB.Recordset")
setobjRS.ActiveConnection=objConn
objRS.CursorType=adOpenStatic
objRS.CursorLocation=adUseClient
objRS.Open"select*fromtestscoreorderbytest"
setobjChartSpace.DataSource=objRS
objChart.SetDatac.chDimSeriesNames,0,"student"
foreachobjSeriesinobjChart.SeriesCollection
objSeries.SetDatac.chDimCategories,0,"test"
objSeries.SetDatac.chDimValues,0,"score"
next

foreachaxisinobjChart.Axes
axis.HasTitle=True
ifaxis.Type=c.chCategoryAxisthen
axis.Title.Caption="Test"
else
axis.Title.Caption="Score"
endif
next

objChart.SeriesCollection(2).Interior.Color="red"
objChart.SeriesCollection(2).Line.Color="red"

strChartFile=ExportChartToGIF(objChartSpace,strChartAbsPath,strChartRelPath)
Response.Write"<IMGSRC="""&strChartFile&""">"&"<P>"
CleanUpGIFstrChartAbsPath

objRS.Close
setobjRS=nothing
setobjConn=nothing
setobjSeries=nothing
setobjChart=nothing
setobjChartSpace=nothing
%>
</BODY>
</HTML>

</p>因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。

因胸联盟 发表于 2015-1-19 21:33:50

学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:

活着的死人 发表于 2015-1-24 17:46:39

学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:

乐观 发表于 2015-1-26 21:51:20

ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:

灵魂腐蚀 发表于 2015-2-4 20:40:59

以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。

不帅 发表于 2015-2-10 08:11:44

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

透明 发表于 2015-3-1 04:11:37

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。

分手快乐 发表于 2015-3-10 12:32:31

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

仓酷云 发表于 2015-3-17 06:58:36

Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")

小魔女 发表于 2015-3-24 00:33:16

接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
页: [1]
查看完整版本: ASP网页编程之使用OWC绘图的例子