远程访问数据库的一种方法(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 
%>