当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用asp脚本实现限制IP访问

ASP
ASP编程中15个非常有用的例子 (二)
ASP与JSP的比较(一)
ASP与JSP的比较(二)
ASP中五种连接数据库的方法
从ASP调用SQL中的图像
用排序串字段实现树状结构(例程:连接字串)
用排序串字段实现树状结构(例程:删除贴子)
用排序串字段实现树状结构(例程:回复表单)
用排序串字段实现树状结构(例程:显示贴子内容)
用排序串字段实现树状结构(例程:显示树)
用排序串字段实现树状结构(存储过程)
用排序串字段实现树状结构(库结构)
用排序串字段实现树状结构(原理)
remote script文档(转载自微软)(一)
remote script文档(转载自微软)(二)
remote script文档(转载自微软)(三)
remote script文档(转载自微软)(四)
remote script文档(转载自微软)(五)
remote script文档(转载自微软)(六)
remote script文档(转载自微软)(七)

ASP 中的 用asp脚本实现限制IP访问


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-12   浏览: 217 ::
收藏到网摘: n/a

cookies跨不了域很麻烦,有了这个脚本就方便多了.
<%
ip=Request.ServerVariables("REMOTE_ADDR")
set Fso=CreateObject("Scripting.FileSystemObject")
Set Files=Fso.OpenTextFile(server.mappath("/upload/tech/20091012/20091012012301_eda80a3d5b344bc40f3bc04f65b7a357.txt"),1,false)
data=files.readall
files.close
set fso=nothing
if InstrRev(data, ip, -1, 0) = 0 then
set Fso=CreateObject("Scripting.FileSystemObject")
Set File=Fso.OpenTextFile(server.mappath("/upload/tech/20091012/20091012012301_eda80a3d5b344bc40f3bc04f65b7a357.txt"),8,true)
file.writeline ip
file.close
set fso=nothing
response.write "此IP今天第一次访问该页面"
response.end
else
response.write "此IP以前访问过了"
response.end
end if
%>