当前位置: 首页 > 图文教程 > 网络编程 > AJAX技术 > ASP+Ajax实现无刷新评论简单例子

AJAX技术
ajax和asp.net的配置文件
关天asp.net ajax beta中在updatepnael中注册脚本的解决方案
ASP.NET AJAX Beta2 调用本地WebService的一些改变
Ajax+GridView+Xml的简易留言薄
PHP和AJAX打造高级RSS聚合器
注册起动脚本,ASP.NET AJAX的一项重要功能!
使用Ajax时的十个常犯的错误
如何在ASP.Net Ajax中调用WebService
xmlHTTP xmlDOC 与 C#中DataSet的结合 实现AJAX简单示例
争论:Ajax技术是否即将没落?
Ajax:拥抱JSON,让XML走开
AJAX有没有未来?
Ajax 框架ZK 2.2 发布
利用ProtoType框架完成的一个下拉框(asp:DropDownList)联动的AJAX例子
在ASP.NET AJAX中别使用mode=Legacy
ASP.NET AJAX RC Tip:页面中无UpdatePanel时UpdateProgress创建出错问题
ECMAScript基础类以及Asp.net Ajax对类Object的扩展
Asp.net Ajax 中的脚本错误: Sys未定义 的解决方法
基于AJAX的ASP.NET聊天室-如何建立共识
解开Ajax技术生命中的达芬奇密码

AJAX技术 中的 ASP+Ajax实现无刷新评论简单例子


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 76 ::
收藏到网摘: n/a

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