{"id":203,"date":"2008-12-04T08:55:37","date_gmt":"2008-12-04T00:55:37","guid":{"rendered":""},"modified":"2014-02-27T22:59:39","modified_gmt":"2014-02-27T14:59:39","slug":"%e7%94%a8asp%e7%bc%96%e5%86%99%e8%ae%a1%e6%95%b0%e5%99%a8%e7%9a%84%e6%96%b9%e6%b3%95","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2008\/12\/04\/203.htm","title":{"rendered":"\u7528ASP\u7f16\u5199\u8ba1\u6570\u5668\u7684\u65b9\u6cd5"},"content":{"rendered":"

\u5f88\u591a\u7684\u7f51\u7ad9\u90fd\u6709\u8bb0\u6570\u5668\uff0c\u7528\u6765\u8bb0\u5f55\u7f51\u7ad9\u7684\u8bbf\u95ee\u91cf\uff0c\u8fd9\u7ed9\u7f51\u7ad9\u7ba1\u7406\u5458\u5373\u65f6\u4e86\u89e3\u672c\u7f51\u7ad9\u7684\u8fd0\u884c\u53ca\u8bbf\u95ee\u60c5\u51b5\u63d0\u4f9b\u4e86\u5f88\u591a\u7684\u65b9\u4fbf\u3002\u7b14\u8005\u7814\u7a76\u8fc7\u5f88\u591a\u7528ASP\u7f16\u5199\u7684\u8ba1\u6570\u5668\u7a0b\u5e8f\uff0c\u53d1\u73b0\u5927\u90e8\u4efd\u90fd\u662f\u5728\u4e00\u4e2a\u8bbf\u5ba2\u8bbf\u95ee\u7ad9\u70b9\u7684\u65f6\u5019\u5c31\u6253\u6587\u672c\u6587\u4ef6\u6216\u6570\u636e\u5e93\uff0c\u8bfb\u53d6\u4ee5\u524d\u7684\u8ba1\u6570\u503c\u8fdb\u884c\u52a01\uff0c\u7136\u540e\u518d\u5199\u5165\u6587\u4ef6\uff0c\u82e5\u7f51\u7ad9\u8bbf\u95ee\u91cf\u5f88\u5927\uff0c\u53ef\u80fd\u4f1a\u5bf9\u7cfb\u7edf\u9020\u6210\u5f88\u5927\u7684\u8d1f\u62c5\uff0c\u90a3\u4e48\u6709\u6ca1\u6709\u4f18\u5316\u7684\u65b9\u6cd5\u5462\uff0c\u7b14\u8005\u7ecf\u8fc7\u7814\u7a76\u6d4b\u8bd5\uff0c\u7b54\u6848\u662f\uff1a\u6709\u3002  <\/p>\n

\u719f\u6089ASP\u7684\u670b\u53cb\u90fd\u77e5\u9053\uff0cASP\u63d0\u4f9b\u4e00\u4e2aApplication\u5c5e\u6027\u7528\u6765\u4fdd\u5b58\u670d\u52a1\u5668\u7684\u4e00\u4e9b\u516c\u5171\u53d8\u91cf\uff0c\u6211\u4eec\u53ef\u4ee5\u7528\u8fd9\u4e2a\u53d8\u91cf\u6765\u4fdd\u5b58\u8bb0\u6570\u5668\u7684\u4fe1\u606f\u3002  <\/p>\n

\u601d\u8def\u662f\u5148\u8bbe\u5b9a\u4e24\u4e2aApplication\u53d8\u91cf\uff0c\u4e00\u4e2aApplication(“TotalCount”)\uff0c\u7528\u6765\u4fdd\u5b58\u8bb0\u6570\u503c\uff1b\u53e6\u4e00\u4e2aApplication(“LastwriteTime”)\uff0c\u7528\u6765\u4fdd\u5b58\u4e0a\u6b21\u628a\u8bb0\u6570\u503c\u4fdd\u5b58\u5230\u6587\u4ef6\u7684\u65f6\u95f4\u3002\u6211\u4eec\u53ef\u4ee5\u81ea\u5df1\u5b9a\u4e49\u628a\u8ba1\u6570\u503c\u4fdd\u5b58\u5230\u6587\u4ef6\u7684\u95f4\u9694\u65f6\u95f4\uff0c\u6bd4\u59821\u5c0f\u65f6\u30011\u5929\u6216\u8005\u4e00\u4e2a\u6708\u3002\u5728\u6709\u8bbf\u5ba2\u8bbf\u7f51\u7ad9\u7684\u65f6\u5019\uff0c\u8ba9Application(“TotalCount”)\u8fdb\u884c\u52a01\uff0c\u5982\u679c\u4e0a\u6b21\u4fdd\u5b58\u8ba1\u6570\u7684\u65f6\u95f4\u4e0e\u73b0\u5728\u7684\u65f6\u95f4\u5dee\u5927\u4e8e\u6211\u4eec\u8bbe\u5b9a\u7684\u4fdd\u5b58\u65f6\u95f4\u95f4\u9694\u503c\uff0c\u90a3\u4e48\u5c31\u628a\u5f53\u524d\u7684\u8ba1\u6570\u503c\u5199\u5165\u6587\u4ef6\u4fdd\u5b58\uff0c\u8fd9\u6837\u5c31\u51cf\u5c11\u4e86\u7a0b\u5e8f\u7684IO\u64cd\u4f5c\uff0c\u8282\u7ea6\u4e86\u7cfb\u7edf\u7684\u8d1f\u62c5\u3002  <\/p>\n

\u4e3a\u4e86\u907f\u514d\u53d1\u751f\u610f\u5916\uff0c\u5982\u65ad\u7535\u6216\u8005\u670d\u52a1\u5668\u505c\u6b62\u53cd\u5e94\u9700\u5f85\u91cd\u542f\u7b49\uff0c\u6211\u4eec\u53ef\u4ee5\u8bbe\u5b9a\u4fdd\u5b58\u65f6\u95f4\u95f4\u9694\u4e3a2\u5c0f\u65f6\uff0c\u8fd9\u6837\u5373\u4f7f\u53d1\u751f\u610f\u5916\uff0c\u635f\u5931\u4e5f\u4e0d\u4f1a\u592a\u5927\u3002  <\/p>\n

\u4f8b\u7a0b\u5982\u4e0b\uff1a  <\/p>\n

\n<%  <\/p>\n

Dim oFSO   ’\u5b9a\u4e49FSO\u7ec4\u4ef6\u5bf9\u8c61  <\/p>\n

Dim oFile\u3000\u3000’\u5b9a\u4e49\u8bfb\u5199\u6587\u4ef6\u5bf9\u8c61  <\/p>\n

Dim nCount\u3000’\u5b9a\u4e49\u4ece\u6587\u4ef6\u4e2d\u8bfb\u53d6\u7684\u8bb0\u6570\u503c  <\/p>\n

Dim sFilePath ’\u5b9a\u4e49\u8ba1\u6570\u5668\u4fdd\u5b58\u6587\u4ef6\u7684\u8def\u5f84  <\/p>\n

Const iInterval=2 ’\u5b9a\u4e49\u4fdd\u5b58\u65f6\u95f4\u95f4\u9694\u4e3a2\u5c0f\u65f6  <\/p>\n

SFilePath=Server.MapPath("Count\/Count.txt")  ’\u5047\u8bbe\u8ba1\u6570\u5668\u6587\u4ef6\u5728\u6839\u76ee\u5f55\u4e0b\u7684Count\u76ee\u5f55\u4e2d\uff0c\u6587\u4ef6\u540d\u4e3aCount.txt  <\/p>\n

IF  Application("TotalCount")=0 or Application("TotalCount")="" THEN  <\/p>\n

’\u5982\u679c\u7b2c\u4e00\u6b21\u8fd0\u884c\u7f51\u7ad9\uff0c\u6bd4\u5982\u91cd\u542f\u540e\uff0c\u6211\u4eec\u5c31\u9700\u8981\u4ece\u6587\u4ef6\u4e2d\u8bfb\u53d6\u51fa\u4ee5\u524d\u7684\u8ba1\u6570\u503c  <\/p>\n

\u3000\u3000\u3000Set oFSO=Server.CreateObject("Scripting.FileSystemObject")\u3000’\u5b9e\u4f8b\u5316\u6587\u4ef6\u64cd\u4f5c\u5bf9\u8c61oFSO  <\/p>\n

      IF not oFSO.FileExists(sFilePath) THEN  <\/p>\n

          OFile=oFSO.CreateTextFile(sFilePath,true)  ’\u5982\u679c\u6587\u4ef6\u4e0d\u5b58\u5728\uff0c\u5219\u521b\u5efa\u4e00\u4e2a\u6587  <\/p>\n

\u4ef6  <\/p>\n

\u3000 \u3000\u3000\u3000\u3000oFile.Write("1")   \u5199\u5165\u5f53\u524d\u7684\u8ba1\u6570\u503c"1"  <\/p>\n

           oFile.close  <\/p>\n

           Application("TotalCount")=1  <\/p>\n

      ELSE  <\/p>\n

            Set oFile = oFSOt.OpenTextFile(sFilePath)   <\/p>\n

            NCount=OFile.ReadLine  <\/p>\n

            Application("TotalCount")=Clng(nCount)+1  <\/p>\n

            OFile.close  <\/p>\n

      End IF  <\/p>\n

      Application("LastwriteTime")= Now  ’\u8bbe\u7f6e\u6700\u540e\u4e00\u6b21\u8bbf\u95ee\u7684\u65f6\u95f4\u4e3a\u5f53\u524d\u65f6\u95f4  <\/p>\n

   <\/p>\n

ELSE  <\/p>\n

      Application("TotalCount")= Application("TotalCount")+1  <\/p>\n

      IF DateDiff("H", Application("LastwriteTime"),Now)>iInterval THEN  <\/p>\n

       ’\u5982\u679c\u5f53\u524d\u65f6\u95f4\u4e0e\u4e0a\u6b21\u4fdd\u5b58\u8ba1\u6570\u503c\u7684\u65f6\u95f4\u5dee\u5927\u4e8e\u8bbe\u5b9a\u7684\u65f6\u95f4\u95f4\u9694\uff0c\u5219\u628a\u8ba1\u6570\u503c\u91cd\u65b0\u5199\u5165\u6587\u4ef6  <\/p>\n

           Set oFSO=Server.CreateObject("Scripting.FileSystemObject")\u3000’\u5b9e\u4f8b\u5316\u6587\u4ef6\u64cd\u4f5c\u5bf9\u8c61oFSO  <\/p>\n

           OFile=oFSO.OpenTextFile(sFilePath,true)  ’\u6253\u5f00\u6587\u4ef6  <\/p>\n

           oFile.Write(Application("TotalCount"))   ’\u5199\u5165\u5f53\u524d\u7684\u8ba1\u6570\u503c  <\/p>\n

           oFile.close  <\/p>\n

           Application("LastwriteTime")= Now  ’\u8bbe\u7f6e\u6700\u540e\u4e00\u6b21\u8bbf\u95ee\u7684\u65f6\u95f4\u4e3a\u5f53\u524d\u65f6\u95f4  <\/p>\n

       END IF  <\/p>\n

End IF  <\/p>\n

Response.Write("\u6b22\u8fce\u5149\u4e34\u672c\u7f51\u7ad9\uff0c\u4f60\u662f\u8bbf\u95ee\u672c\u7f51\u7ad9\u7684\u7b2c" & Application("TotalCount") & "\u4f4d\u8bbf\u5ba2\uff01")  <\/p>\n

%> 
\n\u672c\u4f8b\u7a0b\u5728Windows<\/a>2000 IIS5.0\u4e0b\u901a\u8fc7\u3002 <\/p>\n","protected":false},"excerpt":{"rendered":"

\u5f88\u591a\u7684\u7f51\u7ad9\u90fd\u6709\u8bb0\u6570\u5668\uff0c\u7528\u6765\u8bb0\u5f55\u7f51\u7ad9\u7684\u8bbf\u95ee\u91cf\uff0c\u8fd9\u7ed9\u7f51\u7ad9\u7ba1\u7406\u5458\u5373\u65f6\u4e86\u89e3\u672c\u7f51\u7ad9\u7684\u8fd0\u884c\u53ca\u8bbf\u95ee\u60c5\u51b5\u63d0\u4f9b\u4e86\u5f88\u591a\u7684\u65b9\u4fbf\u3002\u7b14\u8005\u7814\u7a76\u8fc7\u5f88\u591a\u7528ASP\u7f16\u5199\u7684\u8ba1\u6570\u5668\u7a0b\u5e8f\uff0c\u53d1\u73b0\u5927\u90e8\u4efd\u90fd\u662f\u5728\u4e00\u4e2a\u8bbf\u5ba2\u8bbf\u95ee\u7ad9\u70b9\u7684\u65f6\u5019\u5c31\u6253\u6587\u672c\u6587\u4ef6\u6216\u6570\u636e\u5e93\uff0c\u8bfb\u53d6\u4ee5\u524d\u7684\u8ba1\u6570\u503c\u8fdb\u884c\u52a01\uff0c\u7136\u540e\u518d\u5199…<\/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-203","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/203","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=203"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/203\/revisions"}],"predecessor-version":[{"id":66060,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/203\/revisions\/66060"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=203"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=203"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=203"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=203"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}