创建XML文档从ACCESS导出

ASP新手入门
Active Server Pages能够很容易的在Web服务器上创建数据的动态视图,但是你也可以在服务器上创建“静态”的文件。如果您想发布CD或其他任何文件格式的信息,这是特别有用的。下面的例子将利用我们国家的信息数据库。读取数据库,而不是把输出写入浏览器的HTML文本,而是写入这个服务器上的xml文件扩展名的文件。通过适当的将XML标记放在XML文件Db输出周围,在服务器上创建会比通过浏览器读取或者任何合适的意思要好。当前时间(服务器时间)也将被添加到显示所有的动态创建的XML文档。

<html> <title>TTASP.NET(从ACCESS创建XML)</title> <body bgcolor="#FFFFFF"> <% ' Name of the access db being queried 访问被查询的db 的名称 accessdb="state_info" ' Connection string to the access db 访问db的连接字符串 cn="DRIVER={Microsoft Access Driver (*.mdb)};" cn=cn & "DBQ=" & server.mappath(accessdb) ' Create a server record set object 创建一个服务器记录设置对象 Set rs = Server.CreateObject("ADODB.Recordset") ' Query the states table from the state_info db 查询来自state_info db的状态表 sql = "select state,statename,capital,year,order from states order by states.order " ' Execute the sql 执行SQL rs.Open sql, cn ' Move to the first record 移动第一个记录 rs.MoveFirst ' Name for the ouput document 输出文件的名称 file_being_created= "states.xml" ' create a file system object 创建一个文件系统对象 set fso = createobject("scripting.filesystemobject") ' create the text file - true will overwrite any previous files 创建文本文件-真正覆盖以前所有文件 ' Writes the db output to a .xml file in the same directory 在相同的目录把db输出写入一个XML文件 Set act = fso.CreateTextFile(server.mappath(file_being_created), true) ' All non repetitive xml on top goes here 所有的非重复XML在顶端。 act.WriteLine("<?xml version=""1.0""?>") act.WriteLine("<states>") 'Loop to output all the query results to the xml document 循环输出所有查询结果的XML文档 do while not rs.eof ' counter to give each record a sequential listing 给每个记录一个顺序的列表计数 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>") ' move to the next record 移动到下一个记录 rs.movenext loop ' All non repetitive xml on bottom goes here 所有的非重复XML在前端 act.WriteLine("</states>") ' close the object (xml) 关闭对象(xml) act.close ' Writes a link to the newly created xml document in the browser 把链接写到浏览器里面新创建的XML 文件 response.write "<a href='states.xml'>States</a> (.xml) has been created <br>" response.write "on " & now() & "<br>" %> </body> </html>


相关内容推荐

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

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程序

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

返回
顶部