ASP+Ajax實現(xiàn)無刷新評論簡單例子
更新時間：2007年07月03日 00:00:00 作者：
<!--#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ù)庫對象
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 '定義連接數(shù)據(jù)庫對象
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>")
%>
打包文件下載
相關(guān)文章
在開發(fā)中，當(dāng)一個列表頁面加載完成后，我需要根據(jù)列表每一項的id去服務(wù)器端獲取對應(yīng)的數(shù)據(jù)然后再把獲取的數(shù)據(jù)賦給當(dāng)前id對應(yīng)的標(biāo)簽，怎么實現(xiàn)的呢？下面小編給大家介紹下ajax中的循環(huán)方案，感興趣的朋友一起學(xué)習(xí)吧2016-10-10
這篇文章主要為大家詳細(xì)介紹了ajax上傳多圖到php服務(wù)器的方法，具有一定的參考價值，感興趣的小伙伴們可以參考一下2018-05-05
ajax的定義簡單描述了ajax的功能、用處,需要的朋友可以參考一下2007-12-12
局部刷新某個div下的jsp可以通過setInterval或者是setTimeout來輕松實現(xiàn)，具體如下，有此需求的朋友可以參考下，希望對大家有所幫助2013-08-08
這篇文章主要為大家詳細(xì)介紹了ajax實現(xiàn)頁面加載和內(nèi)容刪除的相關(guān)資料，具有一定的參考價值，感興趣的小伙伴們可以參考一下2017-03-03
Ajax 給 XMLHttpReq.onreadystatechange傳遞參數(shù)
這篇文章主要介紹了Ajax如何給XMLHttpReq.onreadystatechange =函數(shù)傳遞參數(shù),需要的朋友可以參考下2014-05-05
下面小編就為大家?guī)硪黄鷄jax瀑布流demo分享(必看篇)。小編覺得挺不錯的，現(xiàn)在就分享給大家，也給大家做個參考。一起跟隨小編過來看看吧2017-05-05
雖然ajax全稱是asynchronous javascript and XML。但目前使用ajax技術(shù)時，傳遞JSON已經(jīng)成為事實上的標(biāo)準(zhǔn)。這篇文章主要介紹了Ajax 傳遞JSON實例代碼,需要的朋友可以參考下2017-03-03
Ajax 是一個令人誤導(dǎo)的名稱,Ajax 應(yīng)用程序可能使用 XML 來傳輸數(shù)據(jù),但將數(shù)據(jù)作為純文本或 JSON 文本傳輸也同樣常見,本文給大家介紹ajax設(shè)置header指南教程,感興趣的朋友一起看看吧2023-10-10
PPJOKE 0.1 (網(wǎng)頁嵌入聊天)提供下載...2006-10-10