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

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

對于客戶端用ASP參生報表

發表時間：2024-02-25 來源：明輝站整理相關軟件相關文章人氣：

[摘要]先貼一篇較簡單的用ASP＋RDS客戶端參生報表 此文希望能進精華篇下一回貼一篇較復雜的說明：(若提示ActiveX 元件無法參生 RDS.DataSpace)IE需設置安全選項操作：菜單工具->INTERNET選項->安全性->自定義 設置 起始但ActiveX不標示為安全-&g...
先貼一篇較簡單的用ASP＋RDS客戶端參生報表
此文希望能進精華篇
下一回貼一篇較復雜的
說明：(若提示ActiveX 元件無法參生 RDS.DataSpace)
IE需設置安全選項
操作：菜單工具->INTERNET選項->安全性->自定義
設置 起始但ActiveX不標示為安全->開啟
<html>
<head>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<title>client use rds produce excel report</title>
<link rel="stylesheet" href="cdutmenu/common.css">
</head>
<body bgColor=skyblue topMargin=5 leftMargin="20" oncontextmenu="return false" rightMargin=0 bottomMargin="0">

<div align="center"><center>
<table border="1" bgcolor="#ffe4b5" style="HEIGHT: 1px; TOP: 0px" bordercolor="#0000ff">
<tr>
<td align="middle" bgcolor="#ffffff" bordercolor="#000080">
<font color="#000080" size="3">
client use rds produce excel report
</font>
</td>
</tr>
</table>
</div>

<form action="long.asp" method="post" name="myform">
<DIV align=left>
<input type="button" value="Query Data" name="query" language="vbscript" onclick="fun_excel(1)" style="HEIGHT: 32px; WIDTH: 90px">
<input type="button" value="Clear Data" name="Clear" language="vbscript" onclick="fun_excel(2)" style="HEIGHT: 32px; WIDTH: 90px">
<input type="button" value="Excel Report" name="report" language="vbscript" onclick="fun_excel(3)" style="HEIGHT: 32px; WIDTH: 90px">
</div>
<DIV id="adddata"></div>
</form>
</body>
</html>

<script language="vbscript">
sub fun_excel(t)
Dim rds,rs,df
dim strCn,strSQL,StrRs
Dim xlApp, xlBook, xlSheet1

'use rds to produce client recordset
set rds = CreateObject("RDS.DataSpace")
Set df = rds.CreateObject("RDSServer.DataFactory","http://server name")
'the connection string to sql server to query database:pubs--->table:jobs
strCn="DRIVER={SQL Server};SERVER=server name;UID=sa;APP=Microsoft Development Environment;DATABASE=pubs;User Id=sa;PASSWORD=;"
'the query string of sql
strSQL = "Select top 8 * from jobs order by job_id"
'the recordset
Set rs = df.Query(strCn, strSQL)

if t=1 then
if not rs.eof then
StrRs="<table border=1><tr><td>job_id</td><td>job_desc</td><td>max_lvl</td><td>min_lvl</td></tr><tr><td>"+ rs.GetString(,,"</td><td>","</td></tr><tr><td>"," ") +"</td></tr></table>"
adddata.innerHTML=StrRs
StrRs=""
else
msgbox "No data in the table!"
end if
elseif t=2 then
StrRs=""
adddata.innerHTML=StrRs
elseif t=3 then
Set xlApp = CreateObject("EXCEL.APPLICATION")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet1 = xlBook.Worksheets(1)
xlSheet1.cells(1,1).value ="the job table "
xlSheet1.range("A1:D1").merge
xlSheet1.cells(2,1).value = "job_id"
xlSheet1.cells(2,2).value = "job_desc"
xlSheet1.cells(2,3).value = "max_lvl"
xlSheet1.cells(2,4).value = "min_lvl"
cnt = 3
'adapt to office 97 and 2000
do while not rs.eof
xlSheet1.cells(cnt,1).value = rs("job_id")
xlSheet1.cells(cnt,2).value = rs("job_desc")
xlSheet1.cells(cnt,3).value = rs("max_lvl")
xlSheet1.cells(cnt,4).value = rs("min_lvl")
rs.movenext
cnt = cint(cnt) + 1
loop
xlSheet1.Application.Visible = True

'adapt to office 2000 only
'xlSheet1.Range("A3").CopyFromRecordset rs
'xlSheet1.Application.Visible = True
end if
end sub
</script>
主站蜘蛛池模板： 亚洲欧洲精品视频在线观看 | 亚洲综合色婷婷六月丁香 | 日操夜干 | 在线h观看 | 亚洲视频精品在线 | 永久在线观看www免费视频 | 天天澡夜夜澡人人澡 | 亚洲不卡在线播放 | 青青青爽在线视频观看大全 | 在线天堂中文在线网 | 色婷婷精品综合久久狠狠 | 亚洲欧美日韩图片 | 日本夜夜操 | 香蕉视频在线观看免费国产婷婷 | 亚洲欧洲精品一区二区三区 | 中文字幕一区波多野结衣 | 青草视频在线看 | 日韩中文字幕精品免费一区 | 在线成人国产 | 天堂最新在线资源 | 欧美一级网 | 日韩专区亚洲精品欧美专区 | 亚洲 欧美 综合 | 呦呦国产 | 日韩中字在线 | 日韩高清在线免费观看 | 全黄性高视频 | 日本爱爱小视频 | 夜鲁鲁鲁夜夜综合视频欧美 | 在线观看亚洲免费 | 瑟瑟久久| 日韩黄色小视频 | 天天干夜夜艹 | 日韩精品一区二区三区免费视频 | 四虎永久在线精品影院 | 中文字幕专区高清在线观看 | 做性视频| 亚洲一区二区三区免费视频 | 青青草原手机在线视频 | 日日摸夜夜添夜夜添毛片 | 亚洲午夜国产精品 |