欢迎来到站长教程网!
兔子CDN

AJAX

当前位置:主页 > 网络编程 > AJAX >

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

时间:2020-09-08|栏目: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>")
%>
打包文件下载

上一篇:本人ajax留言板的源程序 不错的应用js

栏    目:AJAX

下一篇:AJAX实现仿Google Suggest效果

本文标题:ASP+Ajax实现无刷新评论简单例子

本文地址:www.dtcnnet.com/AJAX/27355.html

您可能感兴趣的文章

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:584415406 | 邮箱:584415406#qq.com(#换成@)

Copyright © 2015-2020 小白站长网 版权所有 苏ICP备20040415号