远程访问数据库的一种方法(asp生成)

本段代码根据数据库生成ado Recordset 可以直接load的xml,并在IE中显示为xml ,可供delphi等远程访问access数据库


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


<%


user=request.QueryString("user")


pass=request.QueryString("pass")


sqlcust=request.QueryString("sql")


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


sql = "select * from theusers where name='"&user&"'"


rs.open sql,conn,1,1


'确认密码


if (not rs.eof) Then


If (rs("passw")=pass) then


rs.close


rs.open sqlcust,conn,1,1


Response.ContentType = "text/xml"


response.write("<?xml version=""1.0"" encoding=""GB2312"" ?>")


Const adPersistXML = 1


Dim objXMLDOM


Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")


rs.save objXMLDOM, adPersistXML


Response.Write objXMLDOM.xml


Set objXMLDOM=nothing


End if


end If


rs.close


Set rs=Nothing


conn.close


Set conn=nothing


%>