您现在的位置是：网站首页> 编程资料编程资料

ASP+Ajax实现无刷新评论简单例子_AJAX相关_

2023-05-25 389人已围观

简介 ASP+Ajax实现无刷新评论简单例子_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("")
%>
打包文件下载

您可能感兴趣的文章:

上一篇：IE7下ajax之open Method New的说明_AJAX相关_

下一篇：AJAX的阻塞及跨域名解析_AJAX相关_

您现在的位置是：网站首页> 编程资料编程资料

ASP+Ajax实现无刷新评论简单例子_AJAX相关_

相关内容

点击排行

本栏推荐

猜你喜欢