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("
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("")
打包文件下载
以上就是ASP+Ajax实现无刷新评论简单例子的详细内容，更多请关注易知道|edz.cc其它相关文章！
