开发学院WEB开发ASP 一个基于web的QQ程序 2(xml+asp) 阅读

一个基于web的QQ程序 2(xml+asp)

 2001-09-11 11:05:11 来源:WEB开发网   
核心提示:用于处理xmlhttp请求的asp程序,看看时不是很简单啊!??=<%on error resume nextResponse.ContentType="text/xml"if Request.ServerVariables("REQUEST_METHOD")="
用于处理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
%>


Tags:一个 基于 web

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接