|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
用于处理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 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |