一個超強通用的分頁顯示函數

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- 一個超強通用的分頁顯示函數 (http://www.webasp.net/article/13/12720.htm)
-- 作者：guidy
-- 發佈日期： 2004-08-30
<%
Option Explicit
Response.Buffer = True
On Error Resume Next
Dim StarTime,EndTime,Sql_Use,Conn,Db,ConnStr

Rem ##########################################################################
Rem ## 說明：本例中使用的數據庫是動網論壇IP數據庫 ##
Rem ## 如果不想更換可以自行從動網論壇中找。 ##
Rem ## 如果想更換數據庫，那麼你必須修改相應的SQL語句和其它參數 ##
Rem ## 發佈的該文檔中我將JS附加在下面了，並且去掉了CSS等，可自行添加啦！ ##
Rem ##########################################################################

StarTime = Timer()

'第一次使用請修改本處數據庫地址並相應修改data目錄中數據庫名稱
'Db = "DataBase/iXuEr_Data_PAMS1.mdb"
Db = "/DataBase/Ipaddress.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr

If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "The database connection error, please check the connection character string."
'Response.Write "數據庫連接錯誤，請檢查連接字符串。"
Response.End
End If

Function CloseDB()
Conn.close
Set Conn = Nothing
End Function
'=========================================================
' 文件：iXuEr_Data_PageShow
' 功能：將指定數據庫的指定項目進行分頁讀取
' 時間：2004-08-29
' 作者：Guidy
' 版權：iXuEr Studio
'=========================================================
' Copyright (C) 2004-2006 114XP.CN All rights reserved.
' 官方網站：HTTP://www.114xp.cn
' 技術論壇：HTTP://bbs.114xp.cn
' 電子信箱：guidy@qq.com,guidy@psysch.com
'=========================================================

Dim SqlStr,DateNums,PageNums,URLs

SqlStr = "SELECT * FROM dv_address"
Conn = Conn
DateNums = 20
PageNums = Request("Page")
URLs = ""

'################################################################################
'使用之前需要預先定義這三個函數，根據自己適用情況而定
'################################################################################
Function iXuEr_Page_DHead()
Response.Write("<hr>表頭<hr>")
End Function
'--------------------------------------------------------------------------------
Function iXuEr_Page_DBody(DPS_Rs)
Response.Write("數據：" & DPS_Rs("IP1") & "---" & DPS_Rs("IP2") & "---" & DPS_Rs("country") & "---" & DPS_Rs("city") & "<br>")
End Function
'--------------------------------------------------------------------------------
Function iXuEr_Page_DTail()
Response.Write("<hr>表尾<hr>")
End Function
'################################################################################
Call iXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
'################################################################################
Function iXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
'=========================================================
' 函數：iXuEr_Data_PageShow(SqlStr,Conn,DateNums,PageNums,URLs)
' 功能：將指定數據庫的指定項目進行分頁讀取
' 參數：SQL語句，數據庫鏈接對象，每頁數量，頁碼，連接URLs
' 返回：字符串
' 時間：2004-08-29
' 作者：Guidy
' 版權：iXuEr Studio
'=========================================================
' Copyright (C) 2004-2006 114XP.CN All Rights Reserved.
' 官方網站：http://www.114xp.cn
' 技術論壇：http://bbs.114xp.cn
' 電子信箱：guidy@qq.com,guidy@psysch.com
'=========================================================

Dim DPS_Rs,DPS_Conn
Dim Sql
Dim Page
Dim DPS_i

'創建Recordset對像
Set DPS_Rs = Server.CreateObject("Adodb.Recordset")
'初始化Sql語句
Sql = SqlStr
DPS_Conn = Conn
'執行Sql
DPS_Rs.Open Sql,DPS_Conn,1,3
'初始化頁面大小－－每頁顯示數目
DPS_Rs.PageSize = DateNums
'初始化頁碼
Page = Clng(PageNums)
'如果頁碼小於1，或者沒有選擇頁碼，則強制轉到第一頁
If IsNull(Page) Or Page = "" Then Page = 1
If Page <= 1 then Page = 1
'如果頁碼大於最大值，則強制轉到最後一頁
If Page>=DPS_Rs.PageCount Then Page=DPS_Rs.PageCount
'如果頁碼不等於1，則跳轉至指定頁面讀取數據
If Page <> 1 then
If (Page - 1) * DPS_Rs.Pagesize < DPS_Rs.RecordCount then
DPS_Rs.Move (Page - 1) * DPS_Rs.PageSize
End If
End If
Call iXuEr_Page_URLs(Page,URLs,DPS_Rs,"DPS_TP1","Page")
'數據顯示表格頭部
Call iXuEr_Page_DHead()
DPS_i = 0
Do While Not DPS_Rs.eof And DPS_i < DPS_Rs.Pagesize
'數據顯示主體部分
Call iXuEr_Page_DBody(DPS_Rs)
DPS_i = DPS_i + 1
DPS_Rs.MoveNext
Loop
'數據顯示表格尾部
Call iXuEr_Page_DTail()

Call iXuEr_Page_URLs(Page,URLs,DPS_Rs,"DPS_TP2","Page")
DPS_Rs.Close
Set DPS_Rs = Nothing
End Function
Function iXuEr_Page_URLs(Page,URLs,DPS_Rs,FormName,InPutName)
If URLs = "" Or IsNull(URLs) Then URLs = "?="
Response.Write("<table width='100%'><tr align=center><form onsubmit='return numericCheck(""" & FormName & """,""" & InPutName & """)' name=" & FormName & " method=post action=" & URLs & "><td>" & DPS_Rs.PageSize & "個/頁&nbsp;&nbsp;&nbsp;頁數：" & Page & "/" & DPS_Rs.PageCount & "&nbsp;&nbsp; 共" & DPS_Rs.recordcount & "個&nbsp;&nbsp;&nbsp;")
If Page <> 1 then
Response.Write ("[" & "<a href=""" & URLs & "&" & InPutName & "=1"" title=""返回到第一頁"">首頁</a>]")
Response.Write ("[" & "<a href=""" & URLs & "&" & InPutName & "=" & Page - 1 & """ title=""返回到" & Cstr(Page - 1) & "頁"">上一頁</a>] ")
else
Response.Write ("[首頁] [上一頁]")
End If
If Page <> DPS_Rs.PageCount then
Response.Write ("[" & "<a href=""" & URLs & "&" & InPutName & "=" & Page + 1 & """ title=""前進到" & Cstr(Page + 1) & "頁"">下一頁</a>] ")
Response.Write ("[" & "<a href=""" & URLs & "&" & InPutName & "=" & DPS_Rs.PageCount & """ title=""前進到最後一頁"">尾頁</a>] ")
else
Response.Write ("[下一頁] [尾頁]")
End If
Response.Write("&nbsp;&nbsp;<input name=" & InPutName & " type=text style=""text-align: center;"" id=" & InPutName & " value=" & Page & " size=6 maxlength=10 title=""請輸入您想跳轉到的頁數"">&nbsp;<input name=topPage type=Submit value=跳頁 title=""點擊將跳轉到您輸入的頁數"">")
Response.Write("</td></form></tr></table>")
End Function
%>
<script language="javascript1.2">
//#########################################################################################
//檢測表單中的數據並只允許輸入數字
function numericCheck(myform,myinput){
//設定要檢查的表單對像名稱
var nr1=eval("document."+myform+"."+myinput+".value;");
var flg=0;
var str="";
var spc=""
var arw="";
for (var i=0;i<nr1.length;i++){
var cmp="0123456789"
var tst=nr1.substring(i,i+1)
if (cmp.indexOf(tst)<0){
flg++;
tst=tst.replace(" ","[空格]")
str+="\n第"+(i+1)+"位的："+tst;
spc+=tst;
arw+="^";
}
else{
arw+="_";
}
}
if (flg!=0){
if (spc.indexOf("[空格]")>-1) {
str+="\n────────────────────────\n注意：空格被禁用！";
}
alert("這裡只接受數字，發現 " + flg + " 個不可接受的字符，分別是:\n════════════════════════"+str);
return false;
}
}
//檢測表單中的數據並只允許輸入數字結束

//#########################################################################################
</script>
webasp.net