繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个基于web的QQ程序 2（xml+asp）
- ASP
- asp实现取得数组中的最大值的代码
- asp 将日期格式化为需要的格式
- asp 下产生任意位数随机密码的代码
- asp下返回以千分位显示数字格式化的数值
- asp重定向页面的方法总结
- asp下去除数组中重复的项的方法
- asp下实现 重新排序数字数组的代码
- asp 验证输入网址是否有效并可以访问 与正则验证输入网址
- asp验证Ip格式的函数
- asp实现生成由数字，大写字母，小写字母指定位数的随机数
- asp 格式化sql中的like字符串
- asp 实现显示所有的服务器变量值的函数
- asp 取得用户真实IP，对代理地址仍然有效的函数
- asp 通用数据库连接过程函数
- asp 字符串截取函数
- asp下实现格式化文件大小以MB显示的函数
- asp 下用正则表达式检测邮箱格式的函数
- asp 实现检测字符串是否为纯字母和数字组合的函数
- asp代码实现检测组件是否安装的函数
- asp通过JMAIL实现通用发送函数
ASP 中的 一个基于web的QQ程序 2（xml+asp）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 227 ::
收藏到网摘: n/a
=====
<%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
%>
评论 (0) All
