亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

蟲蟲首頁| 資源下載| 資源專輯| 精品軟件
登錄| 注冊

expires

  • uploading the file , the system will delete the file when time expires

    uploading the file , the system will delete the file when time expires

    標簽: the file uploading expires

    上傳時間: 2013-12-18

    上傳用戶:lizhizheng88

  • uploading the file , the system will delete the file when time expires

    uploading the file , the system will delete the file when time expires

    標簽: the file uploading expires

    上傳時間: 2017-07-27

    上傳用戶:13215175592

  • asp實現限制一個ip只能訪問一次的方法

    asp實現限制一個ip只能訪問一次的方法 <%  '/////////////////////////////////////////////////////  '// //  '//作用:一個IP地址只允許訪問本頁一次 //  '//引用:<!-- #include file="Check_Ip.asp" --> //  '// //  '/////////////////////////////////////////////////////    'Response.Charset = 936 '設置輸出編碼為簡體中文  'Response.Buffer = false '關閉緩沖區    Dim Fso,ts,IpList,Cfs    '設置Cookies函數  Function SetCookie()  Response.Cookies("IsBrow") = "Brow" Response.Cookies("IsBrow").expires = Date+365  End Function    '記錄IP地址函數  Function WriteIp(FileName, IpAddress)  Set Fso = Server.CreateObject("Scripting.FileSystemObject")  Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true)  ts.WriteLine IpAddress  ts.Close  Set ts = Nothing  Set Fso = Nothing  End Function    '讀取IP地址函數  Function ReadIpList(FileName)  Set Fso = Server.CreateObject("Scripting.FileSystemObject")  If Not Fso.FileExists(Server.MapPath(FileName)) Then  CreateFile("Iplist.txt")  Exit Function  End If    Set ts = Fso.OpenTextFile(Server.MapPath(FileName))  Iplist = ts.ReadAll  ts.Close  Set ts = Nothing  Set Fso = Nothing  ReadIpList = Iplist  End Function    '創建文件函數  Function CreateFile(FileName)  Set Fso = Server.CreateObject("Scripting.FileSystemObject")  Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName))  Cfs.Close  Set Cfs = Nothing  Set Fso = Nothing  End Function    '關閉當前IE窗口函數(注:IE6下通過,其他瀏覽器未測試)  Function CloseWindow()  'Response.Write "<script>window.location='javascript:window.opener=null;window.close();'</script>"  Response.Redirect "http://www.baidu.com" End Function    Ip = Request.ServerVariables("REMOTE_ADDR") '獲取瀏覽者IP地址    Cookie = Request.Cookies("IsBrow") '獲取當前Cookies  'Response.Write Cookie    If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then  Response.Write "本站不允許使用代理訪問" Response.End()  Else  If Cookie = "Brow" Then  CloseWindow()  Else  If Instr(ReadIpList("Iplist.txt"),Ip) <>0  Then  CloseWindow()  Else  WriteIp "Iplist.txt" , Ip  End If  SetCookie()  End If  End If  %>

    標簽: asp 訪問

    上傳時間: 2016-07-14

    上傳用戶:helei0915

主站蜘蛛池模板: 马关县| 辽阳市| 安泽县| 文水县| 大邑县| 喜德县| 梧州市| 宝丰县| 九台市| 张掖市| 拜城县| 廉江市| 绥滨县| 双鸭山市| 喀喇沁旗| 长岛县| 济南市| 瑞昌市| 博罗县| 永嘉县| 额济纳旗| 华宁县| 浮梁县| 福安市| 余干县| 绩溪县| 垦利县| 城步| 六枝特区| 镇安县| 汪清县| 凤台县| 巴彦淖尔市| 自治县| 元谋县| 饶阳县| 囊谦县| 浠水县| 彰武县| 兖州市| 延长县|