国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發(fā) > AJAX > 正文

ASP+Ajax實(shí)現(xiàn)無刷新評(píng)論簡(jiǎn)單例子

2024-09-01 08:29:41
字體:
供稿:網(wǎng)友
<!--#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  '定義連接數(shù)據(jù)庫對(duì)象
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>")
%>
打包文件下載
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 开江县| 临潭县| 盘锦市| 广元市| 米林县| 乌兰察布市| 吉安县| 清水河县| 临泽县| 登封市| 化州市| 正宁县| 四子王旗| 遂平县| 华池县| 桃园县| 襄垣县| 华宁县| 三穗县| 黔江区| 金寨县| 景宁| 延津县| 迭部县| 秀山| 焉耆| 搜索| 德安县| 元阳县| 巴里| 东安县| 晴隆县| 皮山县| 满城县| 玉龙| 图们市| 江油市| 富源县| 霍邱县| 新郑市| 临沧市|