用于处理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
%