1.求一个ASP限制IP段访问的代码求一个ASP限定IP段的代码，列如可以限制127.0.0.1-127.255.255.255内的IP禁止访问该页面！其他回答共1条2008-11-1120:06lzp4881|八级<%ifcheckIP()thenxmlStr=xmlStr"<success>true</success><title>合法用户</title><message>欢迎光临！</message>"elsexmlStr=xmlStr"<success>false</success><title>系统提示</title><message>非法用户，你没有使用本系统的权限!如有疑问，请与系统管理员联系。</message>"endifresponse.writexmlStr%><%functioncheckIP()Dimvip:vip=cip(getIP())DimgcSQL:gcSQL="gc_checkIP"vipOpenConn()Dimrs:Setrs=conn.execute(gcSQL)ifrs.eofandrs.bofthencheckIP=falseelsecheckIP=trueendifCo(rs)CloseConn()endfunctionfunctioncip(sip)dimtip:tip=cstr(sip)dimsip1,sip2,sip3,sip4sip1=left(tip,cint(instr(tip,".")-1))tip=mid(tip,cint(instr(tip,".")+1))sip2=left(tip,cint(instr(tip,".")-1))tip=mid(tip,cint(instr(tip,".")+1))sip3=left(tip,cint(instr(tip,".")-1))sip4=mid(tip,cint(instr(tip,".")+1))cip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)endfunctionfunctiongetIP()getIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")IfgetIP=""ThengetIP=Request.ServerVariables("REMOTE_ADDR")endfunction%>2.问:asp程序该怎么写才能同时限制网站除了下面这几段ip别的人都不能访问?hollandhut(荷兰小屋)等级：结帖率：100.00%楼主发表于：2005-01-2110:57:07202.117.0.0-202.117.63.255202.117.160.0-202.117.160.255202.117.175.0-202.117.175.255202.117.200.0-202.117.200.255202.117.223.0-202.117.223.255202.200.224.0-202.200.224.255202.200.239.0-202.200.239.255202.219.245.32-202.219.245.47202.219.245.128-202.219.245.191上面这几段ip之外的站都不能访问因该怎么写?chang1216(医药行业的程序混混)等级：#1楼得分：0回复于：2005-01-2111:04:09ifleft(request.ServerVariables("REMOTE_ADDR"),11)<>"202.117.160"orleft(request.ServerVariables("REMOTE_ADDR"),11)<>"202.117.175"thenresponse.Write("<center>抱歉，您无权查看！</center>")response.Endendifznjgress(四空和尚)等级：#2楼得分：0回复于：2005-01-2111:09:07ip限制函数'******************************'FunctionCheckIp(cInput_Ip,cBound_Ip)'Createdbyqqdao,qqdao@2632001/11/28'说明：首先需要根据;号循环，然后判断是否含有"-"，如果有则进行拆分处理，最后判断是否在范围内'参数：cInput_Ip,代检查的ip'cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*”则必须放到最后一位'每个范围后添加":ALLOW"表示允许登陆，添加":REFUSE"表示拒绝登陆。多个范围用”;“隔开'例如192.168.1*.*:ALLOW;192.168.1.1:ALLOW;192.168.1.1-10:REFUSE"'返回值:true/false'更新：2001/12/05支持ALLOW,REFUSE支持’*‘,不想对？支持，因为和*差不多'******************************functionCheckIp(cInput_Ip,cBound_Ip)dimcSingle_Ip,cTemp_IP,cStart_IP,cEnd_IpCheckIp=falsecSingle_Ip=split(cBound_Ip,";")fori=0toubound(cSingle_Ip)ifInstr(cSingle_Ip(i),"REFUSE")<>0then'就是拒绝了cTemp_IP=left(cSingle_Ip(i),instr(cSingle_Ip(i),":")-1)ifInstr(cTemp_IP,"*")<>0then'是宽范围cStart_IP=left(cTemp_IP,instr(cTemp_IP,"*")-1)ifleft(cInput_Ip,len(cStart_IP))=cStart_IPthenCheckIp=falseexitfunctionendifendififInstr(cTemp_IP,"-")=0thencStart_IP=cTemp_IPcEnd_Ip=cTemp_IPelsecStart_IP=left(cTemp_IP,instr(cTemp_IP,"-")-1)cEnd_Ip=left(cStart_IP,InStrRev(cStart_IP,".")-1)+"."+mid(cTemp_IP,instr(cTemp_IP,"-")+1)endififIp2Str(cInput_Ip)>=Ip2Str(cStart_IP)andIp2Str(cInput_Ip)<=Ip2Str(cEnd_Ip)thenCheckIp=falseexitfunctionendifelseifInstr(cSingle_Ip(i),"ALLOW")<>0then'允许cTemp_IP=left(cSingle_Ip(...