我数据库就一个字段SET_IP 格式为set_ip 1060182 1060183 我代码的意思是如果登录的用户IP为什么的，那么先取该IP的前三段，那就是1058196然后和我数据库里的字段比较，如果有相同的说明是我。

function checkipip，allowip1，allowip2dim check4checkip=false ipstr=splitip，quotquotallow1=splitallowip1，quotquotallow2=splitallowip2，quotquotif cintallow10cintallow20 then #39#39判断IP地址段。

if checkIP then xmlStr=xmlStr quotltsuccesstrueltsuccess合法用户ltmessage欢迎光临ltmessagequotelse xmlStr=xmlStr quotltsuccessfalseltsuccess系统提示ltmessage非法用户，你没有使用本系统的权限！如有疑问，请。

参考下面的屏蔽ip段的代码lt% #39受屏蔽IP地址段集合，星号为通配符，通常保存于配置文件中 Const BadIPGroup = quot1921681*20268***125534185*9624127*01quotIf IsForbid。

ResponseWrite NewIP Split可以吧字符串中分割符之间的值取出来IP0得到的值是127，IP1得到的是0，IP2得到的是0，加到一块就是IP0quotquotIP1quotquotIP2quot*quot，即12700参考资料。

一个简单的封少量IP的ASP代码lt Dim IP，IPString，VisitIP #39要禁止的IP地址 IPString=quot1quot#39获取IP地址 IP = RequestServerVariablesquot。

set rs=connexecutequotselect count1 as loginnum from table where ip=#39quotipquot#39 and page=#39quotpagequot#39 and datediffquotnquot，logintime，getdatelt=60 having count120quotif not isnullrs0 then。

1 sipasp 被禁IP验证文体，也可以将代码考到相关页面使用，设置好数据库路径即可 2 stopipasp 这是添加IP的文件，需设置好管理员验证，请及时改初始密码也可结合你的管理员变量验证，这里不多说了3 stopipmdb。

If Not IpRSbof or IpRSeof Then WhyIpLock=splitIpRSquotiplockquot，quotquotResponseWritequotltBR你使用的IP段或IP地址已被封锁quotResponseWritequotltLi封锁原因quotWhyIpLock1ResponseWritequotltLI封锁时间quotWhyI。

这个问题，肯定是你的“jyDefaultasp”有问题，最可能的是这个页面也加了IP判断当然不能加啦目前不知道是我调试服务器的问题还是代码问题，总之数据库中存在和我在公网的IP但是都无法访问 “。

以前做MY时找的方法，希望对你有帮助 1将安装目录下的wrydat文件复制到asp文件夹下2建立一个asp文件，如文件名ipasp代码内容为lt% #39文件名ipasp 与wrydat放在一个文件夹下面 #39使用在要用到的查询。

汗，我也写多一点，给你一段功能更全面的代码，自己去试一试就知道了，决对自己写的代码Function RSVTypes#39ServerVariables常用 select case Types case quotMethodquot#39提交方式 RSV=requestServerVariablesquotRequest_Methodquotcase。

大概方法，生成一个从0到txt行数1的随机数用fso读取 txt文件，并将行分配到数组元素里返回下标为随机数的数组元素代码就是下面的了，建个1txt放一起，里面一行写一个ip就行了lt set fso = Server。

你这个是ASP中的vbscript脚本吧，这个function是放在服务器上执行的，在某个asp页面中这个IP转换的函数用的很多，他的功能就是把IP地址转换成十进制的数值，用来方便数据库查询的因为如果IP是字符型，那是不好查询的。

下面是代码lt ip = RequestServerVariablesquotREMOTE_ADDRquot#39获取访问ip sj=now#39获取访问时间 set conn=serverCreateObjectquotadodbconnectionquotmypath=servermappathquotdata！##jxc##！mdbquotconnopen quotprovider=。