读书人

下面一段ASP获取客户端浏览器信息的代

发布时间: 2012-02-06 15:52:44 作者: rapoo

下面一段ASP获取客户端浏览器信息的代码谁能帮我转成C#的谢谢了!!
'*************************************
'获取客户端浏览器信息
'*************************************
function getBrowser(strUA)
dim arrInfo,strType,temp1,temp2
strType= " "
strUA=LCase(strUA)
arrInfo=Array( "Unkown ", "Unkown ")
'浏览器判断
if Instr(strUA, "mozilla ")> 0 then arrInfo(0)= "Mozilla "
if Instr(strUA, "icab ")> 0 then arrInfo(0)= "iCab "
if Instr(strUA, "lynx ")> 0 then arrInfo(0)= "Lynx "
if Instr(strUA, "links ")> 0 then arrInfo(0)= "Links "
if Instr(strUA, "elinks ")> 0 then arrInfo(0)= "ELinks "
if Instr(strUA, "jbrowser ")> 0 then arrInfo(0)= "JBrowser "
if Instr(strUA, "konqueror ")> 0 then arrInfo(0)= "konqueror "
if Instr(strUA, "wget ")> 0 then arrInfo(0)= "wget "
if Instr(strUA, "ask jeeves ")> 0 or Instr(strUA, "teoma ")> 0 then arrInfo(0)= "Ask Jeeves/Teoma "
if Instr(strUA, "wget ")> 0 then arrInfo(0)= "wget "
if Instr(strUA, "opera ")> 0 then arrInfo(0)= "opera "

if Instr(strUA, "gecko ")> 0 then
strType= "[Gecko] "
arrInfo(0)= "Mozilla "
if Instr(strUA, "aol ")> 0 then arrInfo(0)= "AOL "
if Instr(strUA, "netscape ")> 0 then arrInfo(0)= "Netscape "
if Instr(strUA, "firefox ")> 0 then arrInfo(0)= "FireFox "
if Instr(strUA, "chimera ")> 0 then arrInfo(0)= "Chimera "
if Instr(strUA, "camino ")> 0 then arrInfo(0)= "Camino "
if Instr(strUA, "galeon ")> 0 then arrInfo(0)= "Galeon "
if Instr(strUA, "k-meleon ")> 0 then arrInfo(0)= "K-Meleon "
arrInfo(0)=arrInfo(0)+strType
end if

if Instr(strUA, "bot ")> 0 or Instr(strUA, "crawl ")> 0 then
strType= "[Bot/Crawler] "
arrInfo(0)= " "
if Instr(strUA, "grub ")> 0 then arrInfo(0)= "Grub "
if Instr(strUA, "googlebot ")> 0 then arrInfo(0)= "GoogleBot "


if Instr(strUA, "msnbot ")> 0 then arrInfo(0)= "MSN Bot "
if Instr(strUA, "slurp ")> 0 then arrInfo(0)= "Yahoo! Slurp "
arrInfo(0)=arrInfo(0)+strType
end if

if Instr(strUA, "applewebkit ")> 0 then
strType= "[AppleWebKit] "
arrInfo(0)= " "
if Instr(strUA, "omniweb ")> 0 then arrInfo(0)= "OmniWeb "
if Instr(strUA, "safari ")> 0 then arrInfo(0)= "Safari "
arrInfo(0)=arrInfo(0)+strType
end if

if Instr(strUA, "msie ")> 0 then
strType= "[MSIE "
temp1=mid(strUA,(Instr(strUA, "msie ")+4),6)
temp2=Instr(temp1, "; ")
temp1=left(temp1,temp2-1)
strType=strType & temp1 & "] "
arrInfo(0)= "Internet Explorer "
if Instr(strUA, "msn ")> 0 then arrInfo(0)= "MSN "
if Instr(strUA, "aol ")> 0 then arrInfo(0)= "AOL "
if Instr(strUA, "webtv ")> 0 then arrInfo(0)= "WebTV "
if Instr(strUA, "myie2 ")> 0 then arrInfo(0)= "MyIE2 "
if Instr(strUA, "maxthon ")> 0 then arrInfo(0)= "Maxthon "
if Instr(strUA, "gosurf ")> 0 then arrInfo(0)= "GoSurf "
if Instr(strUA, "netcaptor ")> 0 then arrInfo(0)= "NetCaptor "
if Instr(strUA, "sleipnir ")> 0 then arrInfo(0)= "Sleipnir "
if Instr(strUA, "avant browser ")> 0 then arrInfo(0)= "AvantBrowser "
if Instr(strUA, "greenbrowser ")> 0 then arrInfo(0)= "GreenBrowser "
if Instr(strUA, "slimbrowser ")> 0 then arrInfo(0)= "SlimBrowser "
arrInfo(0)=arrInfo(0)+strType
end if

'操作系统判断
if Instr(strUA, "windows ")> 0 then arrInfo(1)= "Windows "
if Instr(strUA, "windows ce ")> 0 then arrInfo(1)= "Windows CE "


if Instr(strUA, "windows 95 ")> 0 then arrInfo(1)= "Windows 95 "
if Instr(strUA, "win98 ")> 0 then arrInfo(1)= "Windows 98 "
if Instr(strUA, "windows 98 ")> 0 then arrInfo(1)= "Windows 98 "
if Instr(strUA, "windows 2000 ")> 0 then arrInfo(1)= "Windows 2000 "
if Instr(strUA, "windows xp ")> 0 then arrInfo(1)= "Windows XP "

if Instr(strUA, "windows nt ")> 0 then
arrInfo(1)= "Windows NT "
if Instr(strUA, "windows nt 5.0 ")> 0 then arrInfo(1)= "Windows 2000 "
if Instr(strUA, "windows nt 5.1 ")> 0 then arrInfo(1)= "Windows XP "
if Instr(strUA, "windows nt 5.2 ")> 0 then arrInfo(1)= "Windows 2003 "
end if
if Instr(strUA, "x11 ")> 0 or Instr(strUA, "unix ")> 0 then arrInfo(1)= "Unix "
if Instr(strUA, "sunos ")> 0 or Instr(strUA, "sun os ")> 0 then arrInfo(1)= "SUN OS "
if Instr(strUA, "powerpc ")> 0 or Instr(strUA, "ppc ")> 0 then arrInfo(1)= "PowerPC "
if Instr(strUA, "macintosh ")> 0 then arrInfo(1)= "Mac "
if Instr(strUA, "mac osx ")> 0 then arrInfo(1)= "MacOSX "
if Instr(strUA, "freebsd ")> 0 then arrInfo(1)= "FreeBSD "
if Instr(strUA, "linux ")> 0 then arrInfo(1)= "Linux "
if Instr(strUA, "palmsource ")> 0 or Instr(strUA, "palmos ")> 0 then arrInfo(1)= "PalmOS "
if Instr(strUA, "wap ")> 0 then arrInfo(1)= "WAP "

'arrInfo(0)=strUA
getBrowser=arrInfo
end function

转成如下的:
public string getBrowser(string strUA)
{
....
}


[解决办法]
沙发,帮忙顶
[解决办法]
照着改不就行了,不会C#?

也可以这样,copy到vb.net里面,然后找个代码转换器....

读书人网 >asp.net

热点推荐