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

会意冥天

会意冥天

2016-02-19 12:23

下面是个超简单的ASP+Ajax实现无刷新评论简单例子教程,图老师小编精心挑选推荐,大家行行好,多给几个赞吧,小编吐血跪求~
!--#include file="command.asp" --
%
Dim  CurPage
CurPage=cint(Request("page"))
If CurPage = empty or CurPage1 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")
%
打包文件下载
展开更多 50%)
分享

猜你喜欢

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

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

ASP+AJAX打造无刷新新闻评论系统

Web开发
ASP+AJAX打造无刷新新闻评论系统

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

ASP jQuery AJAX无刷新评论

Web开发
ASP jQuery AJAX无刷新评论

Ajax实现无刷新树

Web开发
Ajax实现无刷新树

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

asp+Ajax简单客户登陆验证

Web开发
asp+Ajax简单客户登陆验证

asp+ajax实现静态页面分页的代码

Web开发
asp+ajax实现静态页面分页的代码

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

自动关闭的层

自动关闭的层

利齿C sharp代替C++?

利齿C sharp代替C++?
下拉加载更多内容 ↓