使用OWC畫圖的例子

發(fā)表時(shí)間：2024-05-22 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]<% Option Explicit %><HTML><HEAD><TITLE>利用OWC畫圖的例子</TITLE><!-- #include virtual="/include/adovbs.inc" --&g...

<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>利用OWC畫圖的例子</TITLE>

<%
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>

標(biāo)簽：運(yùn)用OWC畫圖的例子

上一篇：Java 理論與實(shí)戰(zhàn): 對于異常的爭論

下一篇：復(fù)雜檢索數(shù)據(jù)并分頁顯示的處理方法

文章發(fā)布全站軟件文章熱門搜索：網(wǎng)絡(luò) 添加 QQ號碼設(shè)置字體顏色歌詞資訊首頁騰訊視頻愛奇藝暴風(fēng)影音酷狗音樂酷我音樂影音大全軟件下載軟件教程電腦系統(tǒng)下載聊天工具辦公軟件殺毒教程系統(tǒng)工具圖形圖像電腦學(xué)習(xí)應(yīng)用軟件網(wǎng)絡(luò)軟件蘋果應(yīng)用注冊碼網(wǎng)站教程技術(shù)開發(fā)安卓教程其它教程您當(dāng)前所在位置：網(wǎng)視手游站 -> 網(wǎng)站教程 -> 使用OWC畫圖的例子
使用OWC畫圖的例子發(fā)表時(shí)間：2024-05-22 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣： [摘要]<% 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> 標(biāo)簽：運(yùn)用OWC畫圖的例子上一篇：Java 理論與實(shí)戰(zhàn): 對于異常的爭論下一篇：復(fù)雜檢索數(shù)據(jù)并分頁顯示的處理方法	推薦資訊總?cè)藲獍?/span> 1PS提示：因?yàn)閳D層已鎖定，無法編輯圖層的處理方法 2Adobe Illustrator CS5 序列號大全 3picacg蘋果版怎么找不到\|picacg ios版是不是下架了介紹 4ACDsee注冊碼免費(fèi)分享（含ACDsee18、ACDsee10等版本） 5蘋果iphone自動(dòng)時(shí)間不準(zhǔn)確的多種校正方法 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細(xì)教程 7眼萌app怎么色弱測試眼萌app色弱測試圖文說明教程 8百度安全衛(wèi)士好用么_百度安全衛(wèi)士技巧說明 9Potato(馬鈴薯聊天)怎么注冊不了\|Potato不能注冊處理方法介紹 10Potato(土豆聊天)怎么換頭像\|Potato app更改頭像方法介紹 11ipad版office如何激活? office365激活的圖文說明教程 12最新的Adobe Illustrator CS4序列號大全 1css3里如何顯示圓形圖片 2支付寶怎么交學(xué)費(fèi)，支付寶教育繳費(fèi)圖文說明教程 3京東微笑面單是什么，京東微笑快遞單有什么用 4高鐵兒童票網(wǎng)上怎么買，網(wǎng)上買高鐵兒童票具體流程 5提高谷歌聯(lián)盟Adsense收入4種方法 6GG廣告申請 7百度減少收錄是什么原因？ 8穩(wěn)定網(wǎng)站排名的隱秘：百度優(yōu)先級算法 9百度降權(quán)并不可怕 10新手誤區(qū)：揭露seo反鏈工具的真實(shí)面目 11我的建站經(jīng)驗(yàn)，網(wǎng)站與百度關(guān)系 12淺談增加網(wǎng)站外部鏈接的方法最新教程本月人氣 1微賣綁定銀行卡圖文說明教程新浪微賣如何綁定銀行卡步驟 2手機(jī)yy沒聲音如何辦？手機(jī)yy說話沒聲音處理方法 3搜狐視頻免流量看世界杯方法搜狐視頻客戶端免流量看世界杯詳情 4360電視助手如何用？360電視助手tv版/手機(jī)版使用圖文說明教程 5手機(jī)百度云如何看片？手機(jī)百度云看電影/電視劇視頻圖文說明教程 6安卓模擬器分辨率更改設(shè)置圖文說明教程 bluestacks分辨率更改器使用圖文說明教程 7游戲優(yōu)化大師游戲桌面如何用？游戲桌面工具使用圖文說明教程 8騰訊實(shí)時(shí)公交如何？好用嗎？騰訊實(shí)時(shí)公交技巧評測 9安卓模擬器窗口大小設(shè)置方法 bluestacks屏幕大小調(diào)整步驟 10明星衣櫥PC版下載安裝圖文說明教程(附明星衣櫥PC版下載) 11西瓜影音如何？好用嗎？西瓜影音技巧評測(附下載) 12烏鴉app如何用？烏鴉app使用方法(附下載) 1防范PPTV網(wǎng)絡(luò)電視偷跑P2P流量的方法_pptv網(wǎng)絡(luò)電視_下載之家 217app如何注冊 17app注冊方法流程 3Cool Edit提示：resample.xfm文件失去怎么辦？ 4愛奇藝會(huì)員號共享（更新日期：2016年9月28日） 5用XML與ASP完成購物車 6remoteview如何用？remoteview使用方法 7百度搶票寶驗(yàn)證碼不顯示如何辦？百度搶票不顯示驗(yàn)證碼處理方法 8人生日歷搶票如何用？人生日歷搶票插件使用圖文說明教程 9柚子相機(jī)如何用？柚子相機(jī)使用方法 10搜狗輸入法如何設(shè)置快捷鍵？搜狗輸入法設(shè)置快捷鍵圖文說明教程 11隨星播如何直播？隨星播直播圖文說明教程 12隨星播如何設(shè)置？騰訊隨星播設(shè)置圖文說明教程
相關(guān)文章在asp.net中為Web用戶控件添加屬性與事件哈哈寫了個(gè)新的二文件上傳！才30行代碼啊。很容易看懂……支持多文件。破除java神話之線程按優(yōu)先級喚醒 Raw Socket（原始套接字）完成Sniffer（嗅探） JSP學(xué)習(xí)心得 PHP腳本的10個(gè)技巧(3) ASP 3.0高級編程（14） Java嵌入式開發(fā)講座（第3講）網(wǎng)絡(luò)數(shù)據(jù)庫設(shè)計(jì)基礎(chǔ) 通過JSP的預(yù)編譯消除性能瓶頸通過JSP的預(yù)編譯消除性能瓶頸 ASP 3.0高級編程（10）

六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

使用OWC畫圖的例子

推薦資訊 總?cè)藲獍?/span>

最新教程 本月人氣

相關(guān)文章

推薦資訊總?cè)藲獍?/span>

最新教程本月人氣