伊缘网 首页
 设为首页    加入收藏    用户帮助    联系我们 
网站首页 新闻动态 技术文章 Flash整站 精彩网文 资源下载 视频教程
网上商城 Flash动漫 网页特效 酷站欣赏 BBS论坛 在线工具 留言本站
  F-CMS Flash CMS   CXT Flash Cms   SXW Flash CMS   EXW Flash Cms   
  您的位置: 伊缘网 >> 网络学堂 >> 建站技术 >> ASP 编程
 阅读文章

asp限制ip访问代码

  文章作者:佚名来源:转摘浏览次数:5887字体:
 阅读权限:游客身份阅读花费:0 E币添加时间:2006-11-28 上午 11:30:43提交会员:esing
皮具制造生产企业,专注时尚包包
提示:登陆本站会员系统后,网站系统将不显示任何广告!如果您还不是本站会员请注册本站会员,谢谢您对本站的关注!
   ip_start="61.143.129.0"
ip_end        ="61.143.133.255"
ip_start_arr        =split(ip_start,".")
ip_end_arr        =split(ip_end,".")
ip_start_str=""
ip_end_str=""
ip_user_str=""
for i=0 to 3
        ip_start_str=ip_start_str!amp;right(cstr(formatnumber(cint(ip_start_arr(i))/1000,3)),3)
        ip_end_str=ip_end_str!amp;right(cstr(formatnumber(cint(ip_end_arr(i))/1000,3)),3)
next
''测试客户端是否用代理
userip = request.servervariables("http_x_forwarded_for") 
if userip = "" then userip = request.servervariables("remote_addr")
ip_user_arr        =split(userip,".")
for i=0 to 3
        ip_user_str=ip_user_str!amp;right(cstr(formatnumber(cint(ip_user_arr(i))/1000,3)),3)
next
if cdbl(ip_user_str)>cdbl(ip_end_str) or cdbl(ip_user_str)<cdbl(ip_start_str) then
        response.write "超出访问范围"

  Tags:  ASP  
·上篇文章:ASP中实现随机广告
·下篇文章:将Access数据转换为XML格式
复制 】 【 打印
 相关文章
·百度资料: asp限制ip访问代码
·asp.net 上传图片+自动生成缩略图+图片水印功能 2010-6-13 下午 05:28:41
·动手写个小组件(组件入门)_ASP 2010-5-23 上午 09:02:24
·ASP无组件上传错误 "80004005"解决方法 2010-4-26 下午 03:48:08
·ASP生成UTF-8文件实例 2010-1-8 上午 12:26:34
·在IE8下无组件上传错误"800a0005"的解决方法 2009-6-25 下午 06:27:51
特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们,我们尽快予以更正,谢谢。
 相关评论
【文章评论已关闭】
伊缘网