- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 9ipad版office如何激活? office365激活的图文说明教程
- 10最新的Adobe Illustrator CS4序列号大全
- 11Mac怎么通过设置VPN来登录youtube等国外网站
- 12眼萌app怎么色弱测试 眼萌app色弱测试图文说明教程
[摘要]先贴一篇较简单的用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>
推荐资讯 总人气榜
最新教程 本月人气
- 1浅谈Asp.net多层架构中的变量引用与传递
- 22栏分页显示（附显示的形式前页，后页）
- 3使用DB2look 重新创建优化器访问计划(4)
- 4Java+XML学习Step by step（3）
- 5使用ASP完成对表的分页浏览（下）
- 6图形显示方式屏幕的保存与恢复
- 72种统计当前在线人数的方法
- 8写了个Telnet Server
- 9获得当前进程的下文
- 10使用ASP完成对表的分页浏览（上）
- 11Zend Studio 3.0试用手记
- 12VB填充IE上的输入框并提交
- 1uc浏览器去广告图文说明教程：uc浏览器广告过滤技巧使用方法_绿茶安卓网
- 2字符串根据多个字符进行分割的一种方法
- 3使用c#制作容易的留言板(1)
- 43星s5电信版支持4g吗？3星galaxy s5电信版支持4g网络吗？
- 5nubia x6电信版什么时候上市？中兴nubia x6电信版上市时间
- 6华为p7移动版什么时候上市？华为p7手机移动版上市时间
- 7联想黄金斗士s8预约图文说明教程(附联想s8预约网址)
- 8联想黄金斗士s8加持版与规范版的区别有哪一些？s8加持版/规范版区别
- 9美颜相机声音如何关？美颜相机关声音方法_绿茶安卓网
- 10陌陌如何举报？陌陌举报好友图文说明教程_绿茶安卓网
- 11陌陌群聊如何@别人？陌陌群聊@别人方法_绿茶安卓网
- 123星s4手势感应如何用？3星Galaxy s4手势感应视频图文说明教程
