脚本宝典收集整理的这篇文章主要介绍了ASP+Ajax实现无刷新评论简单例子,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
<!--
#include&nbs
p;file="command.asp" -->
<%
Dim CurPage
CurPage=cint(Request("page"))
If CurPage = empty or CurPage<1 Then
CurPage = 1
End If
Response.ContentTy
PE="application/
XMl"
Response.Charset="gb2312"
Response.E
xpires=0
Response.Wr
ITe("<?x
ML version=""1.0"" encoding=""gb2312""?>")
Dim rs,
SQL '定义连接
数据库对象
Set rs=Server.CreateObject("ADODB.Reco
rdset")
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="""&
amp;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+Ajax实现无刷新评论简单例子所遇到的问题。
如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。