皈依舞
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%Response.ContentType="application/xml"Response.Charset="utf-8"response.cachecontrol="no-cache"response.addHeader "pragma","no-cache"response.expires=-1response.expiresAbsolute=now-1db="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,1if rs.Eof and rs.Bof thenResponse.Write("<vcaster>")Response.Write ("<item item_url=""no file"" item_title=""no file"">")Response.Write("</item>")Response.Write ("</vcaster>")elseResponse.Write("<vcaster>")do while Not rs.EofResponse.Write ("<item item_url="""&rs("fileurl")&""" item_title="""&rs("name")&""">")Response.Write("</item>")if rs.Eof thenExit doEnd ifrs.MoveNextLoopResponse.Write ("</vcaster>")End ifrs.CloseSet rs=Nothingconn.CloseSet conn=Nothing%> 本回答被提问者和网友采纳