一個基於web的QQ程式 2（xml+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 "<id>k</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
%>