<%
 'IP检查
 ip=Request.ServerVariables("REMOTE_ADDR")
 IF ip<>"211.151.23.203" Then Response.End
 Dim conn
 Set conn = Server.CreateObject("ADODB.Connection")
 'SQL Server数据库链接
 Dim StrServer,StrUid,StrSaPwd,StrDbName,StrDSN
 StrServer ="61.156.25.37" '数据库服务器名
 StrUid  ="lyhousedx"  '您的登录帐号
 StrSaPwd ="admin_insert" '您的登录密码
 StrDbName ="yangchengzhi"  '您的数据库名称
 StrDSN  ="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
 '建立数据库链接
 conn.Open StrDSN
    set Tmp=server.createobject("adodb.recordset")
    sql = request("sql")
    'response.write sql
    Tmp.open sql,conn,1,1
    ReDim FieldsName(Tmp.Fields.Count)
    For i=0 to Tmp.Fields.Count-1
        FieldsName(i+1) = Tmp(i).Name
    Next
    response.write "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"GB2312"&chr(34)&"?>" & vbcrlf & "<Root>"
    response.write "<State>success</State><Version>1.0.0</Version><Recnum>"&Tmp.RecordCount&"</Recnum>"
    response.write "<Fieldcount>" & Tmp.Fields.Count & "</Fieldcount>"
    response.write vbcrlf & "<Fields>" & vbcrlf
    'str = str & "<state>success</state><version>1.0.0</version><recnum>"&Tmp.RecordCount&"</recnum>"
    For i=0 to Tmp.Fields.Count-1
        'str = str & "<Field>" & FieldsName(i+1) & "</Field>"& vbcrlf
        response.write "<Field>" & FieldsName(i+1) & "</Field>"& vbcrlf
    Next
    response.write vbcrlf & "</Fields>" & vbcrlf
    'str = str & "<table>"
    response.write vbcrlf & "<Table>" & vbcrlf
    while Not Tmp.Eof
        'str = str & "<record>"
        Response.write "<Record>" & vbcrlf
        For i=0 to Tmp.Fields.Count-1
            str = str & "<" & FieldsName(i+1) & ">"
            str = str & Tmp(i)
            str = str & "</"& FieldsName(i+1) & ">"
            Response.write "<" & FieldsName(i+1) & ">" & Tmp(i) & "</"& FieldsName(i+1) & ">"
        Next
        'str = str & "</Record>" & vbcrlf
        Response.write vbcrlf & "</Record>" & vbcrlf
        Tmp.MoveNext
    Wend
    str = str & "</table>"
    Response.write "</Table>" & vbcrlf & "</Root>"
%>

评论