【下载文档:  ASP+Ajax实现无刷新评论简单例子.txt 】

---

ASP+Ajax实现无刷新评论简单例子
<% 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("") 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("") Response.Write("没有留言") Response.Write("") 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("") Do Until rs.EOF or PageCountN=PerPage Response.Write("") Response.Write("") rs.MoveNext PageCountN=PageCountN+1 Loop End If Response.Write("") %>打包文件下载