中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx

主要是根據(jù)用戶訪問時(shí)間來判斷，在一臺(tái)計(jì)算機(jī)在一定時(shí)間之內(nèi)的訪問都不會(huì)被計(jì)數(shù)。而不理會(huì)用戶是否關(guān)閉瀏覽器，是否更換IP地址。

說明:
1.為方便用戶測試，我把判斷時(shí)間設(shè)定為10秒，測試時(shí)，有詳細(xì)的程序進(jìn)程顯示幫助理解
2.存成任意名字，放在任意目錄下
3.計(jì)數(shù)器數(shù)據(jù)記錄在2.asp這個(gè)文件中
4.需要FSO權(quán)限和用戶允許cookies，無需數(shù)據(jù)庫支持

思路如下：
　　　　　　　　判斷用戶cookies是否存在(判斷后寫用戶cookies為當(dāng)前時(shí)間)
　　　　　　　　　　　　　　　　�。�　　　　　　　　　�。�
　　　　　　　　　　　　　　　　存在　　　　　　　　　不存在
　　　　　　　　　　　　　　　　　｜　　　　　　　　　�。�　　　　　　　　　　　　　　　　　
　　　　　判斷cookies包含的用戶訪問時(shí)間是否過期　　　為用戶添加cookies
　　　　　｜　　　　　　　　　　　　　　　�。�　　　　　｜
　　　　過期　　　　　　　　　　　　　　未過期　　　計(jì)數(shù)器計(jì)數(shù)
　　　　�。�　　　　　　　　　　　　　　　�。�
　　計(jì)數(shù)器計(jì)數(shù)　　　　　　　　　　　　計(jì)數(shù)器不計(jì)數(shù)

