{"id":2400,"date":"2007-09-11T16:47:15","date_gmt":"2007-09-11T08:47:15","guid":{"rendered":"https:\/\/www.ecjtu.com\/keith\/archives\/2400"},"modified":"2007-09-30T13:16:32","modified_gmt":"2007-09-30T05:16:32","slug":"asp-%e8%b6%85%e5%bc%ba%e5%88%86%e9%a1%b5%e7%b1%bb-%e6%af%94%e4%bc%a0%e7%bb%9f%e5%88%86%e9%a1%b5%e6%8f%90%e9%ab%98%e9%80%9f%e5%ba%a6100%e5%80%8d","status":"publish","type":"post","link":"https:\/\/www.ecjtu.com\/keith\/archives\/2400","title":{"rendered":"asp \u8d85\u5f3a\u5206\u9875\u7c7b \u6bd4\u4f20\u7edf\u5206\u9875\u63d0\u9ad8\u901f\u5ea6100\u500d"},"content":{"rendered":"

‘\u767e\u4e07\u6570\u636e\u8d85\u5f3a\u5206\u9875\u7c7b~
\n‘\u6bd4\u4f20\u7edf\u5206\u9875\u63d0\u9ad8\u901f\u5ea6100\u500d
\n‘\u53ea\u4f7f\u7528 \u201cselect * from xxxx\u201d\u683c\u5f0f\u7684\u67e5\u8be2\u8bed\u53e5
\n‘\u4f7f\u7528\u65b9\u6cd5\uff1a\u628a\u8fd9\u4e2a\u6587\u4ef6 include \u5230\u4f60\u8981\u8fdb\u884c\u5206\u9875\u7684\u9875\u9762
\n‘ Dim Pl \u5b9a\u4e49\u53d8\u91cf\uff0c\u4efb\u610f\u5b9a\u4e49
\n‘ Set Pl = New AoaobPage \u5efa\u7acb\u7c7b\u7684\u5b9e\u4f8b
\n‘ Pl.pagesize = 25 ‘\u6bcf\u9875\u663e\u793a\u4e2a\u6570
\n‘ Pl.SetPageTag = “id” ‘\u8fd9\u662f\u6240\u6709\u6570\u636e\u4e0d\u4f1a\u91cd\u590d\u7684\u6570\u636e\u5e93\u5b57\u6bb5\uff0c\u4e00\u822c\u4e3a\u4e3b\u952e
\n‘ Pl.getconn = Db.Conn ‘\u8fd9\u662f\u6570\u636e\u5e93\u94fe\u63a5\u5bf9\u8c61\uff0c\u6839\u636e\u81ea\u5df1\u7684\u60c5\u51b5\u5b9a\u4e49\u3002
\n‘ Pl.getsql = Sql
\n‘ set Rs = Pl.getrs()’\u8fd4\u56de\u5206\u9875\u6570\u636e\u96c6
\n‘ For i=1 to 25
\n‘ If Rs.Eof Then Exit For
\n‘ ……
\n‘ Next
\n‘ set Pl = Nothing
\n‘\u7248\u6743\u6240\u6709 http:\/\/www.aoaob.com<\/a> \u6b22\u8fce\u8f6c\u8f7d~
\n‘\u8054\u7cfb\u90ae\u4ef6 webmaster@aoaob.com<\/p>\n

<%\r\nConst L_First=\"<font face=\"\"webdings\"\"><img src=\"\"\/images\/to_r1_c1.gif\"\" border=\"\"0\"\" \/><\/font>\" '\u5b9a\u4e49\u7b2c\u4e00\u9875\u6309\u94ae\u663e\u793a\u6837\u5f0f \r\nConst L_Prev=\"<font face=\"\"webdings\"\"><img src=\"\"\/images\/to_r1_c2.gif\"\" border=\"\"0\"\" \/><\/font>\" '\u5b9a\u4e49\u524d\u4e00\u9875\u6309\u94ae\u663e\u793a\u6837\u5f0f \r\nConst L_Next=\"<font face=\"\"webdings\"\"><img src=\"\"\/images\/to_r1_c3.gif\"\" border=\"\"0\"\" \/><\/font>\" '\u5b9a\u4e49\u4e0b\u4e00\u9875\u6309\u94ae\u663e\u793a\u6837\u5f0f \r\nConst L_Last=\"<font face=\"\"webdings\"\"><img src=\"\"\/images\/to_r1_c4.gif\"\" border=\"\"0\"\" \/><\/font>\" '\u5b9a\u4e49\u6700\u540e\u4e00\u9875\u6309\u94ae\u663e\u793a\u6837\u5f0f \r\nClass AoaobPage\r\n Private Conn\r\n Private Rs\r\n Private Sql\r\n Private PageTag\r\n Private ThisPageSize '\u4e00\u9875\u6570\u636e\u91cf\r\n Private RsNum '\u6570\u636e\u603b\u91cf\r\n Private PageNum '\u9875\u6570\r\n Private ErrInfo\r\n Private PageUrl\r\n Private ThisPage '\u5f53\u524d\u9875\u9762\u503c\r\n Private IsRs '\u6570\u636e\u662f\u5426\u5df2\u7ecf\u521d\u59cb\u5316\r\n Private ShowPage_info_ '\u5206\u9875\u5bfc\u822a\u7f13\u5b58\r\n Public GetCurPageNum\r\n Public Int_CurPage\r\n Private Sub Class_Initialize '\u7c7b\u521d\u59cb\u5316\r\n ThisPageSize = 10 '\u9ed8\u8ba4\u6bcf\u9875\u663e\u793a\u4e2a\u6570\r\n GetCurPageNum = 10\r\n PageTag = \"\"\r\n ShowPage_info_ = \"\"\r\n IsRs = false\r\n If Request(\"page\")=\"\" Then \r\n ThisPage=1 \r\n ElseIf not(IsNumeric(Request(\"page\"))) Then \r\n ThisPage=1 \r\n ElseIf CInt(Trim(Request(\"page\")))<1 Then \r\n ThisPage=1 \r\n Else \r\n ThisPage=CInt(Trim(Request(\"page\"))) \r\n End If\r\n Int_CurPage = ThisPage\r\n End Sub\r\n \r\n '-----------------\u83b7\u53d6\u5206\u9875\u6807\u8bc6\r\n Public Property Let SetPageTag(intvalue) \r\n If intvalue <> \"\" Then \r\n PageTag = intvalue\r\n Else \r\n ErrInfo=ErrInfo & \"\u5206\u9875\u6807\u8bc6\u7684\u53c2\u6570\u4e0d\u6b63\u786e\" \r\n ShowError() \r\n End If \r\n End Property \r\n \r\n '-----------------\r\n Public Property Let PageSize(intvalue) \r\n If IsNumeric(intvalue) Then \r\n ThisPageSize=CLng(intvalue)\r\n GetCurPageNum = ThisPageSize\r\n If ThisPageSize < 1 Then ThisPageSize = 10\r\n Else\r\n ErrInfo=ErrInfo & \"PageSize\u7684\u53c2\u6570\u4e0d\u6b63\u786e\" \r\n ShowError() \r\n End If \r\n End Property \r\n \r\n '---------------\u8fd4\u56de\u6bcf\u9875\u4e2a\u6570\r\n Public Property Get PageSize \r\n If ThisPageSize=\"\" or (not(IsNumeric(ThisPageSize))) Then \r\n PageSize=10 \r\n Else \r\n PageSize=ThisPageSize\r\n End If \r\n End Property \r\n \r\n '----------------\u5f97\u5230\u6570\u636e\u5e93\u94fe\u63a5 \r\n Public Property Let GetConn(sconn) \r\n Set Conn=sconn \r\n End Property \r\n \r\n '-----------------------\u5f97\u5230Sql\u8bed\u53e5 \r\n Public Property Let GetSQL(svalue) \r\n Sql=Lcase(svalue) \r\n End Property \r\n \r\n '-------------------\u6253\u5f00\u6570\u636e\u5e93\r\n Private Sub OpenRs()\r\n Set Rs = Server.CreateObject(\"Adodb.RecordSet\")\r\n Rs.Open Sql,Conn,1,1 \r\n End Sub\r\n \r\n Public Property Get GetRs()\r\n If Sql = \"\" Then\r\n ErrInfo=ErrInfo & \"Sql\u8bed\u53e5\u9519\u8bef\" \r\n ShowError()\r\n End If\r\n Dim RsNumSql,RsNum_\r\n RsNumSql = Replace(Sql,\"*\",\"count(*)\")\r\n If InStr(RsNumSql,\" order by \") > 0 Then RsNumSql = left(RsNumSql,InStrRev(RsNumSql,\" order by \") -1)\r\n If Not IsObject(Conn) Then\r\n ErrInfo=ErrInfo & \"\u6570\u636e\u5e93\u94fe\u63a5\u5bf9\u8c61\u9519\u8bef\uff01\" \r\n ShowError()\r\n End If\r\n \r\n \r\n set RsNum_ = Conn.Execute(RsNumSql)\r\n RsNum = RsNum_(0)\r\n RsNum_.Close\r\n Set RsNum_ = Nothing\r\n If RsNum mod ThisPageSize = 0 Then\r\n PageNum = RsNum \\ ThisPageSize\r\n Else\r\n PageNum = RsNum \\ ThisPageSize + 1\r\n End If\r\n If ThisPage > PageNum Then ThisPage = PageNum\r\n If(PageTag = \"\") Then\r\n ErrInfo=ErrInfo & \"\u5206\u9875\u6807\u8bc6\u7684\u53c2\u6570\u4e0d\u6b63\u786e\uff01\" \r\n ShowError()\r\n End If\r\n If ThisPage = 1 Then\r\n Sql = Replace(Sql,\"*\",\"Top \"&ThisPageSize&\" *\")\r\n ElseIf ThisPage > 1 Then\r\n Sql = Replace(Replace(Sql,\"*\",\"Top \"&ThisPageSize&\" *\"),\"where\",\"where \"&PageTag&\" not in (\"&Replace(Sql,\"*\",\"Top \"&(ThisPageSize*(ThisPage-1))&\" \"&PageTag)&\") and\")\r\n End If\r\n Call OpenRs()\r\n IsRs = true\r\n Set GetRs = Rs\r\n End Property \r\n \r\n \r\n Public Function ShowPage_info() \r\n Dim result,i,m\r\n PageUrl = GetUrl() \r\n If Not IsRs Then\r\n ErrInfo=ErrInfo & \"\u6570\u636e\u6267\u884c\u9519\u8bef\uff01\" \r\n ShowError()\r\n End If\r\n If ShowPage_info_ <> \"\" Then\r\n ShowPage_info = ShowPage_info_\r\n Exit Function\r\n End If\r\n result = \"\"\r\n If PageNum > 0 Then\r\n If PageNum = 1 Then\r\n Else\r\n '\u7b2c\u4e00\u9875\u6309\u94ae\r\n If ThisPage = 1 Then\r\n result = result & L_First & vbCrLf \r\n Else\r\n result = result & \"<a href=\"\"\"&PageUrl&\"1\"\">\"&L_First&\"<\/a>\" & vbCrLf \r\n End If\r\n '\u4e0a\u4e00\u6570\u5b57\u5217\u6309\u94ae\r\n If ThisPage - 9 > 0 Then\r\n result = result & \"<a href=\"\"\"&PageUrl&ThisPage-9&\"\"\">\"&L_Prev&\"<\/a>\" & vbCrLf\r\n Else\r\n If ThisPage = 1 Then\r\n result = result & L_Prev & vbCrLf\r\n Else\r\n result = result & \"<a href=\"\"\"&PageUrl&\"1\"\">\"&L_Prev&\"<\/a>\" & vbCrLf\r\n End If\r\n End If\r\n '\u6570\u5b57\u5217\u6309\u94ae\r\n If ThisPage > 5 and ThisPage + 5 < PageNum Then\r\n For i = 1 to 9\r\n m = ThisPage - 5 + i\r\n If m > 0 and m <= PageNum Then\r\n If m = ThisPage Then\r\n result = result & \"<strong class=\"\"divline_hover\"\">&nbsp;\"&m&\"&nbsp;<\/strong>&nbsp;\"&vbCrLf\r\n Else\r\n result = result & \"<a href=\"\"\"&PageUrl&m& \"\"\" class=\"\"divline\"\">&nbsp;\"&m&\"&nbsp;<\/a>&nbsp;\"&vbCrLf \r\n End If \r\n End If\r\n Next\r\n ElseIf ThisPage <= 5 and ThisPage + 5 < PageNum Then\r\n For i = 1 to 9\r\n If i <= PageNum Then\r\n If i = ThisPage Then\r\n result = result & \"<strong class=\"\"divline_hover\"\">&nbsp;\"&i&\"&nbsp;<\/strong>&nbsp;\"&vbCrLf\r\n Else\r\n result = result & \"<a href=\"\"\"&PageUrl&i& \"\"\" class=\"\"divline\"\">&nbsp;\"&i&\"&nbsp;<\/a>&nbsp;\"&vbCrLf \r\n End If \r\n End If\r\n Next\r\n ElseIf ThisPage + 5 >= PageNum Then\r\n For i = 1 to 9\r\n If PageNum-9+i > 0 Then\r\n If PageNum-9+i = ThisPage Then\r\n result = result & \"<strong class=\"\"divline_hover\"\">&nbsp;\"&PageNum-9+i&\"&nbsp;<\/strong>&nbsp;\"&vbCrLf\r\n Else\r\n result = result & \"<a href=\"\"\"&PageUrl&PageNum-9+i& \"\"\" class=\"\"divline\"\">&nbsp;\"&PageNum-9+i&\"&nbsp;<\/a>&nbsp;\"&vbCrLf \r\n End If \r\n End If \r\n Next\r\n End If\r\n '\u4e0b\u4e00\u6570\u5b57\u5217\u6309\u94ae\r\n If ThisPage + 9 < PageNum Then\r\n result = result & \"<a href=\"\"\"&PageUrl&ThisPage+9&\"\"\">\"&L_Next&\"<\/a>\" & vbCrLf\r\n Else\r\n If ThisPage = PageNum or ThisPage + 5 > PageNum Then\r\n result = result & L_Next & vbCrLf\r\n Else\r\n result = result & \"<a href=\"\"\"&PageUrl&PageNum&\"\"\">\"&L_Next&\"<\/a>\" & vbCrLf\r\n End If\r\n End If\r\n '\u6700\u540e\u4e00\u9875\u6309\u94ae\r\n If ThisPage = PageNum or ThisPage + 5 > PageNum Then\r\n result = result & L_Last & vbCrLf \r\n Else\r\n result = result & \"<a href=\"\"\"&PageUrl&PageNum&\"\"\">\"&L_Last&\"<\/a>\" & vbCrLf \r\n End If\r\n result = result & \"&nbsp;\"&ThisPage&\"\/\"&PageNum&\"&nbsp;\u603b\u5171:\"&RsNum&\"&nbsp;\"&ThisPageSize&\"\/\u9875\"&vbCrLf\r\n End If\r\n Else\r\n result = \"\u6ca1\u6709\u60a8\u8981\u627e\u7684\u6570\u636e\"\r\n End If\r\n ShowPage_info_ = result\r\n ShowPage_info = result\r\n End Function \r\n \r\n \r\n Private function GetURL() \r\n Dim strUrl,tmp_URL,i,j,search_str,result_url,str_params,str_lparams,str_rparams\r\n search_str=\"page=\" \r\n strUrl=Request.Servervariables(\"URL\")\r\n strUrl=split(strUrl,\"\/\") \r\n i=UBound(strUrl,1) \r\n tmp_URL=strUrl(i)'\u5f97\u5230\u5f53\u524d\u9875\u6587\u4ef6\u540d \r\n str_params=replace(Trim(Request.Servervariables(\"QUERY_STRING\")),\"&_=\",\"\")\r\n If str_params=\"\" Then \r\n result_url=tmp_URL & \"?page=\" \r\n Else \r\n If InstrRev(str_params,search_str)=0 Then \r\n result_url=tmp_URL & \"?\" & str_params &\"&page=\" \r\n Else \r\n j=InstrRev(str_params,search_str)-2 \r\n If j=-1 Then \r\n result_url=tmp_URL & \"?page=\" \r\n Else \r\n str_lparams=Left(str_params,j) \r\n str_rparams=right(str_params,len(str_params)-j-1) \r\n if InStr(str_rparams,\"&\")<>0 then \r\n str_rparams=right(str_rparams,len(str_rparams)-InStr(str_rparams,\"&\")+1) \r\n else \r\n str_rparams = \"\" \r\n end if \r\n result_url=tmp_URL & \"?\" & str_lparams&str_rparams&\"&page=\" \r\n End If \r\n End If \r\n End If \r\n GetURL=result_url \r\n End function \r\n \r\n '--------------------\u9500\u6bc1\u7c7b\r\n Private Sub Class_Terminate \r\n Obj_Rs.close \r\n Set Obj_Rs=nothing \r\n Obj_Conn.close \r\n set Obj_Conn = nothing \r\n End Sub\r\n \r\n '------------------\u9519\u8bef\u63d0\u793a\r\n Private Sub ShowError() \r\n If ErrInfo <> \"\" Then \r\n Response.Write(\"\" & ErrInfo & \"\")\r\n Response.End()\r\n End If \r\n End Sub\r\n \r\nEnd Class\r\n%><\/pre>\n
 <\/p>\n","protected":false},"excerpt":{"rendered":"
‘\u767e\u4e07\u6570\u636e\u8d85\u5f3a\u5206\u9875\u7c7b~ ‘\u6bd4\u4f20\u7edf\u5206\u9875\u63d0\u9ad8\u901f\u5ea6100\u500d ‘\u53ea\u4f7f\u7528 \u201csele […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[42],"tags":[73,798],"_links":{"self":[{"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/posts\/2400"}],"collection":[{"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/comments?post=2400"}],"version-history":[{"count":1,"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/posts\/2400\/revisions"}],"predecessor-version":[{"id":2401,"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/posts\/2400\/revisions\/2401"}],"wp:attachment":[{"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/media?parent=2400"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/categories?post=2400"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ecjtu.com\/keith\/wp-json\/wp\/v2\/tags?post=2400"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}