欢迎光临
我们一直在努力

ASP+Ajax实现无刷新评论简单例子

容器云强势上线!快速搭建集群,上万Linux镜像随意使用


<%
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(“”)
%>
打包文件下载

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » ASP+Ajax实现无刷新评论简单例子
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址