{"id":55,"date":"2007-09-06T11:42:13","date_gmt":"2007-09-06T03:42:13","guid":{"rendered":"http:\/\/www.cnmiss.cn\/?p=54"},"modified":"2010-12-02T06:31:45","modified_gmt":"2010-12-02T06:31:45","slug":"access-2000-%e6%95%b0%e6%8d%ae%e5%ba%93-80-%e4%b8%87%e8%ae%b0%e5%bd%95%e9%80%9a%e7%94%a8%e5%bf%ab%e9%80%9f%e5%88%86%e9%a1%b5%e7%b1%bb","status":"publish","type":"post","link":"https:\/\/www.cnmiss.cn\/?p=55","title":{"rendered":"Access 2000 \u6570\u636e\u5e93 80 \u4e07\u8bb0\u5f55\u901a\u7528\u5feb\u901f\u5206\u9875\u7c7b"},"content":{"rendered":"

\u4e3b\u8981\u601d\u8def: \u7528\u4e00\u6761\u8bed\u53e5\u7edf\u8ba1(Count)\u51fa\u8bb0\u5f55\u6570(\u800c\u4e0d\u5728\u67e5\u8be2\u65f6\u83b7\u5f97 RecordCount \u5c5e\u6027), \u7f13\u5b58\u5728 Cookies \u4e2d, \u8df3\u8f6c\u65f6\u5c31\u4e0d\u7528\u518d\u6b21\u7edf\u8ba1, \u5206\u9875\u8df3\u8f6c\u94fe\u63a5\u4e5f\u7531\u6b64\u6765, \u4f7f\u7528 ADO \u7684 AbsolutePage \u5c5e\u6027\u8bbe\u7f6e\u5f53\u524d\u9875\u9762, \u8fd4\u56deintPageSize \u6761\u8bb0\u5f55. \u4e3a\u65b9\u4fbf\u8c03\u7528\u800c\u5199\u6210\u7c7b, \u4ee3\u7801\u4e3b\u8981\u5730\u65b9\u5df2\u6709\u8bf4\u660e<\/p>\n

\u786c\u4ef6\u73af\u5883: AMD Athlon XP 2600+, 256 DDR
\u8f6f\u4ef6\u73af\u5883: MS Windows 2000 Advanced Server + IIS 5.0 + Access 2000 + IE 6.0
\u6d4b\u8bd5\u7ed3\u679c: \u521d\u6b21\u8fd0\u884c\u5728 250(\u9996\u9875) – 400(\u672b\u9875)\u6beb\u79d2, (\u8bb0\u5f55\u6570\u7f13\u5b58\u540e)\u5728\u9875\u9762\u95f4\u8df3\u8f6c\u7a33\u5b9a\u5728 47 \u6beb\u79d2\u4ee5\u4e0b.\u7b2c1\u9875\u8df3\u5230\u6700\u540e\u4e00\u9875\u4e0d\u591a\u4e8e 350 \u6beb\u79d2 <\/p>\n

\u9002\u7528\u8303\u56f4: \u7528\u4e8e\u666e\u901a\u5206\u9875. \u4e0d\u9002\u7528\u4e8e\u6709\u8f83\u590d\u6742\u7684\u67e5\u8be2\u65f6: \u5982\u6761\u4ef6\u4e3a"[Title] Like '%\u6700\u7231%'", \u67e5\u8be2\u7684\u65f6\u95f4\u5927\u5927\u589e\u52a0, \u5c31\u7b97 Title \u5b57\u6bb5\u4f5c\u4e86\u7d22\u5f15\u4e5f\u6ca1\u7528. \ud83d\ude41 <\/p>\n

<%@LANGUAGE = "VBScript" CODEPAGE="936"%>
<%Option Explicit%>
<%
Dim intDateStart
intDateStart = Timer()
Rem ## \u6253\u5f00\u6570\u636e\u5e93\u8fde\u63a5
Rem #################################################################
function f__OpenConn()
Dim strDbPath
Dim connstr
strDbPath = "..\/db\/test.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath(strDbPath)
Set conn = Server.CreateObject("Adodb.Connection")
conn.open connstr
End function
Rem #################################################################<\/p>\n

Rem ## \u5173\u95ed\u6570\u636e\u5e93\u8fde\u63a5
Rem #################################################################
function f__CloseConn()
If IsObject(conn) Then
conn.close
End If
Set conn = nothing
End function
Rem #################################################################
Rem \u83b7\u5f97\u6267\u884c\u65f6\u95f4
Rem #################################################################
function getTimeOver(iflag)
Dim tTimeOver
If iflag = 1 Then
tTimeOver = FormatNumber(Timer() – intDateStart, 6, true)
getTimeOver = " \u6267\u884c\u65f6\u95f4: " & tTimeOver & " \u79d2"
Else
tTimeOver = FormatNumber((Timer() – intDateStart) * 1000, 3, true)
getTimeOver = " \u6267\u884c\u65f6\u95f4: " & tTimeOver & " \u6beb\u79d2"
End If
End function
Rem #################################################################
Class Cls_PageView
Private sbooInitState
Private sstrCookiesName
Private sstrPageUrl
Private sstrPageVar
Private sstrTableName
Private sstrFieldsList
Private sstrCondiction
Private sstrOrderList
Private sstrPrimaryKey
Private sintRefresh<\/p>\n

Private sintRecordCount
Private sintPageSize
Private sintPageNow
Private sintPageMax<\/p>\n

Private sobjConn<\/p>\n

Private sstrPageInfo<\/p>\n

Private Sub Class_Initialize
Call ClearVars()
End Sub<\/p>\n

Private Sub class_terminate()
Set sobjConn = nothing
End Sub<\/p>\n

Public Sub ClearVars()
sbooInitState = False
sstrCookiesName = ""
sstrPageUrl = ""
sstrPageVar = "page"
sstrTableName = ""
sstrFieldsList = ""
sstrCondiction = ""
sstrOrderList = ""
sstrPrimaryKey = ""
sintRefresh = 0<\/p>\n

sintRecordCount = 0
sintPageSize = 0
sintPageNow = 0
sintPageMax = 0
End Sub<\/p>\n

Rem ## \u4fdd\u5b58\u8bb0\u5f55\u6570\u7684 Cookies \u53d8\u91cf
Public Property Let strCookiesName(Value)
sstrCookiesName = Value
End Property<\/p>\n

Rem ## \u8f6c\u5411\u5730\u5740
Public Property Let strPageUrl(Value)
sstrPageUrl = Value
End Property<\/p>\n

Rem ## \u8868\u540d
Public Property Let strTableName(Value)
sstrTableName = Value
End Property<\/p>\n

Rem ## \u5b57\u6bb5\u5217\u8868
Public Property Let strFieldsList(Value)
sstrFieldsList = Value
End Property<\/p>\n

Rem ## \u67e5\u8be2\u6761\u4ef6
Public Property Let strCondiction(Value)
If Value <> "" Then
sstrCondiction = " WHERE " & Value
Else
sstrCondiction = ""
End If
End Property<\/p>\n

Rem ## \u6392\u5e8f\u5b57\u6bb5, \u5982: [ID] ASC, [CreateDateTime] DESC
Public Property Let strOrderList(Value)
If Value <> "" Then
sstrOrderList = " ORDER BY " & Value
Else
sstrOrderList = ""
End If
End Property<\/p>\n

Rem ## \u7528\u4e8e\u7edf\u8ba1\u8bb0\u5f55\u6570\u7684\u5b57\u6bb5
Public Property Let strPrimaryKey(Value)
sstrPrimaryKey = Value
End Property<\/p>\n

Rem ## \u6bcf\u9875\u663e\u793a\u7684\u8bb0\u5f55\u6761\u6570
Public Property Let intPageSize(Value)
sintPageSize = toNum(Value, 20)
End Property<\/p>\n

Rem ## \u6570\u636e\u5e93\u8fde\u63a5\u5bf9\u8c61
Public Property Let objConn(Value)
Set sobjConn = Value
End Property<\/p>\n

Rem ## \u5f53\u524d\u9875
Public Property Let intPageNow(Value)
sintPageNow = toNum(Value, 1)
End Property<\/p>\n

Rem ## \u9875\u9762\u53c2\u6570
Public Property Let strPageVar(Value)
sstrPageVar = Value
End Property<\/p>\n

Rem ## \u662f\u5426\u5237\u65b0. 1 \u4e3a\u5237\u65b0, \u5176\u4ed6\u503c\u5219\u4e0d\u5237\u65b0
Public Property Let intRefresh(Value)
sintRefresh = toNum(Value, 0)
End Property<\/p>\n

Rem ## \u83b7\u5f97\u5f53\u524d\u9875
Public Property Get intPageNow()
intPageNow = singPageNow
End Property<\/p>\n

Rem ## \u5206\u9875\u4fe1\u606f
Public Property Get strPageInfo()
strPageInfo = sstrPageInfo
End Property<\/p>\n

Rem ## \u53d6\u5f97\u8bb0\u5f55\u96c6, \u4e8c\u7ef4\u6570\u7ec4\u6216\u5b57\u4e32, \u5728\u8fdb\u884c\u5faa\u73af\u8f93\u51fa\u65f6\u5fc5\u987b\u7528 IsArray() \u5224\u65ad
Public Property Get arrRecordInfo()
If Not sbooInitState Then
Exit Property
End If<\/p>\n

Dim rs, sql
sql = "SELECT " & sstrFieldsList & _
" FROM " & sstrTableName & _
sstrCondiction & _
sstrOrderList<\/p>\n

Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sql, sobjConn, 1, 1
If Not(rs.eof or rs.bof) Then
rs.PageSize = sintPageSize
rs.AbsolutePage = sintPageNow
If Not(rs.eof or rs.bof) Then
arrRecordInfo = rs.getrows(sintPageSize)
Else
arrRecordInfo = ""
End If
Else
arrRecordInfo = ""
End If
rs.close
Set rs = nothing
End Property<\/p>\n

Rem ## \u521d\u59cb\u5316\u8bb0\u5f55\u6570
Private Sub InitRecordCount()
sintRecordCount = 0
If Not(sbooInitState) Then Exit Sub
Dim sintTmp
sintTmp = toNum(request.Cookies("_xp_" & sstrCookiesName), -1)
If ((sintTmp < 0) Or (sintRefresh = 1))Then
Dim sql, rs
sql = "SELECT COUNT(" & sstrPrimaryKey & ")" & _
" FROM " & sstrTableName & _
sstrCondiction
Set rs = sobjConn.execute(sql)
If rs.eof or rs.bof Then
sintTmp = 0
Else
sintTmp = rs(0)
End If
sintRecordCount = sintTmp<\/p>\n

response.Cookies("_xp_" & sstrCookiesName) = sintTmp
Else
sintRecordCount = sintTmp
End If
End Sub<\/p>\n

Rem ## \u521d\u59cb\u5316\u5206\u9875\u4fe1\u606f
Private Sub InitPageInfo()
sstrPageInfo = ""
If Not(sbooInitState) Then Exit Sub<\/p>\n

Dim surl
surl = sstrPageUrl
If Instr(1, surl, "?", 1) > 0 Then
surl = surl & "&" & sstrPageVar & "="
Else
surl = surl & "?" & sstrPageVar &<\/p>\n

"="
End If<\/p>\n

If sintPageNow <= 0 Then sintPageNow = 1
If sintRecordCount mod sintPageSize = 0 Then
sintPageMax = sintRecordCount \\ sintPageSize
Else
sintPageMax = sintRecordCount \\ sintPageSize + 1
End If
If sintPageNow > sintPageMax Then sintPageNow = sintPageMax<\/p>\n

If sintPageNow <= 1 then
sstrPageInfo = "\u9996\u9875 \u4e0a\u4e00\u9875"
Else
sstrPageInfo = sstrPageInfo & " <a href=""" & surl & "1"">\u9996\u9875<\/a>"
sstrPageInfo = sstrPageInfo & " <a href=""" & surl & (sintPageNow – 1) & """>\u4e0a\u4e00\u9875<\/a>"
End If<\/p>\n

If sintPageMax – sintPageNow < 1 then
sstrPageInfo = sstrPageInfo & " \u4e0b\u4e00\u9875 \u672b\u9875 "
Else
sstrPageInfo = sstrPageInfo & " <a href=""" & surl & (sintPageNow + 1) & """>\u4e0b\u4e00\u9875<\/a> "
sstrPageInfo = sstrPageInfo & " <a href=""" & surl & sintPageMax & """>\u672b\u9875<\/a> "
End If<\/p>\n

sstrPageInfo = sstrPageInfo & " \u9875\u6b21\uff1a<strong><font color=""#990000"">" & sintPageNow & "<\/font> \/ " & sintPageMax & " <\/strong>"
sstrPageInfo = sstrPageInfo & " \u5171 <strong>" & sintRecordCount & "<\/strong> \u6761\u8bb0\u5f55 <strong>" & sintPageSize & "<\/strong> \u6761\/\u9875 "
End Sub<\/p>\n

Rem ## \u957f\u6574\u6570\u8f6c\u6362
Private function toNum(s, Default)
s = s & ""
If s <> "" And IsNumeric(s) Then
toNum = CLng(s)
Else
toNum = Default
End If
End function<\/p>\n

Rem ## \u7c7b\u521d\u59cb\u5316
Public Sub InitClass()
sbooInitState = True
If Not(IsObject(sobjConn)) Then sbooInitState = False
Call InitRecordCount()
Call InitPageInfo()
End Sub
End Class
Dim strLocalUrl
strLocalUrl = request.ServerVariables("SCRIPT_NAME")<\/p>\n

Dim intPageNow
intPageNow = request.QueryString("page")<\/p>\n

Dim intPageSize, strPageInfo
intPageSize = 30<\/p>\n

Dim arrRecordInfo, i
Dim Conn
f__OpenConn
Dim clsRecordInfo
Set clsRecordInfo = New Cls_PageView<\/p>\n

clsRecordInfo.strTableName = "[myTable]"
clsRecordInfo.strPageUrl = strLocalUrl
clsRecordInfo.strFieldsList = "[ID], [Title], [LastTime]"
clsRecordInfo.strCondiction = "[ID] < 10000"
clsRecordInfo.strOrderList = "[ID] ASC"
clsRecordInfo.strPrimaryKey = "[ID]"
clsRecordInfo.intPageSize = 20
clsRecordInfo.intPageNow = intPageNow<\/p>\n

clsRecordInfo.strCookiesName = "RecordCount"
clsRecordInfo.strPageVar = "page"<\/p>\n

clsRecordInfo.intRefresh = 0
clsRecordInfo.objConn = Conn
clsRecordInfo.InitClass<\/p>\n

arrRecordInfo = clsRecordInfo.arrRecordInfo
strPageInfo = clsRecordInfo.strPageInfo
Set clsRecordInfo = nothing
f__CloseConn
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text\/html; charset=gb2312">
<title>\u5206\u9875\u6d4b\u8bd5<\/title>
<style type="text\/css">
<!–
.PageView {
font-size: 12px;
}
.PageView td {
border-right-style: solid;
border-bottom-style: solid;
border-right-color: #E0E0E0;
border-bottom-color: #E0E0E0;
border-right-width: 1px;
border-bottom-width: 1px;
}
.PageView table {
border-left-style: solid;
border-top-style: solid;
border-left-color: #E0E0E0;
border-top-color: #E0E0E0;
border-top-width: 1px;
border-left-width: 1px;
}
tr.Header {
background: #EFF7FF;
font-size: 14px;
font-weight: bold;
line-height: 120%;
text-align: center;
}
–>
<\/style>
<style type="text\/css">
<!–
body {
font-size: 12px;
}
a:link {
color: #993300;
text-decoration: none;
}
a:visited {
color: #003366;
text-decoration: none;
}
a:hover {
color: #0066CC;
text-decoration: underline;
}
a:active {
color: #000000;
text-decoration: none;
}
table {
font-size: 12px;
}
–>
<\/style>
<\/head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td> <%= strPageInfo%><\/td>
<\/tr>
<\/table>
<div class="PageView">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="Header">
<td>ID<\/td>
<td>\u63cf\u8ff0<\/td>
<td>\u65e5\u671f<\/td>
<\/tr>
<%
If IsArray(arrRecordInfo) Then
For i = 0 to UBound(arrRecordInfo, 2)
%>
<tr>
<td> <%= arrRecordInfo(0, i)%><\/td>
<td> <%= arrRecordInfo(1, i)%><\/td>
<td> <%= arrRecordInfo(2, i)%><\/td>
<\/tr>
<%
Next
End If
%>
<\/table>
<\/div>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td> <%= strPageInfo%><\/td>
<\/tr>
<\/table>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td align="center"> <%= getTimeOver(1)%><\/td>
<\/tr>
<\/table>
<\/body>
<\/html><\/p><\/blockquote>\n

\u8fd9\u91cc\u5c06\u6240\u6709\u4ee3\u7801\u96c6\u4e2d\u5728\u4e00\u8d77\u662f\u4e3a\u4e86\u53d9\u8ff0\u548c\u6d4b\u8bd5\u65b9\u4fbf, \u5177\u4f53\u5e94\u7528\u4f60\u53ef\u4ee5\u5c06\u7c7b\u653e\u5728\u5355\u72ec\u4e00\u4e2a\u6587\u4ef6, \u7136\u540e\u591a\u5904\u8c03\u7528. \u8bf7\u5c06\u9002\u5f53\u7684\u65f6\u5019\u5224\u65ad\u7528\u6237\u662f\u5426\u8fdb\u884c\u8bf7\u6c42, \u66f4\u6539 intRefresh, \u4ee5\u4fbf\u544a\u77e5\u5206\u9875\u7c7b\u662f\u5426\u91cd\u65b0\u7edf\u8ba1\u8bb0\u5f55\u6570.<\/p>\n","protected":false},"excerpt":{"rendered":"

\u4e3b\u8981\u601d\u8def: \u7528\u4e00\u6761\u8bed\u53e5\u7edf\u8ba1(Count)\u51fa\u8bb0\u5f55\u6570(\u800c\u4e0d\u5728\u67e5\u8be2\u65f6\u83b7\u5f97 Record … \u7ee7\u7eed\u9605\u8bfb →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[10],"class_list":["post-55","post","type-post","status-publish","format-standard","hentry","category-xxbj","tag-access"],"_links":{"self":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts\/55","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=55"}],"version-history":[{"count":0,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts\/55\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=55"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=55"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=55"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}