{"id":23,"date":"2007-12-28T22:49:08","date_gmt":"2007-12-28T22:49:08","guid":{"rendered":""},"modified":"2007-12-28T22:49:08","modified_gmt":"2007-12-28T22:49:08","slug":"23","status":"publish","type":"post","link":"https:\/\/www.poloo.org\/?p=23","title":{"rendered":"Asp\u901a\u7528\u5206\u9875\u7a0b\u5e8f"},"content":{"rendered":"


<%
'+++++++++++++++++++++++++++++++++++++
'\u25c6\u6a21\u5757\u540d\u79f0\uff1a \u516c\u5171\u7ffb\u9875\u6a21\u5757
'\u25c6\u6587 \u4ef6 \u540d\uff1a TurnPage.asp
'\u25c6\u4f20\u5165\u53c2\u6570\uff1a Rs_tmp (\u8bb0\u5f55\u96c6), PageSize (\u6bcf\u9875\u663e\u793a\u7684\u8bb0\u5f55\u6761\u6570)
'\u25c6\u8f93 \u51fa\uff1a \u8bb0\u5f55\u96c6\u7ffb\u9875\u663e\u793a\u529f\u80fd
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp \u8bb0\u5f55\u96c6 ; PageSize \u6bcf\u9875\u663e\u793a\u7684\u8bb0\u5f55\u6761\u6570;
Dim TotalPage '\u603b\u9875\u6570
Dim PageNo '\u5f53\u524d\u663e\u793a\u7684\u662f\u7b2c\u51e0\u9875
Dim RecordCount '\u603b\u8bb0\u5f55\u6761\u6570
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount \/ PageSize * -1)*-1
PageNo = Request.QueryString (\"PageNo\")
'\u76f4\u63a5\u8f93\u5165\u9875\u6570\u8df3\u8f6c\uff1b
If Request.Form(\"PageNo\")<>\"\" Then PageNo = Request.Form(\"PageNo\")
'\u5982\u679c\u6ca1\u6709\u9009\u62e9\u7b2c\u51e0\u9875\uff0c\u5219\u9ed8\u8ba4\u663e\u793a\u7b2c\u4e00\u9875\uff1b
If PageNo = \"\" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If<\/p>\n

'\u83b7\u53d6\u5f53\u524d\u6587\u4ef6\u540d\uff0c\u4f7f\u5f97\u6bcf\u6b21\u7ffb\u9875\u90fd\u5728\u5f53\u524d\u9875\u9762\u8fdb\u884c\uff1b
Dim fileName,postion
fileName = Request.ServerVariables(\"script_name\")
postion = InstrRev(fileName,\"\/\")+1
'\u53d6\u5f97\u5f53\u524d\u7684\u6587\u4ef6\u540d\u79f0\uff0c\u4f7f\u7ffb\u9875\u7684\u94fe\u63a5\u6307\u5411\u5f53\u524d\u6587\u4ef6\uff1b
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> \u603b\u9875\u6570\uff1a<font color=#ff3333><%=TotalPage%><\/font>\u9875
\u5f53\u524d\u7b2c<font color=#ff3333><%=PageNo%><\/font>\u9875<\/td>
<td align=\"right\">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write \"\u9996\u9875|\u524d\u9875|\u540e\u9875|\u672b\u9875\"
Else%>
<a href=\"<%=fileName%>?PageNo=1\">\u9996\u9875|<\/a>
<%If PageNo - 1 = 0 Then
Response.Write \"\u524d\u9875|\"
Else%>
<a href=\"<%=fileName%>?PageNo=<%=PageNo-1%>\">\u524d\u9875|<\/a>
<%End If<\/p>\n

If PageNo+1 > TotalPage Then
Response.Write \"\u540e\u9875|\"
Else%>
<a href=\"<%=fileName%>?PageNo=<%=PageNo+1%>\">\u540e\u9875|<\/a>
<%End If%><\/p>\n

<a href=\"<%=fileName%>?PageNo=<%=TotalPage%>\">\u672b\u9875<\/a>
<%End If%><\/td>
<td width=95>\u8f6c\u5230\u7b2c
<%If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style=\"background:#d3d3d3\">
<%Else%>
<input type=text name=PageNo size=3 value=\"\" title=\u8bf7\u8f93\u5165\u9875\u53f7,\u7136\u540e\u56de\u8f66>
<%End If%>\u9875
<\/td>
<\/tr>
<\/table>
<%End Sub%>
<\/code><\/p>\n

\u3000\u3000\u5f53\u7136\uff0c\u5927\u5bb6\u53ef\u4ee5\u628a\u7ffb\u9875\u7684\u94fe\u63a5\u505a\u6210\u56fe\u7247\u6309\u94ae\uff0c\u8fd9\u6837\u7684\u8bdd\u4e5f\u9762\u5c31\u66f4\u52a0\u7f8e\u89c2\u4e86\u3002
\u3000\u3000\u8c03\u7528\u65b9\u6cd5:
\u3000\u30001\u3001\u5728\u7a0b\u5e8f\u5f00\u59cb\u6216\u8981\u4f7f\u7528\u7ffb\u9875\u7684\u5730\u65b9\u5305\u542b\u7ffb\u9875\u6a21\u5757\u6587\u4ef6\uff1b
\u3000\u30002\u3001\u5b9a\u4e49\u53d8\u91cf\uff1aRowCount\uff0c\u6bcf\u9875\u663e\u793a\u7684\u8bb0\u5f55\u6761\u6570
\u3000\u30003\u3001\u8c03\u7528\u7ffb\u9875\u8fc7\u7a0b\uff1aCall TurnPage(\u8bb0\u5f55\u96c6,RowCount)
\u3000\u30004\u3001\u5728Do While \u5faa\u73af\u8f93\u51fa\u8bb0\u5f55\u96c6\u7684\u6761\u4ef6\u4e2d\u52a0\u4e0a” RowCount > 0 ” \u6761\u4ef6
\u3000\u30005\u3001\u5728\u5faa\u73af\u7ed3\u675f “Loop\u524d” \u52a0\u4e0a\uff1a RowCount = RowCount – 1<\/p>\n

‘—————————————————–
\u8c03\u7528\u8303\u4f8b\uff1a
\u6587\u4ef6\u540d\uff1aNews.asp

<%
Dim Conn\uff0cRs_News
Set Conn = server.CreateObject(\"ADODB.CONNECTION\")
Conn.Open \"cpm\",\"cpm\",\"cpm\"<\/p>\n

Dim Sql
Sql = \"Select * from News\"
Set Rs_News = Server.CreateObject(\"ADODB.RECORDSET\")
Rs_News.Open Sql,Conn,1,3 '\u83b7\u53d6\u7684\u8bb0\u5f55\u96c6<\/p>\n

'\u516c\u5171\u7ffb\u9875\u6a21\u5757\u5f00\u59cb%>
<!--#include file=..\/Public\/TurnPage.asp-->
<%
Dim RowCount
RowCount = 10 '\u6bcf\u9875\u663e\u793a\u7684\u8bb0\u5f55\u6761\u6570
Call TurnPage(Rs_News,RowCount)
'\u516c\u5171\u7ffb\u9875\u6a21\u5757\u7ed3\u675f%> <\/p>\n

<table width=100%>
<tr>
<td>\u65b0\u95fb\u7f16\u53f7<\/td>
<td>\u65b0\u95fb\u6807\u9898<\/td>
<td>\u53d1\u5e03\u65e5\u671f<\/td>
<tr>
<%
If Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
<tr>
<td><%=Rs_News(\"ID\")%><\/td>
<td><%=Rs_News(\"Name\")%><\/td>
<td><%=Rs_News(\"Date\")%><\/td>
<tr>
<%
RowCount = RowCount - 1
Rs_News.MoveNext
Loop
End If
%>
<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

<%’++++++++++++++++++++++++++++...<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"class_list":["post-23","post","type-post","status-publish","format-standard","hentry","category-Dream"],"_links":{"self":[{"href":"https:\/\/www.poloo.org\/index.php?rest_route=\/wp\/v2\/posts\/23","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.poloo.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.poloo.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.poloo.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.poloo.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=23"}],"version-history":[{"count":0,"href":"https:\/\/www.poloo.org\/index.php?rest_route=\/wp\/v2\/posts\/23\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.poloo.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=23"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.poloo.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=23"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.poloo.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=23"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}