在服务器上创建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>

相关内容推荐

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

ASP-条件语句

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

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

返回
顶部