OStack程序员社区-中国程序员成长平台 › 门户 ›编程› AJAX› AJAX编程经验 › 查看内容

ASP+Ajax实现无刷新评论简单例子

2022-2-5 17:02| 发布者: 菜鸟教程小白| 查看: 334| 评论: 0|原作者: [db:作者]|来自: [db:来源]

摘要: !--#includefile="command.asp"-- % DimCurPage CurPage=cint(Request("page")) IfCurPage=emptyorCurPage1Then CurPage=1 EndIf Response.ContentType="application/xml" Response.Charset="gb2312" Response.Expir ...

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