网站建设资讯

NEWS

网站建设资讯

怎么用ASP+Ajax实现无刷新评论功能-创新互联

本篇内容介绍了“怎么用ASP+Ajax实现无刷新评论功能”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!

成都创新互联公司主营德钦网站建设的网络公司,主营网站建设方案,APP应用开发,德钦h5小程序制作搭建,德钦网站营销推广欢迎德钦等地区企业咨询
 
<% 
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("") 
%>

“怎么用ASP+Ajax实现无刷新评论功能”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站,小编将为大家输出更多高质量的实用文章!


分享标题:怎么用ASP+Ajax实现无刷新评论功能-创新互联
URL网址:http://cdweb.net/article/phddh.html