conn.asp

<%
set conn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("db1.mdb")
conn.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
%>

Fso生成XML文件：Fso.xml

<%

Set fso=server.CreateObject("scripting.filesystemobject")

Set file=fso.createtextfile(server.mappath("Xml_File/Fso.xml"))

file.writeline("<?xml version=""1.0"" encoding=""gb2312""?>")

file.write("<students>")

For i=1 To 4

file.writeline("<student><name>victor" & i & "</name></student>")

next

file.writeline("</students>")

%>

<%response.write "成功!"%>

<br/>

<br/>

调用数据库数据生成XML文件:

第一种方法：生成Db1.xml

<!--#include file="conn.asp"-->

<%

Set rs=conn.execute("select *from article")

Dim id(10)

Dim title(10)

Dim author(10)

Dim content(10)

Dim datetime(10)

Do until rs.eof

id(line)=rs("id")

title(line)=rs("title")

author(line)=rs("author")

content(line)=rs("content")

datetime(line)=rs("datetime")

line=line+1

rs.movenext

Loop

%>

<%

Set fso=server.CreateObject("scripting.filesystemobject")

Set file=fso.createtextfile(server.mappath("Xml_File/Db1.xml"))

file.writeline("<?xml version=""1.0"" encoding=""gb2312""?>")

file.writeline("<books>")

For i=0 To line-1

file.writeline("<book>")

file.writeline("<id>" & id(i) & "</id>")

file.writeline("<title>" & title(i) & "</title>")

file.writeline("<author>" & author(i) & "</author>")

file.writeline("<content>" & content(i) & "</content>")

file.writeline("<datetime>" & datetime(i) & "</datetime>")

file.writeline("</book>")

next

file.writeline("</books>")

response.write "成功！"

%>

第二种方法：生成Db2.xml

<!--#include file="conn.asp"-->

<%

Set rs=server.CreateObject("adodb.recordset")

rs.open "select *from article",conn,1,1

Dim idd(10)

Dim titlee(10)

Dim authorr(10)

Dim contentt(10)

Dim datetimee(10)

For linee=1 To rs.recordcount

idd(linee)=rs("id")

titlee(linee)=rs("title")

authorr(linee)=rs("author")

contentt(linee)=rs("content")

datetimee(linee)=rs("datetime")

linee=linee+1

rs.movenext

Next

%>

<%

Set fso=server.CreateObject("scripting.filesystemobject")

Set file=fso.createtextfile(server.mappath("Xml_File/Db2.xml"))

file.writeline("<?xml version=""1.0"" encoding=""gb2312""?>")

file.writeline("<books>")

For j=1 To linee-1

file.writeline("<book>")

file.writeline("<id>" & idd(j) & "</id>")

file.writeline("<title>" & titlee(j) & "</title>")

file.writeline("<author>" & authorr(j) & "</author>")

file.writeline("<content>" & contentt(j) & "</content>")

file.writeline("<datetime>" & datetimee(j) & "</datetime>")

file.writeline("</book>")

next

file.writeline("</books>")

response.write "成功！"

%>

<br/>

<br/>

创建RSS文件：生成Rss.xml

<!--#include file="conn.asp"-->

<%

Set rs=conn.execute("select *from article")

Dim id2(2)

Dim title2(2)

Dim author2(2)

Dim content2(2)

Dim datetime2(2)

Do until rs.eof

id2(line2)=rs("id")

title2(line2)=rs("title")

author2(line2)=rs("author")

content2(line2)=rs("content")

datetime2(line2)=rs("datetime")

line2=line2+1

rs.movenext

Loop

%>

<%

Set fso=server.CreateObject("scripting.filesystemobject")

Set file=fso.createtextfile(server.mappath("Xml_File/Rss.xml"))

LineHead="<?xml version=""1.0"" encoding=""gb2312""?>" & vbcrlf

  LineHead=LineHead & "<rss version=""2.0"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" "

  LineHead=LineHead & "xmlns:trackback=""http://madskills.com/public/xml/rss/module/trackback/"" "

  LineHead=LineHead & "xmlns:wfw=""http://wellformedweb.org/CommentAPI/"" "

  LineHead=LineHead & "xmlns:slash=""http://purl.org/rss/1.0/modules/slash/"" "

  LineHead=LineHead & "xmlns:content=""http://purl.org/rss/1.0/modules/content/"">"

  file.writeline(LineHead)

For i=0 To line2-1

file.writeline("<book>")

file.writeline("<id>" & id2(i) & "</id>")

file.writeline("<title>" & title2(i) & "</title>")

file.writeline("<author>" & author2(i) & "</author>")

file.writeline("<content>" & content2(i) & "</content>")

file.writeline("<datetime>" & datetime2(i) & "</datetime>")

file.writeline("</book>")

next  

file.writeline("</rss>")

response.write("成功!")

%>

如有问题，可以QQ搜索群1028468525加入群聊，欢迎一起研究技术

有疑问联系站长，请联系QQ：