繁體中文当前位置: 首页 > 图文教程 > 网络编程 > AJAX技术 > ASP+Ajax实现无刷新评论简单例子
- AJAX技术
- 一个简单的ASP+AJAX留言本源码下载
- IE7下ajax之open Method New的说明
- ASP+Ajax实现无刷新评论简单例子
- AJAX的阻塞及跨域名解析
- [js]一个获取页面ip的正则
- AJAX乱码解决新方法
- 也写一个Ajax.Request类附代码
- AJAX简历系统附js文件
- Ajax留言本源码 提供下载了
- 找到一款不错的基于AJAX留言板源码(PHP版、ASP版)提供下载了
- Ajax 学习资源 中外都有
- 本人ajax留言板的源程序 不错的应用js
- xmlhttp 乱码 比较完整的解决方法 (UTF8,GB2312 编码 解码)
- AJAX集天气\IP\多国语言翻译MP3(可同步LRC歌词显示)\万年历查询通
- AJAX缓存问题的两种解决方法(IE)
- AJAX 常用函数创建XMLHTTP对象，区别IE，Mozilla浏览器
- Ajax的小贴士使用小结
- 用ajax动态加载需要的js文件
- XMLHTTP多浏览器兼容性写法
- PJBLOG中用到的ajaxjs.几个简单的函数
AJAX技术 中的 ASP+Ajax实现无刷新评论简单例子
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 62 ::
收藏到网摘: 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
