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