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 %>
上传时间: 2016-07-14
上传用户:helei0915
8*8像素分块,DCT,量化,Z扫描,差分编码,huffman编码
上传时间: 2016-08-18
上传用户:chongchongsunnan
8*8像素分块,DCT,量化,Z扫描,差分编码,huffman编码
上传时间: 2016-08-18
上传用户:chongchongsunnan
SSCOM32使用说明: 将用户程序通过串口的方式下载到ATT7025/7027中。 使用步骤: (1)选择通讯口,然后打开串口,如下图所示 (2)将DTR打勾,DTR对应芯片的TMS1脚,也就是说通过将DTR打勾将TMS1拉为低电平 (3)将RTS打勾,然后将勾取消,RTS对应芯片的外部复位引脚,通过将RTS打勾将芯片外部复位引脚拉低,使芯片处于复位状态,然后将RTS拉高,使得芯片完成复位。 (4)将鼠标移动到上面的大文本框,点击回车按键,然后可以看到有返回信号,如下图所示: (5)从键盘输入 “M0000” ,会有如下返回信号,如下图所示,通过这个命令将芯片内的24Kflash擦除 (6)从键盘输入 “M8000” ,会有如下返回信号,如下图所示,通过这个命令将芯片内的8Kflash擦除 (7)从键盘输入 “E”,如下所示: 说明:键入“E”后,不再显示随后键入的字符,但所键入字符可通过串口访问芯片。 (8)从键盘输入 “L”,此时不会再看到返回字符,然后点击打开文件,选择用户需要下载的hex文件 说明:键入“L”是Load命令,此时可以打开一个hex文件进行写Flash操作。 (9)点击发送文件,如下图所示: (10)当正确传输完成时,如下图所示: 上图中的情况说明程序下载正确。 (11)将DTR的勾取消,也就是说将芯片的TMS1拉高,将芯片切换到Normal模式,将RTS拉低再拉高,也就是说将芯片复位一次,此时芯片内的程序就开始正常运行了。 软件标签: 串口调试 软件截图 亲 如果您觉得西西能给您带来帮助请帮西西给个好评下谢谢 :)
标签: sscom32免注册版本
上传时间: 2016-09-22
上传用户:wangliya888
TOC \o "1-3" \h \z 实验一 DEBUG的启动及其基本命令的使用..... PAGEREF _Toc83101466 \h 1 实验二 内存操作数及寻址方法..... PAGEREF _Toc83101467 \h 5 实验三 汇编语言程序的调试与运行..... PAGEREF _Toc83101468 \h 7 实验四 查表程序设计..... PAGEREF _Toc83101469 \h 9 实验五 系统功能调用..... PAGEREF _Toc83101470 \h 11 实验六 分支程序设计..... PAGEREF _Toc83101471 \h 12 实验七 循环程序设计..... PAGEREF _Toc83101472 \h 14 实验八 子程序设计..... PAGEREF _Toc83101473 \h 16 实验九 综合程序设计..... PAGEREF _Toc83101474 \h 19 附录一 DEBUG命令详解 31 附录二 实验报告....... 48
上传时间: 2016-12-12
上传用户:w335801121
本文件的目的是定义在OS抽象层(OSAL)的API。这个API允许的TI堆叠产品的软件组件 ,例如Z-堆栈™,的RemoTI™和BLE,可以独立于操作系统的具体的书面,内核或任务环境(包括控 制回路或连接-于─中断系统)
上传时间: 2017-02-17
上传用户:lonerxin
2540,cc,软件,手册,cc2540 软件手册
上传时间: 2017-02-23
上传用户:buctboy
选择文件 X 纯手工生成的PE可执行文件
标签: 可执行文件
上传时间: 2017-03-12
上传用户:cookidog
3200,cc,使用手册3200,cc,使用手册3200,cc,使用手册3200,cc,使用手册
上传时间: 2017-09-23
上传用户:houwenqian
已知系统函数为H(z)=1/[(1-0.2z^-1)(1-0.3z^-1)(1+0.4z^-1)]。试用长除法求h(n)的6点输出。 答案:clc;clear all;b=1;a=poly([0.2,0.3,-0.4]);x=deconv([1,zeros(1,6+4-1-1)],a)
上传时间: 2017-10-21
上传用户:zhouhua