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