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

<
%
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("version=""1.0"" 
encoding=""gb2312""?>")
Dim 
rs,Sql 
 
&apos
定义连接数据库对象
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("page=""0"" 
P_Nums=""0"">")
 
 
 
 
Response.Write("没有留言")
 
 
 
 
Response.Write("")
 
 
 
 
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("page="""&CurPage&""" 
P_Nums="""&P_Nums&""" 
D_Nums="""&D_Nums&""">")
 
 
 
 
Do 
Until 
rs.EOF 
or 
PageCountN=PerPage
 
 
 
 
 
 
Response.Write("PostTime="""&formatTime(rs("PostTime"))&""">")
 
 
 
 
 
 
Response.Write("")
 
 
 
 
 
 
rs.MoveNext
 
 
 
 
 
 
PageCountN=PageCountN+1
 
 
 
 
Loop
End 
If
Response.Write("")
%>

打包文件下载