请问，允许多个IP或IP段访问网站ASP如何写？ ；；；； windows路由选择指定ip
asp限制两个ip能访问网站
看错了.. 哈哈..现在修改了<br><%<br>tip=Request.ServerVariables("REMOTE_ADDR")<br>if tip<>"58.23.122.239" and tip<>"58.23.122.239" then<br>response.Write"<script>alert('您不是指定IP不能访问本网站');location.href('Error.asp'); </script>"<br>response.end<br>end if<br>%>
ASP代码限制IP访问
判断 Request.ServerVariables("Remote_Addr") 是否在“有权限IP”内
是 则继续执行
否 则跳转错误提示
ASP中的IP段限制
<% viewer_ip = GetIP xxx=0 for i=224 to 239 '才十几个，挨个判断一下 ipip="202.197."&i&"." If left(viewer_ip,12)=ipip Then x=x+1 End If next if x=0 then Response.Write("不能访问") Response.End() end if '下面这个函数用于获取访问者ip，可以识别出是否使用代理，找出原始地址。 Function GetIP() Dim sIP If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then sIP = Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then sIP = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then sIP = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) Else sIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If If sIP = "" Then sIP = "0.0.0.0" GetIP = sIP End Function %>
如何为Windows配置多IP并在访问网站时可指定使用某个IP访问
一、网卡配置多IP
步骤如下：点击"开始--运行"，输入"regedit"，找到 HKEY_LOCAL_MACHINE\System\CurrentControlSet\services\Class\NetTrans，在此目录中可以看到多个名为0000、0001、0002等等的目录，在其中找到DriverDesc为TCP/IP的目录，修改IPAddress和IPMask两个键，其中PAddress为逗号隔开的多个IP地址，IPMask对应的是子网掩码。
二、网站访问IP
打开IIS，在弹出窗口中的IP地址中选择你需要的IP即可。