<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) " & now() & "<br>"
移动到下个记录
rs.movenext
返回到顶部-下个循环
改变这个“loop”到所有记录的输出
上面的语句相应的也应该被改变
next
%>
</body>
</html>