- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
- 8百度安全衛士好用么_百度安全衛士技巧說明
- 9Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 10Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 11ipad版office如何激活? office365激活的圖文說明教程
- 12最新的Adobe Illustrator CS4序列號大全
[摘要]<% Option Explicit %><HTML><HEAD><TITLE>利用OWC畫圖的例子</TITLE><!-- #include virtual="/include/adovbs.inc" --&g...
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>利用OWC畫圖的例子</TITLE>
<!-- #include virtual="/include/adovbs.inc" -->
<%
Function ExportChartToGIF(objCSpace, strAbsFilePath, strRelFilePath)
Dim strFileName
Randomize
strFileName = Timer & Rnd & ".gif"
objCSpace.ExportPicture strAbsFilePath & "\" & strFileName, "gif", 600, 350
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">
<%
dim objChartSpace
dim objChart
dim objSeries
dim objConn
dim objRS
dim c
dim series
dim strChartAbsPath
dim strChartRelPath
dim strChartFile
strChartAbsPath = Server.MapPath("/mypath/temp")
strChartRelPath = "temp"
set objChartSpace = Server.CreateObject("OWC.Chart")
set objChart = objChartSpace.Charts.Add()
set c = objChartSpace.Constants
objChart.Type = c.chChartTypeLineMarkers
objChart.HasLegend = True
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "provider=sqloledb;data source=myserver;initial catalog=testdb;user id=myuid;password=mypswd;"
set objRS = Server.CreateObject("ADODB.Recordset")
set objRS.ActiveConnection = objConn
objRS.CursorType = adOpenStatic
objRS.CursorLocation = adUseClient
objRS.Open "select * from testscore order by test"
set objChartSpace.DataSource = objRS
objChart.SetData c.chDimSeriesNames, 0, "student"
for each objSeries in objChart.SeriesCollection
objSeries.SetData c.chDimCategories, 0, "test"
objSeries.SetData c.chDimValues, 0, "score"
next
for each axis in objChart.Axes
axis.HasTitle = True
if axis.Type = c.chCategoryAxis then
axis.Title.Caption = "Test"
else
axis.Title.Caption = "Score"
end if
next
objChart.SeriesCollection(2).Interior.Color = "red"
objChart.SeriesCollection(2).Line.Color = "red"
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
%>
</BODY>
</HTML>
標簽：運用OWC畫圖的例子
推薦資訊 總人氣榜
最新教程 本月人氣
- 1微賣綁定銀行卡圖文說明教程 新浪微賣如何綁定銀行卡步驟
- 2手機yy沒聲音如何辦？手機yy說話沒聲音處理方法
- 3搜狐視頻免流量看世界杯方法 搜狐視頻客戶端免流量看世界杯詳情
- 4360電視助手如何用？360電視助手tv版/手機版使用圖文說明教程
- 5手機百度云如何看片？手機百度云看電影/電視劇視頻圖文說明教程
- 6安卓模擬器分辨率更改設置圖文說明教程 bluestacks分辨率更改器使用圖文說明教程
- 7游戲優化大師游戲桌面如何用？游戲桌面工具使用圖文說明教程
- 8騰訊實時公交如何？好用嗎？騰訊實時公交技巧評測
- 9安卓模擬器窗口大小設置方法 bluestacks屏幕大小調整步驟
- 10明星衣櫥PC版下載安裝圖文說明教程(附明星衣櫥PC版下載)
- 11西瓜影音如何？好用嗎？西瓜影音技巧評測(附下載)
- 12烏鴉app如何用？烏鴉app使用方法(附下載)
- 1防范PPTV網絡電視偷跑P2P流量的方法_pptv網絡電視_下載之家
- 217app如何注冊 17app注冊方法流程
- 3Cool Edit提示：resample.xfm文件失去怎么辦？
- 4愛奇藝會員號共享（更新日期：2016年9月28日）
- 5用XML與ASP完成購物車
- 6remoteview如何用？remoteview使用方法
- 7百度搶票寶驗證碼不顯示如何辦？百度搶票不顯示驗證碼處理方法
- 8人生日歷搶票如何用？人生日歷搶票插件使用圖文說明教程
- 9柚子相機如何用？柚子相機使用方法
- 10搜狗輸入法如何設置快捷鍵？搜狗輸入法設置快捷鍵圖文說明教程
- 11隨星播如何直播？隨星播直播圖文說明教程
- 12隨星播如何設置？騰訊隨星播設置圖文說明教程
