马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..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还有更多的扩展,可以用存储过程,数据库大小无极限限制。 |