怎么用ASP+Ajax实现无刷新评论功能
本篇内容介绍了“怎么用ASP+Ajax实现无刷新评论功能”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!
创新互联长期为近千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为湘阴企业提供专业的成都做网站、成都网站制作,湘阴网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
<% 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实现无刷新评论功能
分享地址:http://lswzjz.com/article/jgjpoj.html