在服务器上创建word

ASP新手入门
Active Server Pages能容易在Web服务器上创建数据的动态视图,但你也可以创建服务器上的文件word和excel。如果您想把信息以CD或文件形式来发送的话,这将特别有用。下面的例子会利用到我们国家的信息数据库。在读取了db的内容后,而不是写入输出到浏览器的HTML文本的内容,被写入服务器的文件扩展名为.doc。前面七个月的意见(州)都会有自己的动态创建的Word文档,其显示以及相应的信息。目录页的表格也会由(在浏览器中)周边的所有Word文档轻松导航创造。当前时间(服务器时间)也将被添加到显示所有的文字文件被动态创建。
<html>
<title>TTASP.NET(Create Word on Server)</title>
<body bgcolor="#FFFFFF">
<%
查询的数据库db名称
accessdb="state_info" 

数据库db的连接字符串
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)

创建服务器记录设置对象 
Set rs = Server.CreateObject("ADODB.Recordset")
 
查询state_info db的states表格
sql = "select state,statename,capital,year,order from states " 

执行sql
rs.Open sql, cn

移动到第一个记录
rs.MoveFirst
为了净循环从记录设置里面创建7个word文件
改变“do while not rs.eof”到输出所有记录
相应的下一个也应改为循环

for documents= 1 to 7
在州的缩写的服务器上创建 一个文本文件
输出的文件名
file_being_created= rs("state") & ".doc"

 创建一个文件系统对象
set fso = createobject("scripting.filesystemobject")

创建文本文件-真正将覆盖以前的任何文件
Set act = fso.CreateTextFile(server.mappath(file_being_created), true)

把db输出在同级目录中写入.doc 文件
act.WriteLine("<html><title>CodeAve.com(" & rs("statename") & " State Info)</title>")
act.WriteLine("<body bgcolor='#FFFFFF'> " )
act.WriteLine("State: " & rs("statename") & "<br>" )
act.WriteLine("Abbreviaton: " & rs("state") & "<br>" )
act.WriteLine("Capital: " & rs("capital") & "<br>")
act.WriteLine("Entered the Union in "& rs("year") & "<br>")
act.WriteLine("Number in order of entrance into the Union "& rs("order") & "<br>")
act.WriteLine("Page created on: " & now ())
act.WriteLine("</body></html>")

关闭对象
act.close

写这个链接到浏览器新创建的页面
response.write "<a href='" & rs("state") & ".doc'>" & rs("statename") & "</a> (.doc) &nbsp;" & now() & "<br>"

移动到下个记录
rs.movenext

返回到顶部-下个循环
改变这个“loop”到所有记录的输出
上面的语句相应的也应该被改变
next
%>
</body>
</html>

猜你喜欢

字节运算

2020-12-20

有多少数据被发送到在页面之间的表单操作呢? Request.TotalBytes会告诉你。试图限制从桌面上传到服务器的项目大小是特别有用的。%bytecount = Request.TotalBytesresponse.write bytecount%

ASP-条件语句

2020-12-14

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。为了支持这一点,VBScript中提供了一系列的话,

ASP BASE64加解密

2020-11-30

%' OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim newline dim Base64EncMap(63) dim Base64DecMap(127) '初始化函数 PUBLIC SUB initCodecs(

手机电商网站实用的客服代码及调用微信

2020-11-26

手机电商网站实用的客服代码及调用微信:调用手机QQ:a href="mqq://im/chat?chat_type=wpauin=84299915version=1src_type=web" target="_blank"咨询客服/a调用微信的方法:a href="weixin://" onClick="PIWI_SUBMIT.

ASP读取、解析JSON数据

2020-11-25

第一种Jscript方式:script language="jscript" runat="server"Array.prototype.get = function(x) { return this[x]; };function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }/s

通过区域来搜索数据库

2020-11-22

提供搜索数据库能让用户查询你目标哪个元件的功能。然而允许用户针对数据库的分配,他们会查询给出额外值。在这个例子中,利用我们的美国州的数据库(州,州的名称和首都),用户会搜索任何的三个区域(通过下拉菜单

X
返回
顶部