asp 设置只能指定域名可以使用此网站
代码一 服务器之家原创
1
2
3
4
5
6
7
8
9
10
|
<% myIp = ",127.0.0.1,localhost,www.zzvips.com," myurl= request.ServerVariables( "SERVER_NAME" ) Response.write myurl if InStr(myIp, "," &myurl& "," )>0 then Response.write "域名合法" else Response.write "域名不合法" end if %> |
代码二
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
myIp = Array( "127.0.0.1" , "jb51" ) myHou = new Array( "" , ".com" ) myDirect = "//www.zzvips.com/" 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