<%@ language = "vbscript" codepage = 936%>

<%
option explicit '強制定義變量
dim idcount'記錄總數(shù)
dim pages'每頁條數(shù)
dim pagec'總頁數(shù)
dim page'頁碼
dim pagenc '每頁顯示的分頁頁碼數(shù)量=pagenc*2+1
pagenc=2
dim pagenmax '每頁顯示的分頁的最大頁碼
dim pagenmin '每頁顯示的分頁的最小頁碼
page=clng(request("page"))
dim start'程序開始的時間
dim endt'程序結(jié)束的時間
dim datafrom'數(shù)據(jù)表名
datafrom="table1"
dim conn,rs
dim datapath '數(shù)據(jù)庫路經(jīng)
dim sqlid'本頁需要用到的id
dim myself'本頁地址
myself = request.servervariables("path_info")
dim sql'sql語句
dim taxis'排序的語句
'taxis="order by id asc" '正排序
taxis="order by id desc" '倒排序
dim i'用于循環(huán)的整數(shù)
start=timer()
datapath="db.mdb"'數(shù)據(jù)庫
pages=30

'連接打開數(shù)據(jù)庫
dim db
db="db.mdb"     '定義數(shù)據(jù)庫路徑及名稱
set conn = server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(db)
if err.number <> 0 then
   response.write "數(shù)據(jù)庫鏈接出錯!"
   response.end()
end if

'獲取記錄總數(shù)