怎么用ASP+Ajax實現(xiàn)無刷新評論功能

本篇內(nèi)容介紹了“怎么用ASP+Ajax實現(xiàn)無刷新評論功能”的有關知識，在實際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領大家學習一下如何處理這些情況吧！希望大家仔細閱讀，能夠?qū)W有所成！

<!--#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  '定義連接數(shù)據(jù)庫對象 
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實現(xiàn)無刷新評論功能”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關的知識可以關注億速云網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實用文章！