|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。ip地点|ip地点functionIP2Num(sip)
dimstr1,str2,str3,str4
dimnum
IP2Num=0
ifisnumeric(left(sip,2))then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num=num
endif
endfunction
functionNum2IP(nip)
iip1=int(nip/256/256/256)
iip2=int((nip-iip1*256*256*256)/256/256)
iip3=int((nip-iip1*256*256*256-iip2*256*256)/256)
iip4=int((nip-iip1*256*256*256-iip2*256*256-iip3*256)mod256)
iip0=iip1&"."&iip2&"."&iip3&"."&iip4
Num2IP=iip0
endfunction
userIPnum=IP2Num(Request.ServerVariables("REMOTE_ADDR"))
ifuserIPnum>IP2Num("192.168.0.0")anduserIPnum<IP2Num("192.168.0.255")then
response.write("<center>您的IP被克制</center>")
response.end
endif
</p>ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊! |
|