建站代码网

热门标签

创建来自数据库输出的XML文件

ASP可以很容易地创建网页服务器的数据动态视图,但是你也可以创建服务器的静态文件。这是特别有用的如果你想发布你的CD信息或者任何的额虚拟的文件形式。下面的例子会利用到我们的州的信息数据库。在阅读了数据库的内容之后,不用写入输出到浏览器的HTML文本写入到服务器上.xml文件扩展名的文件。通过把XML标签恰当地放在数据库输出周围的被创建在服务器的XML文件,而不是被浏览器读取或者任何适合的意思。当前的时间(服务器时段)也被添加来显示所有的被动态创建的XML文件。

<html> <title>www.ttasp.net(Create XML from Access)</title> <body bgcolor="#FFFFFF"> <%
'被查询的数据库名称

accessdb="state_info"

'连接字符串到数据库

cn="DRIVER={Microsoft Access Driver (*.mdb)};" cn=cn & "DBQ=" & server.mappath(accessdb)
'创建一个服务器记录设置对象

Set rs = Server.CreateObject("ADODB.Recordset")

'查询来自州的信息数据库的州的表格

sql = "select state,statename,capital,year,order from states order by states.order "

'执行sql

rs.Open sql, cn

'移动第一个记录

rs.MoveFirst

'输出文档名称

file_being_created= "states.xml"

'创建一个文件系统对象

set fso = createobject("scripting.filesystemobject")

‘创建文本文件——正确或者覆盖任何之前的文件
‘写出数据库输出到相同目录的xml文件

Set act = fso.CreateTextFile(server.mappath(file_being_created), true)

'所有顶端的非重复xml

act.WriteLine("<?xml version=""1.0""?>") act.WriteLine("<states>")

'循环输出所有的查询结果到xml文件

do while not rs.eof

'计算给出每个记录一个连续的列表

counter=counter+1 act.WriteLine("<state id="""& counter &""">") act.WriteLine("<state_abbrev>" & rs("state") & "</state_abbrev>" ) act.WriteLine("<state_name>" & rs("statename") & "</state_name>" ) act.WriteLine("<state_capital>" & rs("capital") & "</state_capital>") act.WriteLine("<year_admitted>"& rs("year") & "</year_admitted>") act.WriteLine("<order_admitted>"& rs("order") & "</order_admitted>") act.WriteLine("</state>")

'移动到下个记录

rs.movenext loop

'所有在顶部的非重复xml

act.WriteLine("</states>")


'关闭对象(xml)

act.close


'写出新创建的浏览器xml文件链接

response.write "<a href='states.xml'>States</a> (.xml) has been created <br>" response.write "on " & now() & "<br>" %> </body> </html>