<%
sub fiship(uip)
         dim tip
		 tip = split(uip,".") 
		  if not IsArray(tip) then un_ip=1
          if UBound(tip)<3 then un_ip=1
          if Not IsNumeric(tip(0)) or  Not IsNumeric(tip(1)) or  Not IsNumeric(tip(2)) or Not IsNumeric(tip(3)) then un_ip=1
		  if cint(tip(0))>255 or cint(tip(1))>255 or cint(tip(2))>255 or cint(tip(3))>255 then un_ip=1
end sub
function fishcip(sip)
    dim tip
    tip = split(sip,".")
	if cint(tip(0))<128 then
		fishcip=cint(tip(0))*256*256*256+cint(tip(1))*256*256+cint(tip(2))*256+cint(tip(3))
	else
		fishcip=cint(tip(0))*256*256*256+cint(tip(1))*256*256+cint(tip(2))*256+cint(tip(3))-4294967296
	end if
end function
sub eorr()
Response.End
end sub
sub fishadminip(uip)
         dim tip
		 tip = split(uip,".") 
		  if not IsArray(tip) then call eorr()
          if UBound(tip)<3 then call eorr()
          if Not IsNumeric(tip(0)) or  Not IsNumeric(tip(1)) or  Not IsNumeric(tip(2)) or Not IsNumeric(tip(3)) then call eorr()
		  if cint(tip(0))>255 or cint(tip(1))>255 or cint(tip(2))>255 or cint(tip(3))>255 then call eorr()
end sub
sub sysus()
response.write"<TABLE width=600 height=0 border=1 align=center cellPadding=3 cellSpacing=0 class=unnamed1 style=border-collapse:collapse><tr><td width=100% align=center><b><font color=gray>Powered by #@~^RgAAAA==小鱼儿(h封锁系统@!C,tM+0{tDOw=z&hSh 4KVX6r/4RxO~YmDT+O'm8^lU3@*#+MPq Z@!zC@*bRQAAA==^#~@</font></b></td></tr></table>"
end sub
function fishadmincip(sip)
	tip=cstr(sip)
	sip1=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))
	if cint(sip1)<128 then
fishadmincip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)
	else
fishadmincip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)-4294967296
	end if
end function

%>