home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / lz / weather / function.inc.asp < prev    next >
Text File  |  2005-04-12  |  569b  |  20 lines
  1. <%
  2. function getWebIp()
  3.     dim ip
  4.     ip=Request.ServerVariables("REMOTE_ADDR")
  5.     if (left(ip,6)="80.0.0" or left(ip,6)="60.0.0" or left(ip,10)="172.18.200" or ip="127.0.0.1" or ip="218.104.5.50") then 
  6.         getWebIP="80.0.0.1"
  7.     else
  8.         getWebIP="www.sdxnw.gov.cn"
  9.     end if
  10. end function
  11. function getdataIp()
  12.     dim ip
  13.     ip=Request.ServerVariables("REMOTE_ADDR")
  14.     if (left(ip,6)="80.0.0" or left(ip,6)="60.0.0" or left(ip,10)="172.18.200" or ip="127.0.0.1" or ip="218.104.5.50") then 
  15.         getdataIP="80.0.0.3"
  16.     else
  17.         getDataIP="221.214.14.188"
  18.     end if
  19. end function
  20. %>