{"id":186,"date":"2008-12-03T09:14:11","date_gmt":"2008-12-03T01:14:11","guid":{"rendered":""},"modified":"2014-02-27T22:58:58","modified_gmt":"2014-02-27T14:58:58","slug":"asp-%e4%bd%bf%e7%94%a8%e7%b1%bb%ef%bc%8c%e5%ae%9e%e7%8e%b0%e6%a8%a1%e5%9d%97%e5%8c%96","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2008\/12\/03\/186.htm","title":{"rendered":"ASP \u4f7f\u7528\u7c7b\uff0c\u5b9e\u73b0\u6a21\u5757\u5316"},"content":{"rendered":"

\u6240\u6709\u5199\u7a0b\u5e8f\u7684\u4eba\u90fd\u77e5\u9053\uff0c\u5f53\u4f60\u9010\u6e10\u5bf9\u60a8\u8981\u5b9e\u73b0\u7684\u529f\u80fd\u5c55\u5f00\u7684\u65f6\u5019\uff0c\u5f88\u5927\u7684\u65f6\u5019\uff0c\u7b2c\u4e00\u5929\u5199\u7684\u4e1c\u897f\u7b2c\u4e8c\u5929\u5c31\u5fd8\u4e86\u5199\u5230\u90a3\u91cc\u4e86\uff0c\u5f88\u591a\u7684\u65f6\u5019\uff0c\u4e0d\u5f97\u4e0d\u5199\u4e0a\u8be6\u7ec6\u7684\u7a0b\u5e8f\u5f00\u53d1\u7b14\u8bb0\uff0c\u8fd9\u5728ASP\u7684\u7cfb\u7edf\u5f00\u53d1\u4e2d\u611f\u89c9\u5c24\u5176\u6587\u4ef6\u3001\u51fd\u6570\u590d\u6742\u7684\u65f6\u5019\uff0c\u5f53\u6211\u4eec\u6253\u7b97\u5bf9\u7f51\u7ad9\u7684\u4e00\u90e8\u5206\u529f\u80fd\u8fdb\u884c\u4fee\u6539\u7684\u65f6\u5019\uff0c\u611f\u89c9\u65e0\u4ece\u4e0b\u624b\u6216\u8005\u611f\u89c9\u8981\u4fee\u6539\u7684\u5730\u65b9\u3002\u8fd9\u65f6\u5019\uff0c\u5982\u679c\u60a8\u5b66\u8fc7\u4efb\u4f55\u4e00\u95e8\u9762\u5411\u5bf9\u8c61\u7684\u7f16\u7a0b\u7684\u8bed\u8a00\u7684\u8bdd\uff0c\u81ea\u7136\u60f3\u5230\u600e\u4e48\u80fd\u628a\u4ee3\u7801\u529f\u80fd\u5b9e\u73b0\u6a21\u5757\u8bdd\uff0casp\u672c\u8d28\u4e0a\u4e0d\u662f\u9762\u5411\u5bf9\u8c61\u7684\u7f16\u7a0b\uff0c\u4f46VBSCRPIT6.0\u63d0\u4f9b\u4e86\u7c7b\uff0c\u6211\u4eec\u53ef\u4ee5\u901a\u8fc7\u7c7b\u5b9e\u73b0\u4ee3\u7801\u7684\u5c01\u88c5\uff0c\u5b9e\u73b0\u6a21\u5757\u8bdd\u3002<\/p>\n

\u9996\u5148\uff0c\u6211\u8981\u5728\u8fd9\u91cc\u5199\u4e0a\u4e00\u4e9b\u5f88\u5b98\u65b9\u7684\u6982\u5ff5\uff0c\u610f\u5728\u8bf4\u660e\u9762\u5411\u5bf9\u8c61\u662f\u5f88\u5177\u4f53\u5316\u7684\uff0c\u5f88\u5b9e\u4f53\u7684\u6a21\u5f0f\uff0c\u4e0d\u80fd\u8ba9\u6709\u4e9b\u4eba\u770b\u89c1“\u5bf9\u8c61”\u5c31\u88ab\u5413\u8dd1\u4e86\u3002<\/b><\/p>\n

 \u5bf9\u8c61\uff0c\u5c31\u662f\u80fd\u770b\u5230\uff0c\u611f\u5230\uff0c\u542c\u5230\uff0c\u89e6\u6478\u5230\uff0c\u5c1d\u5230\u6216\u95fb\u5230\u7684\u4e1c\u897f\uff0c\u5728\u8fd9\u91cc\u6211\u4eec\u8fd9\u6837“\u5b9a\u4e49”\uff1a\u5bf9\u8c61\u662f\u4e00\u4e2a\u81ea\u5305\u542b\u7684\u5b9e\u4f53\uff0c\u7528\u4e00\u7ec4\u53ef\u8bc6\u522b\u7684\u7279\u6027\u548c\u884c\u4e3a\u6765\u6807\u8bc6\u3002
\n\u5728\u9762\u5411\u5bf9\u8c61\u7684\u7f16\u7a0b(oop)\u7684\u7f16\u7a0b\u65b9\u5f0f\uff0c\u7528\u4f7f\u7528\u4e0b\u9762\u7684\u4e24\u4e2a\u672f\u8bed\u3002
\n\u7c7b\uff1a\u8fd9\u662f\u5bf9\u8c61\u7684\u6a21\u677f\uff0c\u5b9a\u4e49\u4e86\u5bf9\u8c61\u7684\u7279\u6027\u3002
\n\u5b9e\u4f8b\uff1a\u8fd9\u662f\u4e00\u4e2a\u771f\u5b9e\u7684\u5bf9\u8c61\uff0c\u53ef\u4ee5\u4e0e\u4e4b\u4ea4\u4e92\u7684\u4e1c\u897f\u3002<\/p>\n

\u5c5e\u6027\uff0c\u65b9\u6cd5\u548c\u4e8b\u4ef6
\n<\/b>
\n\u5728OOP\u4e2d\uff0c\u4e0b\u9762\u7684\u672f\u8bed\u63cf\u8ff0\u5bf9\u8c61\u7684\u7279\u6027\uff1a<\/p>\n

\u5c5e\u6027<\/b>\uff1a\u8fd9\u662f\u4e00\u4e2a\u540d\u6b21\uff0c\u63cf\u8ff0\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7684\u5c5e\u6027\u3002<\/p>\n

\u65b9\u6cd5<\/b>\uff1a\u8fd9\u662f\u4e00\u4e2a\u52a8\u8bcd\uff0c\u63cf\u8ff0\u4e86\u5bf9\u8c61\u53ef\u4ee5\u5b8c\u6210\u7684\u5de5\u4f5c\uff0c\u6216\u8005\u5e0c\u671b\u5b83\u5b8c\u6210\u7684\u5de5\u4f5c\u3002<\/p>\n

\u4e8b\u4ef6<\/b>\uff1a\u63cf\u8ff0\u4e86\u5bf9\u8c61\u4e3a\u76f8\u5e94\u67d0\u4e2a\u52a8\u4f5c\u800c\u6267\u884c\u7684\u64cd\u4f5c\u3002
\n\u5728\u7f16\u7a0b\u65f6\uff0c\u5bf9\u8c61\u7684\u9762\u5411\u5bf9\u8c61\u7f16\u7a0b\u548c\u9762\u5411\u5bf9\u8c61\u8bbe\u8ba1\u7684\u4e00\u90e8\u5206\uff0c\u5b83\u4eec\u5177\u6709\u975e\u5e38\u5927\u7684\u4f18\u52bf\uff0c\u8bb8\u591a\u4eba\u8ba4\u4e3a\u8fd9\u662f\u4e00\u4e2a\u590d\u6742\u7684\u4e3b\u9898\uff0c\u4f46\u5b9e\u9645\u4e0a\uff0c\u5b83\u975e\u5e38\u7b80\u5355\uff0c\u53ef\u4ee5\u7528\u56db\u4e2a\u7b80\u5355\u7684\u672f\u8bed\u6765\u89e3\u91ca\uff1a\u62bd\u8c61\u3001\u5c01\u88c5\u3001\u591a\u6001\u548c\u7ee7\u627f\u3002<\/p>\n

\u62bd\u8c61\uff1a\u8fd9\u662f\u4e00\u4e2a\u9690\u85cf\u590d\u6742\u6027\uff0c\u7c7b\u7684\u5185\u90e8\u5de5\u4f5c\u60c5\u51b5\uff0c\u6240\u4ee5\u7528\u6237\u4e0d\u5fc5\u77e5\u9053\u5b83\u7684\u8fd0\u4f5c\u65b9\u5f0f\uff0c\u5c31\u50cf\u3002\u5982\u679c\u60f3\u8981\u770b\u7535\u89c6\uff0c\u5c31\u4e0d\u5fc5\u77e5\u9053\u7535\u89c6\u673a\u65f6\u5982\u4f55\u5de5\u4f5c\u7684\uff0c\u53ea\u9700\u6253\u5f00\u7535\u89c6\u673a\uff0c\u641c\u7d22\u9891\u9053\u5373\u53ef\uff0con\/off\u5f00\u5173\u62bd\u8c61\u4e86\u5b9e\u9645\u7684\u64cd\u4f5c\uff0c\u5728string\u4f8b\u5b50\u91cc\uff0c\u6709\u4e00\u4e2atrim\u65b9\u6cd5\uff0c\u5b83\u53ef\u4ee5\u5220\u9664\u5b57\u7b26\u4e32\u5c3e\u90e8\u7684\u7a7a\u683c\uff0c\u540c\u6837\u4e0d\u9700\u8981\u77e5\u9053\u4ed6\u662f\u5982\u4f55\u5b8c\u6210\u8fd9\u4e2a\u4efb\u52a1\u7684\uff0c\u53ea\u8981\u77e5\u9053\u5b83\u6709\u8fd9\u4e2a\u529f\u80fd\u5373\u53ef\u3002<\/p>\n

\u5c01\u88c5\uff1a\u6bcf\u4e2a\u5bf9\u8c61\u90fd\u5305\u542b\u8fdb\u884c\u64cd\u4f5c\u6240\u9700\u8981\u7684\u6240\u6709\u4fe1\u606f\uff0c\u8fd9\u4e2a\u5bf9\u8c61\u79f0\u4e3a\u5c01\u88c5\uff0c\u56e0\u6b64\u5bf9\u8c61\u4e0d\u6bd4\u4f9d\u8d56\u5176\u4ed6\u5bf9\u8c61\u6765\u5b8c\u6210\u81ea\u5df1\u7684\u64cd\u4f5c\uff0c\u5728\u672f\u8bedTOupper()\u65b9\u6cd5\u4e2d\uff0cstring\u4e0d\u5fc5\u5230\u5176\u4ed6\u5730\u65b9\u83b7\u53d6\u4fe1\u606f\u6765\u628a\u6240\u6709\u7684\u5b57\u7b26\u8f6c\u6362\u4e3a\u5927\u5199\u3002<\/p>\n

\u591a\u6001\uff1a\u8fd9\u4e2a\u672f\u8bed\u7528\u4e8e\u8868\u793a\u4e0d\u540c\u7684\u5bf9\u8c61\u53ef\u4ee5\u6267\u884c\u76f8\u540c\u7684\u52a8\u4f5c\uff0c\u4f46\u8981\u901a\u8fc7\u4ed6\u4eec\u81ea\u5df1\u7684\u5b9e\u73b0\u4ee3\u7801\u6765\u6267\u884c\uff0c\u540d\u79f0\u4e00\u6837\uff0c\u4f46\u5e95\u5c42\u5b9e\u73b0\u7684\u4ee3\u7801\u662f\u4e0d\u4e00\u6837\u7684\u3002<\/p>\n

\u7ee7\u627f\uff1a\u5b83\u5b9a\u4e49\u4e86\u7c7b\u5982\u4f55\u76f8\u4e92\u5173\u8054\uff0c\u5171\u4eab\u7279\u6027\u7684\uff0c\u7ee7\u627f\u7684\u5de5\u4f5c\u65b9\u5f0f\u662f\uff0c\u5b9a\u4e49\u7c7b\u548c\u5b50\u7c7b\uff0c\u5176\u4e2d\u5b50\u7c7b\u7ee7\u627f\u4e86\u7236\u7c7b\u7684\u6240\u6709\u7279\u6027\uff0c\u7ee7\u627f\u7684\u91cd\u8981\u6027\u662f\uff0c\u5b83\u8feb\u4f7f\u7c7b\u578b\u76f8\u4f3c\u7684\u7c7b\u5177\u6709\u4e00\u81f4\u6027\uff0c\u5e76\u5141\u8bb8\u5171\u4eab\u4ee3\u7801\uff0c\u5982\u679c\u51b3\u5b9a\u521b\u5efa\u4e00\u4e2a\u65b0\u7c7b\uff0c\u5c31\u4e0d\u5fc5\u5b9a\u4e49\u7236\u7c7b\u7684\u6240\u6709\u7279\u6027\u3002<\/p>\n

\u5728ASP\u4e2d\u4f7f\u7528\u7c7b\uff0c\u5b9e\u73b0\u6a21\u5757\u5316<\/font><\/b><\/p>\n

\u4e0b\u9762\u6211\u901a\u8fc7\u4e3e\u4e0a\u51e0\u4e2a\u7b80\u5355\u7684\u4f8b\u5b50\u8bf4\u660e\u4e00\u4e0b\uff0c\u6ce8\u610f\uff0c\u8fd9\u91cc\u5f3a\u8c03\u7684\u662f<\/font>\u4e00\u79cd\u601d\u60f3<\/b><\/font>\uff0c\u5982\u679c\u5728\u60a8\u5f00\u53d1ASP\u7f51\u7ad9\u7684\u65f6\u5019\u80fd\u7528\u4e00\u4e2a\u7c7b\uff08\u57fa\u7c7b\uff09\u5c55\u5f00\u7684\u8bdd\uff0c\u8fd9\u662f\u5f88\u6709\u5fc5\u8981\u7684\uff08\u4e5f\u662f\u5f88\u6709\u96be\u5ea6\u7684\uff09\u3002<\/p>\n

\u6211\u4eec\u5148\u9009\u62e9\u4e00\u4e2a\u7b80\u5355\u7684\u4f8b\u5b50\uff1a<\/p>\n

\u6211\u4eec\u8981\u663e\u793a\u7ecf\u5178\u8bba\u575b\u7528\u6237\u7684\u4fe1\u606f\uff0c\u5f53\u8f93\u5165\u7528\u6237\u7684ID\u4ee5\u540e\u80fd\uff0c\u663e\u793a\u51fa\u8be5\u7528\u6237\u7684\u4e00\u4e9b\u4fe1\u606f\uff0c\u8fd9\u662f\u4e00\u4e2a\u8fc7\u7a0b\uff0c\u53ef\u4ee5\u8fd9\u6837\u8003\u8651\uff0c\u6211\u4eec\u628a\u7528\u6237\u5f53\u4f5c\u4e00\u4e2a\u5bf9\u8c61\uff0c\u4ed6\u6709\u7684\u5c5e\u6027\u662fID\uff0c\u6027\u522b,\u79ef\u5206\uff0c\u6743\u9650\uff0c\u5b9e\u73b0\u7684\u65b9\u6cd5\u6709\u663e\u793a\u8fd9\u4e9b\u4fe1\u606f\uff0cok\uff0c\u8fd9\u6837\u5199\uff1a<\/font><\/font><\/p>\n

 <\/p>\n

Class blueidea
\nPrivate bname,bpoint,bsex,blevel
\n‘……………….
\nend class<\/p>\n

\n <\/p>\n

\u8fd9\u91cc\u5148\u58f0\u660e\u4e86\u4e00\u4e2a\u540d\u4e3a blueidea\u7684\u7c7b\uff0c\u63a5\u7740\u662f\u4e00\u4e9b\u79c1\u6709\u53d8\u91cf\uff0c\u7528\u4e8e\u5b58\u50a8blueidea\u7c7b\u7684\u5c5e\u6027\uff0c\u8fd9\u4e9b\u53d8\u91cf\u5728\u4ee3\u7801\u7684\u5916\u90e8\u4e0d\u80fd\u8bbf\u95ee,\u8fd9\u5c31\u662f\u6570\u636e\u4fdd\u62a4<\/b>\uff0c\u8981\u5b9a\u4e49\u8fd9\u4e9b\u53d8\u91cf\uff0c\u4f7f\u7528\u4e86property\u8bed\u53e5\u83b7\u5f97\u503c\u95f4\u63a5\u7684\u4ed8\u7ed9\u79c1\u6709\u53d8\u91cf<\/p>\n

 <\/p>\n

 <\/p>\n

 <\/p>\n

‘—————————————————————–
\nProperty Get getname
\ngetname=bname
\nEnd Property<\/p>\n

Property Let getname(nameid)
\nbname=nameid
\nIf nameid="" Then
\nbname="\u6ca1\u6ce8\u518c\u7528\u6237"
\nEnd If
\nEnd Property
\n‘——————————————————————
\nProperty Get getsex
\ngetsex=bsex
\nEnd Property<\/p>\n

Property Let getsex(sex)
\nbsex=killint(sex,0,0)
\nIf bsex=0 Then
\nbsex="\u7537"
\nElse
\nbsex="\u5973"
\nEnd if
\nEnd Property
\n‘——————————————————————
\nProperty Get getpoint
\ngetpoint=bpoint
\nEnd Property<\/p>\n

Property Let getpoint(point)
\nbpoint=killint(point,0,0)
\nEnd Property
\n‘——————————————————————<\/p>\n

 <\/p>\n

\u8fd9\u91cc\u6709\u4e2akillint\u51fd\u6570\uff0c\u662f\u5224\u65ad\u6570\u636e\u5408\u6cd5\u6027\u7684\uff0c\u5b83\u7684\u539f\u5f62\u662f\uff1a<\/p>\n

 <\/p>\n

Private Function killint(i,killstr,killsub)
\nIf Not IsNumeric(i) Then
\ni=killstr
\nElseIf i<=0 Then
\ni=killsub
\nEnd if
\nkillint=Int(Left(i,5))
\nEnd Function<\/p>\n

 <\/p>\n

 <\/p>\n

\u8be5\u51fd\u6570\u529f\u80fd\u5f88\u660e\u786e\uff0c\u4e0d\u518d\u7e41\u7410\u8bf4\u3002<\/p>\n

\u7531\u4e8e\u6211\u4eec\u8981\u901a\u8fc7\u79ef\u5206\u5224\u65ad\u7528\u6237\u7ea7\u522b\uff0c\u8fd9\u91cc\u5b9a\u4e49\u4e86\u4e00\u4e2a\u79c1\u6709\u51fd\u6570\uff1a<\/p>\n

 <\/p>\n

Private Function getlevel()
\nbpoint=killint(bpoint,0,0)
\nIf bpoint<500 Then
\nblevel="\u521d\u7ea7\u4f1a\u5458"
\nElseIf bpoint>=500 And bpoint<=100 Then
\nblevel="\u9ad8\u7ea7\u4f1a\u5458"
\nElse
\nblevel="\u7ec8\u6781\u4f1a\u5458"
\nEnd If
\nGetlevel=blevel
\nEnd Function<\/p>\n

 <\/p>\n

 <\/p>\n

\u6211\u4eec\u8981\u5f97\u662f\u56de\u9001\u7528\u6237\u7684\u4fe1\u606f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4e00\u4e2apublic\u516c\u7528\u51fd\u6570\uff0c\u663e\u793a\u4fe1\u606f\uff1a<\/p>\n

 <\/p>\n

Public Function showuser()
\nresponse.write("<h5>\u4ee5\u4e0b\u663e\u793a<font color=red>"&bname&"<\/font>\u7684\u8d44\u6599:<\/h5>")
\nresponse.write("<h5>\u6027\u522b:<font color=red>"&bsex&"<\/font><\/h5>")
\nresponse.write("<h5>\u79ef\u5206:<font color=red>"&bpoint&"<\/font><\/h5>")
\ngetlevel
\nresponse.write("<h5>\u7ea7\u522b:<font color=red>"&blevel&"<\/font><\/h5>")
\nEnd Function
\nEnd class<\/p>\n

 <\/p>\n

 <\/p>\n

\u4f7f\u7528\u8fd9\u4e2a\u7c7b\u7684\u65f6\u5019\u8fd9\u6837\u4f7f\u7528\uff1a\uff08\u6211\u5728\u8fd9\u91cc\u5199\u4e86\u4e00\u4e2a\u8868\u5355\u5904\u7406\u7684\uff09<\/p>\n

 <\/p>\n

Set blueideauser=new blueidea
\nblueideauser.getname=Trim(request("id"))
\nblueideauser.getsex=request("sex")
\nblueideauser.getpoint=request("point")
\nblueideauser.showuser<\/p>\n

 <\/p>\n

 <\/p>\n

\u662f\u4e0d\u662f\u60f3\u770b\u770b\u6548\u679c\uff0c\u90a3\u5c31\u770b\u770b\u8fd9\u91cc\uff1a
\nhttp:\/\/www.5do8.com\/net\/aspclass\/class.asp<\/a><\/p>\n

\u63a7\u5236\u8bfb\u53d6\u6570\u636e\u5e93\u4fe1\u606f\u7684\u7c7b\uff1a
\n<\/b>\u53c2\u8003\u6e90\u7801\uff1a<\/p>\n

\u8fd0\u884c\u4ee3\u7801\u6846<\/p>\n\n\n\n
\u4ee5\u4e0b\u662f\u5f15\u7528\u7247\u6bb5\uff1a<\/font><\/p>\n

‘\u540d\u79f0\uff1aado_5do8
\n ‘\u4f5c\u7528:\u8bfb\u53d6\u6570\u636e\u5e93\u7684\u5404\u9879\u64cd\u4f5c
\n ‘\u6765\u6e90-\u8015\u8018\u6751http:\/\/www.5do8.com<\/a> http:\/\/www.Blueidea.com-5do8<\/a>
\n ‘\u521b\u4f5c\uff1a5do8
\n ‘\u8054\u7cfb:5do8@5do8.com
\n ‘\u66f4\u65b0\uff1a2005\u5e7411\u670813\u65e5
\n ‘\u6388\u6743\uff1a\u84dd\u8272\u7406\u60f3\u7f51\u7ad9\u79ef\u5206\u8d85\u8fc73000\uff0c\u8015\u8018\u6751\u6240\u6709\u6ce8\u518c\u7528\u6237
\n ‘\u7c7b\u7684\u63a5\u53e3:ado_5do8.ConnectString=\u6570\u636e\u5e93\u7edd\u5bf9\u8def\u5f84
\n   ‘ado_5do8.rs_top \u8c03\u7528\u6570\u76ee\uff0c\u8868\u7684\u540d\u79f0
\n Class ado_5do8
\n  Private conn,sqlstr,rs,iid,itable,isession
\n    ‘sqlstr:\u6570\u636e\u5e93\u5730\u5740\uff0c\u4e3a\u7edd\u5bf9\u8def\u5f84\uff0c\u79c1\u6709
\n    ‘conn\uff1a\u6253\u5f00\u6570\u636e\u5e93\u7684\u8fde\u63a5\uff0c\u79c1\u6709<\/font><\/p>\n

‘——————————————————————
\n rem \u6d88\u9664\u4e00\u4e9b\u4e0d\u60f3\u8981\u7684\u6570\u5b57 
\n Private Function litter_in(r1,r2)
\n If IsNumeric(r1) and IsNumeric(r2) Then
\n  Dim dimrr
\n  If r1>r2 Then
\n  dimrr=r2
\n  Else
\n  dimrr=r1
\n  End If
\n  Else
\n  dimrr=0
\n  End if
\n  litter_in=dimrr
\n  End Function
\n ‘—————————————————————–
\n Private Function killint(i,killstr,killsub)
\n   If Not IsNumeric(i) Then
\n   i=killstr
\n   ElseIf i<=0 Then
\n   i=killsub
\n   End if
\n   killint=Int(Left(i,5))
\n   End Function
\n ‘———————————————————–
\n private Sub startconn()
\n    On Error Resume Next
\n     Set conn=server.CreateObject("adodb.connection")
\n    strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(sqlstr)
\n    conn.open strconn
\n    If Err Then
\n    err.Clear
\n    Set Conn = Nothing
\n    mess="\u53d1\u751f\u9519\u8bef\uff0c\u4e0d\u80fd\u8fde\u63a5\u6570\u636e\u5e93"
\n    response.write(mess)
\n    response.End
\n    Else
\n    mess="\u8fde\u63a5\u6570\u636e\u5e93conn\u6210\u529f………..<br\/>"
\n    response.write(mess)
\n    End If
\n    End Sub
\n ‘—————————————————————-
\n private Sub closeconn()
\n    conn.close
\n    Set conn=Nothing
\n    response.write("<strong style=’color:red’>\u5173\u95edconn\u8fde\u63a5<\/strong>…<hr\/>")
\n   End sub
\n ‘—————————————————————–
\n Private Sub closers()
\n   rs.close
\n   Set rs=Nothing
\n   response.write("<strong style=’color:#085420′>\u5173\u95ed\u6570\u636e\u5e93RS<\/strong>…….<br\/>")<\/font><\/p>\n

  End Sub<\/font><\/p>\n

‘—————————————————————–
\n Property Get havese
\n   havese=isession
\n   End Property
\n  
\n Property Let havese(yoursession)
\n   isession=yoursession
\n   If yoursession="" Then
\n   isession="nodef"
\n   End If
\n   End Property
\n  
\n ‘—————————————————————–
\n Public Function makesession(arraydata)
\n    If IsArray(arraydata) then
\n    makear=arraydata
\n    Else
\n    makear=Array(0,0,0,0)
\n    End If
\n    If isession="" Then
\n    isession="nodef"
\n    End if
\n    session(isession)=makear
\n    End Function
\n ‘—————————————————————–<\/font><\/p>\n

private Function getsession()
\n   thisget=session(isession)
\n   If Not IsArray(thisget) Then
\n   thisget=Array(0,0,0,0)
\n   End If
\n   Getsession=thisget
\n   End function
\n ‘—————————————————————–
\n Property Get ConnectString
\n ConnectString = sqlstr
\n End Property
\n Property Let ConnectString(str)
\n sqlstr = str
\n End Property
\n ‘—————————————————————–<\/font><\/p>\n

Property Get getid
\n getid = iid
\n End Property
\n Property Let getid(id)
\n iid = id
\n End Property
\n ‘—————————————————————–<\/font><\/p>\n

Property Get gettable
\n gettable = itable
\n End Property
\n Property Let gettable(table)
\n itable = table
\n End Property
\n ‘—————————————————————–
\n ‘——————————————————————
\n public Function readarraysession(iStart,ipageno,irowid)
\n   rowid=killint(irowid,0,0)
\n   start=killint(istart,0,0)
\n   pageno=killint(ipageno,5,5)
\n    data=getsession
\n   iRows = UBound(data, 2)
\n   iCols = UBound(data, 1)
\n   response.write("<h5>\u603b\u6570\u83b7\u5f97\u4e86:")
\n   response.write("<b> "&iRows+1&"<\/b>\u6761\u4fe1\u606f<\/h5><hr\/><ul style=’width:100%;’>")
\n   If rowid = 0 then
\n   If iRows > (ipageno + iStart) Then
\n   iStop = ipageno + iStart – 1
\n   Else
\n   iStop = iRows
\n   End If
\n   For iRowLoop = Start to iStop
\n   Response.Write ("<li style=’padding:4px 0;’><a href=?k=read&rowid="&irowloop+1&">"&data(1, iRowLoop) & " <\/a><span style=’padding:4px 0 4px 10px;background-color:#ccc; ‘>\u8f83\u6162\uff0c\u4e0d\u63a8\u8350\u70b9\u51fb–><a href=?k=list&id="&data(0,irowloop)&">\u66f4\u65b0<\/a><\/span><\/li>")
\n   Next
\n   Response.Write "<\/ul><div style=’top:20px;background-color:#ccc;color:#020;font-weight:bold;bordr-top:2px solid #008;padding:10px 0;color:#b00′>\u5217\u8868(<a href=default.asp>\u56de\u5230\u5178\u578b\u6a21\u5f0f<\/a>):"
\n   if Start > 0 then
\n    Response.Write "<A HREF=""?k=read&Start=" & iStart-ipageno &"&pageno=" & ipageno & """>Previous<\/A>"
\n   end if
\n   if iStop < iRows then
\n   Response.Write " <A HREF=""?k=read&Start=" & iStart+ipageno &"&pageno=" & ipageno & """>Next<\/A>"
\n   end If
\n  
\n   response.write"<\/div>"<\/font><\/p>\n

  Else
\n   rowid=litter_in(rowid-1,iRows)
\n   response.write("<div style=’width:85%’><h4 style=’text-align:center’><a href=?k=read&pageno="&pageno&"&start="&start&">\u8fd4\u56de\u5217\u8868<\/a><\/h4><\/h2><hr\/><h5>"&server.htmlencode(data(1,rowid))&"<\/h5><p>"&server.htmlencode(data(2,rowid))&"<h5>+—–"&server.htmlencode(data(3,rowid))&"")
\n   response.write("<div >")
\n   End if
\n   End Function
\n  
\n ‘—————————————————————–
\n Public Function list_ids()
\n   sql3="select * from "&itable&" where id="&iid&" "
\n   startconn()
\n   Set rs=conn.execute(sql3)
\n   If rs.eof And rs.bof Then
\n   data=Array(0,0,0,0)
\n   Else
\n   data=Rs.GetRows()
\n   End If
\n   closers
\n   closeconn
\n    response.write(UBound(data)&":")
\n   response.write(server.htmlencode(data(2,0)))
\n   End function<\/font><\/p>\n

‘—————————————————————–
\n Public Function rs_top(num,table,whe)
\n   startconn()
\n   sql="select top "&num&" * from "&table&""
\n   sql2="select count(*) as szd_count from "&table&" "" "&whe&""
\n   Set rs=conn.execute(sql2)
\n   szd_count=rs("szd_count")
\n   closers
\n    Set rs = Conn.Execute(sql)
\n    dim data
\n   If Rs.Eof Then
\n   data="no data"
\n   Else
\n   data=Rs.GetRows()
\n   End if
\n   closers
\n   closeconn()
\n   Call makesession (data)
\n     End Function
\n ‘+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
\n End Class
\n <\/font><\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

\u4f7f\u7528\u7684\u65f6\u5019\uff1a<\/p>\n

\u8fd0\u884c\u4ee3\u7801\u6846<\/p>\n\n\n\n
\u4ee5\u4e0b\u662f\u5f15\u7528\u7247\u6bb5\uff1a<\/font><\/p>\n

Dim action
\n  action=request("k")
\n  If action="view"  Then
\n  Call viewnew
\n  ElseIf action="list" Then
\n  Call list()
\n   ElseIf action="read" Then
\n  Call read()
\n  Else
\n  Call ff()
\n  End if
\n   Sub ff()
\n %>
\n <form style="border-top:2px solid #008;border-bottom:2px solid #008;margin:auto;background-color:#eee;padding:20px 5px;color:#008;font-weight:bold;">
\n    <label>\u663e\u793a\u4fe1\u606f\u603b\u6570:<input name="n" type="text" maxlength="4" size="10" \/>\u6bcf\u9875\u6570\u76ee:<input name="pagesize" type="text" maxlength="4" size="10" value="5"\/><input name="arrstart" type="hidden" value="0"><\/label><\/font><\/p>\n

   <h5 style="border-top:1px solid #000;padding:5px 0"> \u64cd\u4f5c:<input name="k" type="submit" value="view" \/><\/h5><\/font><\/p>\n

<\/form> <%End sub%>
\n   <%Sub viewnew()
\n   f_num=killint(request("n"),1,1)
\n    pagesize=killint(request("pageno"),5,5)
\n   arrstart=killint(request("start"),0,0)
\n   rowid=killint(request("rowid"),0,0)
\n  Set cs=new ado_5do8
\n  cs.ConnectString="data\/a.mdb"
\n  cs.havese="shi"
\n    cs.rs_top f_num,"site_szd",""
\n  cs.readarraysession  arrstart,pagesize,rowid
\n       End sub
\n   Sub list()
\n   response.write("<h5><a href=default.asp>\u8fd4\u56de\u9ed8\u8ba4\u6a21\u5f0f<\/a><\/h5>")
\n      response.write"\u4e0b\u9762\u663e\u793a\u5177\u4f53\u4fe1\u606f:<hr\/>"
\n     id=request("id")
\n     id=killint(id,1,1)
\n     Set listid=new ado_5do8
\n     listid.ConnectString="data\/a.mdb"
\n      listid.getid=id
\n     listid.gettable="site_szd"
\n     listid.list_ids()
\n  End Sub<\/font><\/p>\n

Sub read()
\n   response.write"<div style=’background-color:#ccc;padding:20px 0;color:080;font-weight:bold;border-bottom:2px solid #008′>\u9875\u9762\u5206\u6790\u5b8c\u6bd5\uff0c\u8981\u66f4\u65b0\u8bf7\u9009\u62e9<a href=default.asp>\u56de\u5230\u5178\u578b\u6a21\u5f0f<\/a>\u53c2\u6570\uff1aStart\uff0c\u5f00\u59cb\u5143\u7d20\uff1bpageno\uff0c\u6bcf\u9875\u6761\u6570<\/div>"
\n    pagesize=killint(request("pageno"),5,5)
\n   arrstart=killint(request("start"),0,0)
\n   rowid=killint(request("rowid"),0,0)
\n   Set cs=new ado_5do8
\n   cs.havese="shi"
\n   cs.readarraysession  arrstart,pagesize,rowid<\/font><\/p>\n

End sub<\/font><\/p>\n

Function killint(i,killstr,killsub)
\n   If Not IsNumeric(i) Then
\n   i=killstr
\n   ElseIf i<=0 Then
\n   i=killsub
\n   End if
\n   killint=Int(Left(i,5))
\n   End Function
\n %>
\n <\/font><\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n","protected":false},"excerpt":{"rendered":"

\u6240\u6709\u5199\u7a0b\u5e8f\u7684\u4eba\u90fd\u77e5\u9053\uff0c\u5f53\u4f60\u9010\u6e10\u5bf9\u60a8\u8981\u5b9e\u73b0\u7684\u529f\u80fd\u5c55\u5f00\u7684\u65f6\u5019\uff0c\u5f88\u5927\u7684\u65f6\u5019\uff0c\u7b2c\u4e00\u5929\u5199\u7684\u4e1c\u897f\u7b2c\u4e8c\u5929\u5c31\u5fd8\u4e86\u5199\u5230\u90a3\u91cc\u4e86\uff0c\u5f88\u591a\u7684\u65f6\u5019\uff0c\u4e0d\u5f97\u4e0d\u5199\u4e0a\u8be6\u7ec6\u7684\u7a0b\u5e8f\u5f00\u53d1\u7b14\u8bb0\uff0c\u8fd9\u5728ASP\u7684\u7cfb\u7edf\u5f00\u53d1\u4e2d\u611f\u89c9\u5c24\u5176\u6587\u4ef6\u3001\u51fd\u6570\u590d\u6742\u7684\u65f6\u5019\uff0c\u5f53\u6211\u4eec\u6253\u7b97\u5bf9\u7f51\u7ad9\u7684\u4e00\u90e8\u5206\u529f\u80fd\u8fdb\u884c\u4fee\u6539\u7684…<\/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":[],"topic":[],"class_list":["post-186","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/186","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=186"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/186\/revisions"}],"predecessor-version":[{"id":66037,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/186\/revisions\/66037"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=186"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=186"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=186"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=186"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}