ASP+Ajax实现无刷新评论简单例子
2007-07-03 00:00
603 查看
<!--#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>")
%>
打包文件下载
<%
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>")
%>
打包文件下载
您可能感兴趣的文章:
相关文章推荐
- ASP+Ajax实现无刷新评论简单例子
- asp.net通过反射技术实现Ajax(3)--第一个简单的例子
- asp.net实现无刷新用户验证的简单例子
- 实现基于Node.js的ajax前后端交互的简单例子
- Asp.Net实现评论盖楼(含Ajax实现方式)
- 一个简单的jQuery插件ajaxfileupload实现ajax上传文件例子
- 利用AJAX和ASP.NET实现简单聊天室
- Ajax实现定时刷新,获取后台数据(实现技术ASP)
- jqury+ajax+php最简单的例子局部刷新页面
- 新写的一个使用ASP.NET AJAX中的UpdatePanel控件实现GridView的无刷新删除,更新,添加,查询!
- asp.net Ajax之无刷新评论介绍
- 简单的ASP.NET无刷新分页 分类: ASP.NET 2012-05-06 02:09 655人阅读 评论(1) 收藏
- sql server 关于表中只增标识问题 C# 实现自动化打开和关闭可执行文件(或 关闭停止与系统交互的可执行文件) ajaxfileupload插件上传图片功能,用MVC和aspx做后台各写了一个案例 将小写阿拉伯数字转换成大写的汉字, C# WinForm 中英文实现, 国际化实现的简单方法 ASP.NET Core 2 学习笔记(六)ASP.NET Core 2 学习笔记(三)
- 简单实现Ajax无刷新分页效果
- AJAX技术实现无刷新技术评论
- asp.net中利用Jquery+Ajax+Json实现无刷新分页
- asp.net中利用Jquery+Ajax+Json实现无刷新分页
- 用Ajax实现获取服务器上的时间的简单的例子
- django ajax提交评论并自动刷新功能的实现
- jsp 中用jquery 实现ajax 一个简单例子