三年级写人作文300字:asp判断浏览器类型并显示不同网页

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 08:58:01
当用户进入网站主页时
判断浏览器类型
如果是 opera 显示opera.asp
如果是 手机 显示wap.asp
如果是 其他浏览器 显示other.asp
不用跳转就显示
请高手帮忙

我一般都用这种方法来获得浏览器的类型

Dim BrowserString
BrowserString = Request.ServerVariables("HTTP_USER_AGENT")
BrowserString = Lcase(BrowserString)

Dim broFirefox,broMSIE,broOpera,broWap
broFirefox = "firefox"
broMSIE = "msie"
broOpera = "opera"
broWap = "wap"

'如果是Firefox
if Instr(BrowserString, broFirefox) <> 0 then
Response.Redirect(broFirefox & ".asp")
end if
'如果是MSIE
if Instr(BrowserString, broMSIE) <> 0 then
Response.Redirect(broMSIE & ".asp")
end if
'如果是Opera
if Instr(BrowserString, broOpera) <> 0 then
Response.Redirect(broOpera & ".asp")
end if
'如果是Wap(没有用过所以还要看HTTP_USER_AGENT表示的结果)
if Instr(BrowserString, broWap) <> 0 then
Response.Redirect(broWap & ".asp")
end if

<% Set bc = Server.CreateObject(\"MSWC.BrowserType\") %> //建立对象
<%
if (bc.browser=opera) then
response.redirect\"URL地址\"
elseif (bc.browser= )then
elseif ……
%>
只是给个提示,好似是这样的,我都忘记了。不好意思啊