<%
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_Nu
来源gaodai.ma#com搞##代!^码网
ms=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实现无刷新评论简单例子的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：ASP+Ajax实现无刷新评论简单例子
转载请注明原文链接：ASP+Ajax实现无刷新评论简单例子
