快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

一个基于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
%>
返回类别: 教程
上一教程: 一个简朴的E_MAIL地址判定函数(通用)
下一教程: 用ASP+ACCESS制作论坛教程

您可以阅读与"一个基于WEB的QQ程序 2(XML+ASP)"相关的教程:
· 一个基于WEB的QQ程序 1(XML+ASP)
· 一个基于web的QQ程序 2(xml+asp)
· 显示页面show.asp--基于web的QQ程序1 
· 接收信息页面INFORM.ASP--基于WEB的QQ程序2
· 显示页面SHOW.ASP--基于WEB的QQ程序1
    微笑服务 优质保证 索取样品