refresh.htm
=========






如果关闭此窗口将失去在线QQ功能！

好了，第一部分就到这里了！！
用于处理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 ""
        Response.Write ""
        if not rs.EOF then
            do while not rs.EOF
                Response.Write ""&trim(rs("id"))&""&trim(rs("uid"))&""&trim(rs("sex"))&""
                rs.MoveNext
            loop
        else
            Response.Write "k"
        end if
            Response.Write ""
        if rs.State=1 then rs.Close
        set rs=nothing
        conn.Close
        set conn=nothing
set req=nothing
end if
%>