蝙蝠岛资源网 Design By www.hbtsch.com
asp 设置只能指定域名可以使用此网站
代码一 原创
<% myIp = ",127.0.0.1,localhost,www.jb51.net," myurl= request.ServerVariables("SERVER_NAME") Response.write myurl if InStr(myIp,","&myurl&",")>0 then Response.write "域名合法" else Response.write "域名不合法" end if %>
代码二
myIp = Array("127.0.0.1","jb51") myHou = new Array("",".com") myDirect ="//www.jb51.net/" ip= request.ServerVariables("HTTP_HOST") j=0 for i=0 to ubound(myIp) 'Response.Write(i&"--"&myIp(i)&"<br>") if InStr(ip,myIp(i)&myHou(i))>0 then 'Response.Write(myIp(i)&"==") j=j+1 end if next if j<1 then response.Redirect(myDirect) end if
上面的代码用到了下面的资料
asp获取当前域名和端口号方法
asp获取当前域名从来就不是什么有难度的事情,但是在实际项目使用中,大家获取的具体URL信息可能是不同的,各个方法获取见下表,而如果要获取当前域名,可以看下面加粗部分:
Request.ServerVariables("SERVER_NAME")'当前域名
Request.ServerVariables("SERVER_PORT")'当前端口
Request.ServerVariables("SCRIPT_NAME")'当前文件名
Request.ServerVariables("QUERY_STRING")'当前页面的传入参数
Request.ServerVariables("HTTP_USER_AGENT")'取得当前浏览器信息
Request("remote_addr")'取得IP
Request.ServerVariables("HTTP_REFERER")'上个页面地址
Request.ServerVariables("HTTP_HOST")'获取当前域名
当采用SERVER_NAME时返回的是不带端口号的URL
标签:
asp限制域名
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com
暂无asp限制域名访问实现代码的评论...
更新日志
2024年12月25日
2024年12月25日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]