<%
function ip_types(tips,tu,tt)
  dim ipn,tip2,wip,ip_type:tip2=tips:tip2=trim(tip2):ip_types="error"
  if objv7.ip_true(tip2)="no" then ip_types="no":exit function
  wip=int(mid(web_setup,5,1))
  if login_mode=objv7.format_power2(user_power,1,1) then wip=2
  select case wip
  case 0
    ip_types="*.*.*.*":ip_types=tu&" 的IP是："&ip_types
    if tt<>0 then ip_types="<img src='images/small/ip.gif' align=absMiddle title='"&ip_types&"' border=0>"
  case 1
    ipn=Instr(tip2,":")
    if ipn>0 then
      ip_types=left(tip2,ipn-1)
    else
      ip_types=tip2
    end if
    ip_type=split(ip_types,"."):ip_types=ip_type(0)&"."&ip_type(1)&".*.*":erase ip_type:ip_types=tu&" 的IP是："&ip_types
    if tt<>0 then ip_types="<img src='images/small/ip.gif' align=absMiddle title='"&ip_types&"' border=0>"
  case else
    ip_types=tu&" 的IP是："&tip2
    if tt<>0 then ip_types="<a href='ip_address.asp?ip="&tip2&"'><img src='images/small/ip.gif' align=absMiddle title='"&ip_types&"' border=0></a>"
  end select
end function
function ip_address(sips)
  dim str1,str2,str3,str4,num,country,city,irs,sip:sip=sips
  if not(isnumeric(left(sip,2))) then ip_address="未知":exit function
  if sip="127.0.0.1" then sip="192.168.0.1"
  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)
  if not(isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0) then
    num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1:sql="select Top 1 country,city from ip_address where ip1 <="&num&" and ip2 >="&num&"":set irs=server.createobject("adodb.recordset"):irs.open sql,conn,1,1
    if irs.eof and irs.bof then 
      country="亚洲":city=""
    else
      country=irs(0):city=irs(1)
    end if
    irs.close:set irs=nothing
  end if
  ip_address=country&city
end function
%>