如果要得到下面的字,可能性不大. 还是通过IP地址来判断.http://expert.csdn.net/Expert/topic/2896/2896721.xml?temp=.9086878<% function IP2Num(sip) dim str1,str2,str3,str4 dim num IP2Num=0 if isnumeric(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 end if end functionuserIP = IP2Num(Request.ServerVariables("REMOTE_ADDR")) if (userIP>Ip2Num("192.168.0.0") and userIP<Ip2Num("192.168.255.255")) or (userIP>Ip2Num("127.0.0.0") and userIP<Ip2Num("127.255.255.255")) or (userIP>Ip2Num("10.0.0.0") and userIP<Ip2Num("10.255.255.255")) then response.write "内部IP" end if %>
还是通过IP地址来判断.http://expert.csdn.net/Expert/topic/2896/2896721.xml?temp=.9086878<%
function IP2Num(sip)
dim str1,str2,str3,str4
dim num
IP2Num=0
if isnumeric(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
end if
end functionuserIP = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
if (userIP>Ip2Num("192.168.0.0") and userIP<Ip2Num("192.168.255.255")) or (userIP>Ip2Num("127.0.0.0") and userIP<Ip2Num("127.255.255.255")) or (userIP>Ip2Num("10.0.0.0") and userIP<Ip2Num("10.255.255.255")) then
response.write "内部IP"
end if
%>