|
![]() |
名片设计 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 %> 返回类别: 教程 上一教程: ASP 3.0 新特色先睹为快(二) 下一教程: 小工具:统计有多少行JS代码和ASP代码,并有多少字节 您可以阅读与"一个基于web的QQ程序 2(xml+asp)"相关的教程: · 一个基于WEB的QQ程序 2(XML+ASP) · 一个基于WEB的QQ程序 1(XML+ASP) · 接收信息页面INFORM.ASP--基于WEB的QQ程序2 · 显示页面show.asp--基于web的QQ程序1 · 显示页面SHOW.ASP--基于WEB的QQ程序1 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |