【 tulaoshi.com - ASP 】
用于处理xmlhttp请求的asp程序，看看时不是很简单啊！？？
=====
<%on error resume next
Response.ContentType="text/xml"
if Request.ServerVariables("REQUEST_METHOD")="POST" then
set req=Server.CreateObject("Microsoft.XMLDOM")
req.async=false
req.load(Request)
set conn=server.CreateObject("adodb.connection")
conn.Open "odbc","uid","password"
sql="select uid,id,sex from uidinfo order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn
Response.Write "<?xml version=""1.0"" ?"
Response.Write "<mess"
if not rs.EOF then
do while not rs.EOF
Response.Write "<id"&trim(rs("id"))&"</id<uid"&trim(rs("uid"))&"</uid<sex"&trim(rs
("sex"))&"</sex"
rs.MoveNext
loop
else
Response.Write "<idk</id<uid</uid<sex</sex"
end if
Response.Write "</mess"
if rs.State=1 then rs.Close
set rs=nothing
conn.Close
set conn=nothing
set req=nothing
end if
%
