Response.ContentType="application/xml"
Response.Charset="utf-8"
response.cachecontrol="no-cache"
response.addHeader "pragma","no-cache"
response.expires=-1
response.expiresAbsolute=now-1
db="file.mdb" '数据库路径,相对路径
set conn = server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>")
set rs=Server.CreateObject("adodb.recordset")
rs.open "SELECT * FROM [file]",conn,1,1
if rs.Eof and rs.Bof then
Response.Write("")
Response.Write ("")
Response.Write("")
Response.Write ("")
else
Response.Write("")
do while Not rs.Eof
Response.Write ("")
Response.Write("")
if rs.Eof then
Exit do
End if
rs.MoveNext
Loop
Response.Write ("")
End if
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
本回答被提问者和网友采纳