<%
'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 ="sa" '您的登录帐号
StrSaPwd ="admin" '您的登录密码
StrDbName ="dbname" '您的数据库名称
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>"
%>
'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 ="sa" '您的登录帐号
StrSaPwd ="admin" '您的登录密码
StrDbName ="dbname" '您的数据库名称
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>"
%>