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