关于客户端用ASP参生报表

本文介绍如何使用 ASP 和 RDS 客户端生成简单的 Excel 报表。主要内容包括设置 IE 的安全选项以允许 ActiveX 控件运行、创建 HTML 页面布局以及使用 VBScript 实现查询数据、清除数据和生成报表的功能。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >


先贴一篇较简单的用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") 

</script>

资源下载链接为: https://pan.quark.cn/s/22ca96b7bd39 在当今的软件开发领域,自动化构建与发布是提升开发效率和项目质量的关键环节。Jenkins Pipeline作为一种强大的自动化工具,能够有效助力Java项目的快速构建、测试及部署。本文将详细介绍如何利用Jenkins Pipeline实现Java项目的自动化构建与发布。 Jenkins Pipeline简介 Jenkins Pipeline是运行在Jenkins上的一套工作流框架,它将原本分散在单个或多个节点上独立运行的任务串联起来,实现复杂流程的编排与可视化。它是Jenkins 2.X的核心特性之一,推动了Jenkins从持续集成(CI)向持续交付(CD)及DevOps的转变。 创建Pipeline项目 要使用Jenkins Pipeline自动化构建发布Java项目,首先需要创建Pipeline项目。具体步骤如下: 登录Jenkins,点击“新建项”,选择“Pipeline”。 输入项目名称和描述,点击“确定”。 在Pipeline脚本中定义项目字典、发版脚本和预发布脚本。 编写Pipeline脚本 Pipeline脚本是Jenkins Pipeline的核心,用于定义自动化构建和发布的流程。以下是一个简单的Pipeline脚本示例: 在上述脚本中,定义了四个阶段:Checkout、Build、Push package和Deploy/Rollback。每个阶段都可以根据实际需求进行配置和调整。 通过Jenkins Pipeline自动化构建发布Java项目,可以显著提升开发效率和项目质量。借助Pipeline,我们能够轻松实现自动化构建、测试和部署,从而提高项目的整体质量和可靠性。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值