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

ASP新手入门
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>

相关内容推荐

ASP-条件语句

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

编写第一个ASP程序

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

周的天数

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

ASP表单输入到HTML

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

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

返回
顶部