求：只允许几个ip段访问的asp代码！

2006-08-27 01:57:58 298 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

快速从零搭建一个SpringBoot Web项目从零快速搭建一个SpringBoot Web项目环境： IDEA+Navicat+Jdk1.8+Mysql5.7 SpringBoot+Thymeleaf+Mybatis+SpringSecurity 目录从零快速搭建一个SpringBoot Web项目 1 一、新建一个SpringBoot项目 2 1.1 选择新增:File->New->Project 2 1.2 选择Spring Initializr，指定JDK版本，直接下一步 3 1.3填写项目相关信息，然后下一步 3 阅读详情

求：只允许几个ip段访问的asp代码！有几个页面只允许几个段的IP访问的代码不是全部

...全文

Idea+Maven+springboot+Mybatis 创建web项目教程（1）：环境搭建与配置前言：最近在学springboot，本来的顺序应该是从spring开始，奈何上手困难，因此从springboot开始先了解，打算再翻过去学习spring。跟着慕课的一个小项目练习，我自己用到的版本是Idea2020.01.07，电脑win10，maven是idea自带，jdk11。整个项目应该是： Idea+Maven+springboot+Mybatis 下面开始记录过程：一、创建一个maven项目在 idea中： 1.new 一个maven项目。选择 maven-archetype-qui 阅读详情

l217219

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

pcworld 2006-08-27

打赏
举报

<%
Dim User_Ip
User_Ip=Request.servervariables("REMOTE_ADDR")
call IpLock(User_Ip)
Sub IpLock(User_Ip)
Dim IpArray,WhyIpLock
IpArray=split(User_Ip,".")
Dim IpSQL,IpRS
IpSQL="SELECT iplock From IpLock Where "& _
" (ipsame=4 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" and ip4="&Cint(IpArray(3))&" ) "& _
" Or (ipsame=3 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" ) "& _
" Or (ipsame=2 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" ) "& _
" Or (ipsame=1 and ip1="&Cint(IpArray(0))&" ) Order By ipid "
Set IpRS=Conn.execute(IpSQL)
If Not (IpRS.bof or IpRS.eof) Then
WhyIpLock=split(IpRS("iplock"),"|")
Response.Write("<script language=javascript>alert('对不起你没有权限访问此页面');history.back(1);</script>")
Response.End
End If
Set IpRS=Nothing
End Sub
%>

l217219 2006-08-27

打赏
举报

我不会呀
就是他现在是把加到数据库的IP不让访问
我只允许加到数据库的IP访问而其他的禁止

l217219 2006-08-27

打赏
举报

反起改

wansai00 2006-08-27

打赏
举报

你咋用的啊？？ // language=javascript runat=server

代码不一定是让照抄的

意思是用Request.ServerVariables("Remote_Addr");获得浏览者的ip

然后再做个验证就行了

至于怎么个验证法你可以自己根据情况自己写的

l217219 2006-08-27

打赏
举报

谁能帮我改一改下面这个代码呀

<%
Dim User_Ip
User_Ip=Request.servervariables("REMOTE_ADDR")
call IpLock(User_Ip)
Sub IpLock(User_Ip)
Dim IpArray,WhyIpLock
IpArray=split(User_Ip,".")
Dim IpSQL,IpRS
IpSQL="SELECT iplock From IpLock Where "& _
" (ipsame=4 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" and ip4="&Cint(IpArray(3))&" ) "& _
" Or (ipsame=3 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" and ip3="&Cint(IpArray(2))&" ) "& _
" Or (ipsame=2 and ip1="&Cint(IpArray(0))&" and ip2="&Cint(IpArray(1))&" ) "& _
" Or (ipsame=1 and ip1="&Cint(IpArray(0))&" ) Order By ipid "
Set IpRS=Conn.execute(IpSQL)
If Not (IpRS.bof or IpRS.eof) Then
WhyIpLock=split(IpRS("iplock"),"|")
Response.Write("<script language=javascript>alert('对不起你没有权限访问此页面');history.back(1);</script>")
Response.End
End If
Set IpRS=Nothing
End Sub
%>

leohuang 2006-08-27

打赏
举报

IP段这么设置allowIP=100200000000,就是100.200.0.0
把取得的IP也格式成这种格式,用字符串来比较就是了
ip = Request.ServerVariables("REMOTE_ADDR")

function FormatIP(ip)
arr = split(ip,".")
for i = 0 to 3
FormatIP=FormatIP & right("00" & arr(i),3)
next
end function

ip = FormatIP(ip)
if ip<allowIP or ip>allowIP then
Response.Write "不允许访问"
Response.end
end if

l217219 2006-08-27

打赏
举报

不能用呀

wansai00 2006-08-27

打赏
举报

// language=javascript runat=server

var allowViewIp={
"219.156.91.240":"yes",
"219.156.91.241":"yes",
"219.156.91.242":"yes"
};
var IP=Request.ServerVariables("Remote_Addr");
if("yes"!=allowViewIp(IP))
{
.......不让访问
}

求：只允许几个ip段访问的asp代码！

相关推荐