\u5f53\u6570\u636e\u67095\u4e07\u591a\u6761\u65f6——-\u8981\u8c03\u7528\u6700\u65b0\u768410\u6761\u5728\u9875\u9762\u663e\u793a,\u7cdf\u7cd5\u7684\u662f,\u5f53n\u591a\u7528\u6237\u6253\u5f00\u9875\u9762\u8bbf\u95ee\u7684\u65f6\u5019,\u6bcf\u4e2a\u7528\u6237\u6bcf\u6b21\u90fd\u8981\u8bfb\u53d6\u6570\u636e\u5e93\u4e00\u6b21,\u8fd9\u65e0\u7591\u964d\u4f4e\u4e86\u6548\u7387,\u5f88\u660e\u663e,\u5982\u679c\u80fd\u628a\u6570\u636e\u80fd\u4fdd\u5b58\u5728\u5185\u5b58\u4e0a,\u7136\u540e\u8bfb\u53d6,\u65e0\u7591\u52a0\u5feb\u4e86\u901f\u5ea6. \u6240\u8c13\u7f13\u5b58\u5176\u5b9e\u5c31\u662f\u5728\u5185\u5b58\u4e2d\u5f00\u8f9f\u4e00\u4e2a\u7528\u6765\u4fdd\u5b58\u6570\u636e\u7684\u7a7a\u95f4\uff0c\u4f7f\u7528\u7f13\u5b58\u4f60\u5c31\u4e0d\u7528\u9891\u7e41\u7684\u8bbf\u95ee\u4f60\u4fdd\u5b58\u5728\u786c\u76d8\u4e0a\u7684\u6570\u636e\u4e86\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u6570\u636e\u6211\u4eec\u5e0c\u671b\u6bcf\u4e2a\u7528\u6237\u90fd\u80fd\u770b\u5230\u6548\u679c\u4e00\u6837,\u8003\u8651\u4f7f\u7528\u7684\u662fapplication\u5bf9\u8c61,\u56e0\u4e3a\u5b83\u662f\u6240\u6709\u8bbf\u95ee\u8005\u7684\u5171\u7528\u7684\u5bf9\u8c61,\u5b58\u50a8\u7684\u4fe1\u606f\u548c\u5b9a\u4e49\u7684\u4e8b\u4ef6\u80fd\u591f\u4e3a\u6240\u6709\u8005\u8bbf\u95ee\u8005\u4f7f\u7528,\u8fd9\u91cc\u8981\u4f7f\u7528asp\u5185\u7f6e\u5bf9\u8c61APPLICATION\u4e86,\u5173\u4e8eapplication,\u67092\u4e2a\u65b9\u6cd5[lock\u548cunlock],2\u4e2a\u96c6\u5408[content\u548cstaticobjects],2\u4e2a\u4e8b\u4ef6[\u5f00\u59cb\u7684application_onstart\u548capplication_end],application\u53d8\u91cf\u4e0d\u4f1a\u56e0\u4e3a\u7528\u6237\u7684\u79bb\u5f00\u800c\u6d88\u5931,\u4e00\u65e6\u5efa\u7acb,\u4e00\u76f4\u7b49\u5230\u7f51\u7ad9\u5173\u95ed\u548c\u7a0b\u5e8f\u5378\u8f7d\u4e3a\u6b62,\u6b63\u56e0\u4e3a\u5982\u6b64,\u4f7f\u7528\u7684\u65f6\u5019\u8981\u7279\u522b\u5c0f\u5fc3!,\u5426\u5219\u4f1a\u5360\u7528\u5185\u5b58,\u6211\u5728\u8fd9\u91cc\u4e0d\u7528\u591a\u8bf4,\u6709\u5174\u8da3\u7684\u67e5\u9605\u76f8\u5173\u8d44\u6599\u5427,\u5927\u4f53\u662f\u8fd9\u6837.\u6211\u4eec\u662f\u628a\u6570\u636e\u5199\u5165\u4e00\u4e2a\u81ea\u5b9a\u4e49\u7684application\u91cc\u9762,\u5728\u5236\u5b9a\u7684\u65f6\u95f4\u8bfb\u53d6\u5237\u65b0\u7684,\u5927\u4f53\u601d\u8def\u5c31\u662f\u8fd9\u6837. <\/p>\n
\u5b9e\u4f8b\u6f14\u793a.\u5148\u5efa\u7acb\u4e00\u4e2a\u7b80\u5355\u7684\u6570\u636e\u5e93,\u5199\u4e2afunction\u8bfb\u53d6\u4e00\u4e0b,\u5199\u5165\u4e00\u4e2adim\u53d8\u91cftemp\u4e2d: <\/p>\n
Function DisplayRecords()
\n’\u8fd9\u4e2a\u51fd\u6570\u539f\u6765\u7ed9\u4e00\u4e2a\u53d8\u91cftemp\u4ed8\u4e0a\u8bb0\u5f55\u7684\u503c
\nDim sql, conn, rs
\n’\u7b26\u5408\u6761\u4ef6\u7684sql\u8bed\u53e5
\nsql = "SELECT id, [szd_f], [szd_t] FROM admin"
\n’\u6253\u5f00\u6570\u636e\u5e93\u8fde\u63a5
\nSet conn = Server.CreateObject("ADODB.Connection")
\nconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db.mdb")
\nSet rs = Server.CreateObject("ADODB.Recordset")
\nrs.Open sql, conn, 1, 3
\n’\u5f53\u7b26\u5408sq\u8bed\u53e5l\u7684\u6570\u636e\u6ca1\u6709\u663e\u793a\u5b8c\u6bd5\u65f6
\nIf Not rs.EOF Then
\n’\u7ed9temp\u53d8\u91cf\u8d4b\u503c
\nDim temp
\ntemp = "<table width=""90%"" align=""center"""
\ntemp = temp & " border=""1"" bordercolor=""silver"""
\ntemp = temp & " cellspacing=""2"" cellpadding=""0"">"
\ntemp = temp & "<tr bgcolor=""#CCDDEE""><td width=""5%"""
\ntemp = temp & ">ID<\/td><td>\u64cd\u4f5c<\/td>"
\ntemp = temp & "<td>\u6570\u503c<\/td><\/tr>"
\n’\u5b58\u5728\u6570\u636e,\u63a5\u7740\u8d4b\u503c
\nWhile Not rs.EOF
\ntemp = temp & "<tr><td bgcolor=""#CCDDEE"">"
\ntemp = temp & rs("ID") & "<\/td><td>" & rs("szd_f")
\ntemp = temp & "<\/td><td>" & rs("szd_t")
\ntemp = temp & "<\/td><\/tr>"
\nrs.MoveNext
\nWend
\ntemp = temp & "<\/table>"
\n’temp\u8d4b\u503c\u5b8c\u6bd5,\u628a\u5b83\u518d\u8fd4\u56de\u7ed9\u51fd\u6570
\nDisplayRecords = temp
\nElse
\nDisplayRecords = "Data Not Available."
\nEnd If
\n’\u91ca\u653e\u5185\u5b58
\nrs.Close
\nconn.Close
\nSet rs = Nothing
\nSet conn = Nothing
\nEnd Function <\/p>\n
\nok,\u4e0a\u9762\u7684\u51fd\u6570\u6539\u9020\u5b8c\u6bd5,\u8c03\u7528\u7684\u65f6\u5019\u5c31\u662fDisplayRecords. <\/p>\n
\u4e0b\u9762\u662fapplication\u5927\u663e\u8eab\u624b\u4e86: <\/p>\n
’\u8be5\u51fd\u6570\u662f\u5199\u5165\u7f13\u5b58
\nFunction DisplayCachedRecords(Secs)
\nDim retVal, datVal, temp1
\n’Secs\u662f\u6bcf\u6b21\u8981\u5237\u65b0\u6570\u636e\u7684\u65f6\u95f4, retVal\u662f\u6570\u636e,datVal\u662f\u5269\u4f59\u65f6\u95f4
\nretVal = Application("cache_demo") ’\u53d6\u5f97appliction\u7684\u503c
\ndatVal = Application("cache_demo_date") ’\u53d6\u5f97appliction\u7684\u503c
\n’\u5224\u65addatVal \u7684\u503c,\u4e5f\u5c31\u662f\u8981\u8ba1\u7b97\u65f6\u95f4\u8fc7\u53bb\u4e86\u6ca1
\nIf datVal = "" Then
\n’\u5982\u679c\u662f\u7a7a,datVal\u503c\u4e3a\u5f53\u524d\u65f6\u95f4\u6309\u79d2\u52a0\u4e0asecs\u5b9a\u4e49\u7684\u65f6\u95f4
\ndatVal = DateAdd("s",Secs,Now)
\nEnd If
\n’temp1\u662f\u5224\u65ad\u5f53\u524d\u65f6\u95f4\u548cdatVal\u7684\u79d2\u5dee
\ntemp1 = DateDiff("s", Now, datVal)
\n’\u5982\u679cretVal\u5df2\u7ecf\u662f\u4e0a\u9762\u51fd\u6570\u7684\u8fd4\u56de\u503c\u4e14\u65f6\u95f4\u5927\u4e8e0
\nIf temp1 > 0 And retVal <> "" Then
\n’\u672c\u51fd\u6570\u8fd4\u56de\u8bb0\u5f55\u6570
\nDisplayCachedRecords = retVal
\nResponse.Write "<b><font color=""green"">\u5229\u7528\u7f13\u5b58\u8bfb\u53d6\u6570\u636e"
\nResponse.Write " … (" & temp1 & " \u79d2\u5269\u4f59)<\/font><\/b>"
\nResponse.Write "<br><br>"
\nElse
\n’retVal \u662f\u7a7a\u7684\u8bdd,\u5c31\u8d4b\u4e88DisplayRecords\u7684\u503c\u7ed9\u53d8\u91cftemp2
\nDim temp2
\ntemp2 = DisplayRecords()
\n’\u4fdd\u5b58\u5230Application.——————>\u91cd\u70b9
\nApplication.Lock
\nApplication("cache_demo") = temp2
\nApplication("cache_demo_date") = DateAdd("s",Secs,Now)
\nApplication.UnLock
\nDisplayCachedRecords = temp2
\n’ \u8fd9\u91cc\u968f\u4fbf\u5199\u4e0a\u4e86\u8bb0\u5f55\u7684\u7f13\u5b58\u7684\u8fc7\u53bb\u65f6\u95f4,\u76f8\u5bf9\u603b\u79d2\u6570\u5012\u5dee :
\nResponse.Write "<b><font color=""red"">\u5237\u65b0\u7f13\u5b58\u663e\u793a …"
\nResponse.Write "<\/font><\/b><br><br>"
\nEnd If
\nEnd Function
\n%> <\/p>\n
\n\u8bf4\u660e\u5b8c\u6bd5. <\/p>\n
\u4ee5\u4e0b\u4e3a\u5b8c\u6574\u65e0\u6ce8\u91ca\u4ee3\u7801 <\/p>\n
\n<%
\nFunction DisplayRecords()
\nDim sql, conn, rs
\nsql = "SELECT id, [szd_f], [szd_t] FROM admin"
\nSet conn = Server.CreateObject("ADODB.Connection")
\nconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db.mdb")
\nSet rs = Server.CreateObject("ADODB.Recordset")
\nrs.Open sql, conn, 1, 3
\nIf Not rs.EOF Then
\nDim temp
\ntemp = "<table width=""90%"" align=""center"""
\ntemp = temp & " border=""1"" bordercolor=""silver"""
\ntemp = temp & " cellspacing=""2"" cellpadding=""0"">"
\ntemp = temp & "<tr bgcolor=""#CCDDEE""><td width=""5%"""
\ntemp = temp & ">ID<\/td><td>\u64cd\u4f5c<\/td>"
\ntemp = temp & "<td>\u6570\u503c<\/td><\/tr>"
\nWhile Not rs.EOF
\ntemp = temp & "<tr><td bgcolor=""#CCDDEE"">"
\ntemp = temp & rs("ID") & "<\/td><td>" & rs("szd_f")
\ntemp = temp & "<\/td><td>" & rs("szd_t")
\ntemp = temp & "<\/td><\/tr>"
\nrs.MoveNext
\nWend
\ntemp = temp & "<\/table>"
\nDisplayRecords = temp
\nElse
\nDisplayRecords = "Data Not Available."
\nEnd If
\nrs.Close
\nconn.Close
\nSet rs = Nothing
\nSet conn = Nothing
\nEnd Function <\/p>\n
Function DisplayCachedRecords(Secs)
\nDim retVal, datVal, temp1
\nretVal = Application("cache_demo")
\ndatVal = Application("cache_demo_date")
\nIf datVal = "" Then
\ndatVal = DateAdd("s",Secs,Now)
\nEnd If
\ntemp1 = DateDiff("s", Now, datVal)
\nIf temp1 > 0 And retVal <> "" Then
\nDisplayCachedRecords = retVal
\nResponse.Write "<b><font color=""green"">\u5229\u7528\u7f13\u5b58\u8bfb\u53d6\u6570\u636e"
\nResponse.Write " … (" & temp1 & " \u79d2\u5269\u4f59)<\/font><\/b>"
\nResponse.Write "<br><br>"
\nElse
\nDim temp2
\ntemp2 = DisplayRecords()
\nApplication.Lock
\nApplication("cache_demo") = temp2
\nApplication("cache_demo_date") = DateAdd("s",Secs,Now)
\nApplication.UnLock <\/p>\n
DisplayCachedRecords = temp2
\nResponse.Write "<b><font color=""red"">\u5237\u65b0\u7f13\u5b58\u663e\u793a …"
\nResponse.Write "<\/font><\/b><br><br>"
\nEnd If
\nEnd Function
\n%> <\/p>\n
\n\u8c03\u7528\u65b9\u6cd5: <\/p>\n
\n<%=DisplayCachedRecords(20)%>
\n\u5199\u5728\u540e\u9762\u7684\u8bdd:\u5982\u679c\u4f60\u611f\u89c9\u4f60\u7684\u670d\u52a1\u5668\u5185\u5b58\u4e0d\u591f\u5927\u7684\u8bdd,\u4e0d\u8981\u5927\u91cf\u4f7f\u7528\u7f13\u5b58. <\/p>\n","protected":false},"excerpt":{"rendered":"
\u5f53\u6570\u636e\u67095\u4e07\u591a\u6761\u65f6——-\u8981\u8c03\u7528\u6700\u65b0\u768410\u6761\u5728\u9875\u9762\u663e\u793a,\u7cdf\u7cd5\u7684\u662f,\u5f53n\u591a\u7528\u6237\u6253\u5f00\u9875\u9762\u8bbf\u95ee\u7684\u65f6\u5019,\u6bcf\u4e2a\u7528\u6237\u6bcf\u6b21\u90fd\u8981\u8bfb\u53d6\u6570\u636e\u5e93\u4e00\u6b21,\u8fd9\u65e0\u7591\u964d\u4f4e\u4e86\u6548\u7387,\u5f88\u660e\u663e,\u5982\u679c\u80fd\u628a\u6570\u636e\u80fd\u4fdd\u5b58\u5728\u5185\u5b58\u4e0a,\u7136\u540e\u8bfb\u53d6,\u65e0\u7591\u52a0\u5feb\u4e86\u901f\u5ea6. …<\/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-183","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/183","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=183"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/183\/revisions"}],"predecessor-version":[{"id":66040,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/183\/revisions\/66040"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=183"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=183"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=183"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=183"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}