function.asp
Upload User: maming258
Upload Date: 2022-01-28
Package Size: 283k
Code Size: 2k
Development Platform:

HTML/CSS

  1. <%
  2. function browser(info)
  3.     if Instr(info,"NetCaptor 6.5.0")>0 then
  4.         browser="NetCaptor 6.5.0"
  5.     elseif Instr(info,"MyIe 3.1")>0 then
  6.         browser="MyIe 3.1"
  7.     elseif Instr(info,"NetCaptor 6.5.0RC1")>0 then
  8.         browser="NetCaptor 6.5.0RC1"
  9.     elseif Instr(info,"NetCaptor 6.5.PB1")>0 then
  10.         browser="NetCaptor 6.5.PB1"
  11.     elseif Instr(info,"MSIE 5.5")>0 then
  12.         browser="Internet Explorer 5.5"
  13.     elseif Instr(info,"MSIE 6.0")>0 then
  14.         browser="Internet Explorer 6.0"
  15.     elseif Instr(info,"MSIE 6.0b")>0 then
  16.         browser="Internet Explorer 6.0b"
  17.     elseif Instr(info,"MSIE 5.01")>0 then
  18.         browser="Internet Explorer 5.01"
  19.     elseif Instr(info,"MSIE 5.0")>0 then
  20.         browser="Internet Explorer 5.00"
  21.     elseif Instr(info,"MSIE 4.0")>0 then
  22.         browser="Internet Explorer 4.01"
  23.     else
  24.         browser="其它"
  25.     end if
  26. end function
  27. function system(info)
  28.     if Instr(info,"NT 5.1")>0 then
  29.         system=system+"Windows XP"
  30.     elseif Instr(info,"Tel")>0 then
  31.         system=system+"Telport"
  32. elseif Instr(info,"webzip")>0 then
  33.         system=system+"webzip"
  34. elseif Instr(info,"flashget")>0 then
  35.         system=system+"flashget"
  36. elseif Instr(info,"offline")>0 then
  37.         system=system+"offline"
  38.     elseif Instr(info,"NT 5")>0 then
  39.         system=system+"Windows 2000"
  40.     elseif Instr(info,"NT 4")>0 then
  41.         system=system+"Windows NT4"
  42.     elseif Instr(info,"98")>0 then
  43.         system=system+"Windows 98"
  44.     elseif Instr(info,"95")>0 then
  45.         system=system+"Windows 95"
  46. elseif instr(info,"unix") or instr(info,"linux") or instr(info,"SunOS") or instr(info,"BSD") then
  47.     system=system+"类Unix"
  48.     elseif instr(thesoft,"Mac") then
  49.     system=system+"Mac"
  50.     else
  51.         system=system+"其它"
  52.     end if
  53. end function
  54. %>