繁體中文当前位置: 首页 > 图文教程 > 网络编程 > AJAX技术 > ASP+Ajax实现无刷新评论简单例子
- AJAX技术
- Ajax并不神秘：揭下各种Ajax控件和类库的小裤衩
- AJAX技术基础介绍
- 浏览器跨域获取Lrc歌词数据的解决办法
- Ajax Hacks chm文件与源代码 下载
- AJAX在Post中文的时候乱码的解决方法
- Ajax中要注意的问题
- ajax+php中文乱码解决办法
- 建一个XMLHttpRequest对象池
- [js]轻便的XMLHttpRequest应用函数：downloadUrl()
- Ajax 无刷新在注册用户名时的应用的代码
- 发现个AJAX图片浏览器SIMPLEVIEWER
- AJAX中同时发送多个请求XMLHttpRequest对象处理方法
- Ajax实现无刷新三联动下拉框
- Ajax in action 英文版配书源码 下载
- ajax视频课件 在线观看地址
- 强烈推荐 - Ajax 技术资源中心
- DWR util.js 学习笔记 整理
- Ajax案例集下载：新增分页查询案例（包括《Ajax开发精要》中的两个综合案例） 下载
- .NET2.0环境下的Ajax选型和应用（提供Demo源码下载）
- AJAX防止页面缓存的代码
AJAX技术 中的 ASP+Ajax实现无刷新评论简单例子
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 68 ::
收藏到网摘: n/a
<!--#include file="command.asp" -->
<%
Dim CurPage
CurPage=cint(Request("page"))
If CurPage = empty or CurPage<1 Then
CurPage = 1
End If
Response.ContentType="application/xml"
Response.Charset="gb2312"
Response.Expires=0
Response.Write("<?xml version=""1.0"" encoding=""gb2312""?>")
Dim rs,Sql '定义连接数据库对象
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="SELECT * From rev Order by id Desc"
rs.Open Sql,Conn,1,3
IF rs.Eof And rs.Bof Then
Response.Write("<data page=""0"" P_Nums=""0"">")
Response.Write("<Content>没有留言</Content>")
Response.Write("</data>")
Response.End
Else
Dim PerPage,P_Nums,PageCountN,D_Nums
PerPage=3
Rs.PageSize=PerPage
Rs.AbsolutePage=CurPage
P_Nums=Rs.PageCount
D_Nums=Rs.RecordCount
Response.Write("<data page="""&CurPage&""" P_Nums="""&P_Nums&""" D_Nums="""&D_Nums&""">")
Do Until rs.EOF or PageCountN=PerPage
Response.Write("<Author PostTime="""&formatTime(rs("PostTime"))&"""><![CDATA["&rs("memContent")&"]]></Author>")
Response.Write("<Content><![CDATA["&rs("memContent")&"]]></Content>")
rs.MoveNext
PageCountN=PageCountN+1
Loop
End If
Response.Write("</data>")
%>
打包文件下载
评论 (0) All
