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