代碼拷貝框
<STYLE type=text/css> body { font-family: "Tahoma"; font-size: 12px; text-decoration: none} </STYLE> <% dim User_login,Count_Result,Count_Content,CompareDate Count_Result="2.asp" '這里設(shè)定記錄計(jì)數(shù)器數(shù)據(jù)的文件名為2.asp CompareDate=10 '設(shè)定比較時(shí)間，無單位 User_login=Request.Cookies("User_login") '取得用戶Cookies If User_login="" Then '如果cookies不存在，就賦予用戶一個(gè)Cookies，并將計(jì)數(shù)器加一 response.write "用戶沒有cookies,線在創(chuàng)建<p>" Call CreateCookies Call ModifyCount Else response.write "用戶cookies存在，現(xiàn)在去比較時(shí)間是否過期<p>" Call IndentifyDate End If 'Response.Redirect Count_Result '修改計(jì)數(shù)器文件 Sub ModifyCount If CheckFileExists(Count_Result)=1 Then '計(jì)數(shù)器文件存在 response.write "計(jì)數(shù)器文件存在，現(xiàn)在去增加計(jì)數(shù)器的數(shù)值<p>" Call AddCount ElseIf CheckFileExists(Count_Result)=0 Then '計(jì)數(shù)器文件不存在就添加這個(gè)文件 response.write "計(jì)數(shù)器文件不存在，現(xiàn)在區(qū)創(chuàng)建這個(gè)文件,并將記錄設(shè)定為1<p>" Call CreateCount End If End Sub '給計(jì)數(shù)器文件增加數(shù)值 Sub AddCount response.write "給計(jì)數(shù)器加一完畢<p>" Count_Content=CInt(ReadTextFile(Count_Result))+1 '讀這個(gè)文件的內(nèi)容and給count_result.asp加一 Call SaveTextFile(Count_Result, Count_Content) End Sub '創(chuàng)建計(jì)數(shù)器文件 Sub CreateCount response.write "創(chuàng)建文件完畢<p>" CreateFile(Count_Result) '創(chuàng)建文件 Count_Content=1 '計(jì)數(shù)器歸零 Call SaveTextFile(Count_Result, Count_Content) End Sub '判斷cookies相差時(shí)間時(shí)間 Sub IndentifyDate If DateDiff("s",cDate(User_login), Now())>CompareDate Then '用戶機(jī)上的cookies所記錄的時(shí)間與當(dāng)前相差是否超過10s' response.write "超過10秒，cookies已經(jīng)過期，現(xiàn)在給計(jì)數(shù)器加一<p>" Call ModifyCount else response.write "短于10秒鐘，沒有過期，計(jì)數(shù)器不增長<p>" End If response.write "現(xiàn)在給cookies重新賦予現(xiàn)在的時(shí)間" Call CreateCookies End Sub '給用戶創(chuàng)建一個(gè)新的cookies并賦值,設(shè)定cookies失效時(shí)間為1天 Sub CreateCookies Response.Cookies("User_login")=Now() Response.Cookies("User_login").Expires=date+1 End Sub ' 檢查文件是否存在 Function CheckFileExists(strFile) Dim strTestFile, objFSO strTestFile = Server.Mappath(strFile) Set objFSO = CreateObject("Scripting.FileSystemObject") ' 檢查文件是否存在 If objFSO.FileExists(strTestFile) Then CheckFileExists = 1 Else CheckFileExists = 0 End If Set objFSO = Nothing End Function '寫文件 Sub SaveTextFile(strFile, strFileInnew) Dim objFSO, objOutStream, strTestFile strTestFile = Server.Mappath(strFile) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objOutStream = objFSO.OpenTextFile(strTestFile,2,True,False) objOutStream.WriteLine(strFileInnew) objOutStream.Close Set objOutStream = Nothing Set objFSO = Nothing End Sub ' 讀文件的內(nèi)容 Function ReadTextFile(strFile) Dim strTestFile, objFSO, objInStream strTestFile = Server.Mappath(strFile) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objInStream = objFSO.OpenTextFile (strTestFile,1, False, False) ReadTextFile = objInstream.ReadALL objInStream.Close Set objInStream = Nothing Set objFSO = Nothing End Function Function CreateFile(strFile) Dim strTestFile, objFSO, objStream strTestFile = Server.Mappath(strFile) Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strTestFile) Then CreateFile = 0 Else ' 新建文本文件 Set objStream = objFSO.CreateTextFile(strTestFile, True) objStream.write(filecontent) CreateFile = 1 Set objFile = Nothing End If Set objFSO = Nothing End Function %>
[Ctrl+A 全部選擇 然后拷貝]
運(yùn)行代碼框
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title> New Document </title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="Generator" content="EditPlus"> <meta name="Author" content="田耕"> <meta name="Keywords" content=""> <meta name="Description" content=""> <style type="text/css"> body,table,tr,td{ font-size:12px; color:#000000; } .sec1 { background-color: #99CC99; cursor: hand; color: #000000; border-left: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-right: 1px solid gray; border-bottom: 1px solid #FFFFFF } .sec2 { background-color: #D4D0C8; cursor: hand; color: #000000; border-left: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-right: 1px solid gray; font-weight: bold; } .main_tab { background-color: #D4D0C8; color: #000000; border-left:1px solid #FFFFFF; border-right: 1px solid gray; border-bottom: 1px solid gray; } </style> <script language="JavaScript"> <!-- function secBoard(n,x,y) { for(i=0;i<secTable.cells.length;i++){ secTable.cells[i].className="sec1"; secTable.cells[n].className="sec2";} for(i=0;i<mainTable.tBodies.length;i++){ mainTable.tBodies[i].style.display="none"; mainTable.tBodies[n].style.display="block";} weizi.innerHTML="<b>"+x.toUpperCase()+"</b>展館<b>"+y+"</b>樓展廳"; } //--> </script> </head> <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0"> <table width="588" border="0" cellspacing="1" cellpadding="4" align="center"> <tr> <td width="82%">當(dāng)前位置：展館分布 &gt; <span id="weizi"><b>A</b>展館<b>1</b>樓展廳</span></td> <td width="18%">&nbsp;</td> </tr> <tr> <td colspan="2" height="1" bgcolor="#000000"></td> </tr> <tr> <td colspan="2" height="4"></td> </tr> <tr> <td colspan="2"> <table border=0 cellspacing=0 cellpadding=0 width=578 id=secTable> <tr height=20 align=center> <td class=sec2 width=10% onClick="secBoard(0,'a','1')">A展館1樓展廳</td> <td class=sec1 width=10% onClick="secBoard(1,'a','2')">A展館2樓展廳</td> <td class=sec1 width=10% onClick="secBoard(2,'b','1')">B展館1樓展廳</td> <td class=sec1 width=10% onClick="secBoard(3,'b','2')">B展館2樓展廳</td> <td class=sec1 width=10% onClick="secBoard(4,'c','1')">C展館1樓展廳</td> <td class=sec1 width=10% onClick="secBoard(5,'c','2')">C展館2樓展廳</td> </tr> </table> <table border=0 cellspacing=0 cellpadding=0 width=578 height=160 id=mainTable class=main_tab> <tbody style="display:block;"> <tr> <td align="center"><br> 一<br> </td> </tr> </tbody> <tbody style="display:none;"> <tr> <td align="center"><br> 二<br> </td> </tr> </tbody> <tbody style="display:none;"> <tr> <td align="center"><br> 三<br> </td> </tr> </tbody> <tbody style="display:none;"> <tr> <td align="center"><br> 四<br> </td> </tr> </tbody><tbody style="display:none;"> <tr> <td align="center"><br> 五<br> </td> </tr> </tbody><tbody style="display:none;"> <tr> <td align="center"><br> 六<br> </td> </tr> </tbody> </table> </td> </tr> </table> </body> </html>
[Ctrl+A 全部選擇 提示：你可先修改部分代碼，再按運(yùn)行]

出處：藍(lán)色理想
責(zé)任編輯：藍(lán)色

◎進(jìn)入論壇網(wǎng)絡(luò)編程版塊參加討論