<>
<%
DimCurPage
CurPage=cint(Request("page"))
IfCurPage=emptyorCurPage<1Then
CurPage=1
EndIf
Response.ContentType="application/xml"
Response.Charset="gb2312"
Response.Expires=0
Response.Write("<?xmlversion=""1.0""encoding=""gb2312""?>")
Dimrs,Sql'定义连接数据库对象
Setrs=Server.CreateObject("ADODB.Recordset")
Sql="SELECT*FromrevOrderbyidDesc"
rs.OpenSql,Conn,1,3
IFrs.EofAndrs.BofThen
Response.Write("<datapage=""0""P_Nums=""0"">")
Response.Write("<Content>没有留言</Content>")
Response.Write("</data>")
Response.End
Else
DimPerPage,P_Nums,PageCountN,D_Nums
PerPage=3
Rs.PageSize=PerPage
Rs.AbsolutePage=CurPage
P_Nums=Rs.PageCount
D_Nums=Rs.RecordCount
Response.Write("<datapage="""&CurPage&"""P_Nums="""&P_Nums&"""D_Nums="""&D_Nums&""">")
DoUntilrs.EOForPageCountN=PerPage
Response.Write("<AuthorPostTime="""&formatTime(rs("PostTime"))&"""><![CDATA["&rs("memContent")&"]]></Author>")
Response.Write("<Content><![CDATA["&rs("memContent")&"]]></Content>")
rs.MoveNext
PageCountN=PageCountN+1
Loop
EndIf
Response.Write("</data>")
%>
打包文件下载
【ASP+Ajax实现无刷新评论简单例子】相关文章：
★ Flash & Ajax 操作 XML 实例:无刷新分页