本篇内容介绍了“怎么用ASP+Ajax实现无刷新评论功能”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!
<!--#include file="command.asp" --> <% 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("<?xml version=""1.0"" encoding=""gb2312""?>") 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("<data page=""0"" P_Nums=""0"">") Response.Write("<Content>没有留言</Content>") Response.Write("</data>") 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("<data page="""&CurPage&""" P_Nums="""&P_Nums&""" D_Nums="""&D_Nums&""">") Do Until rs.EOF or PageCountN=PerPage Response.Write("<Author PostTime="""&formatTime(rs("PostTime"))&"""><![CDATA["&rs("memContent")&"]]></Author>") Response.Write("<Content><![CDATA["&rs("memContent")&"]]></Content>") rs.MoveNext PageCountN=PageCountN+1 Loop End If Response.Write("</data>") %>
“怎么用ASP+Ajax实现无刷新评论功能”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注亿速云网站,小编将为大家输出更多高质量的实用文章!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。