asp页面跳转制作

为啥就不说了，反正就是工作需要，需要我做一个判断的asp网页，对用户的访问实现判断来进行页面跳转。

最开始我考虑了下实行主流浏览器过滤，除了FF,IE,OPERA之外的浏览器就去访问wap界面吧。初稿。<% 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 %> 

 

然后和某位朋友讨论，商量了半天，觉得因为PC的浏览器太多了，而手机基本上就只有wap浏览器，所以改变思路，只要不支持wap就跑去web吧。

 

% Dim BrowserString BrowserString = Request.ServerVariables("HTTP_USER_AGENT") BrowserString = Lcase(BrowserString) Dim broWap broWap = "wap" if Instr(BrowserString, broWap) <> 0 then Response.Redirect "/WapContent/" else Response.Redirect "/WebContent/" end if %>

 

但是事实证明了，这玩意是错误的（后面说为啥是错误的）。到处问强者，最后得到指点。写这样一个小ASP看看

<% Dim BrowserString BrowserString = Request.ServerVariables("HTTP_USER_AGENT") BrowserString = Lcase(BrowserString) response.write BrowserString response.end %>

 

用手机访问得出了，其实
 Request.ServerVariables("HTTP_USER_AGENT")
获得的关键词不一定会有“wap”（这不一定对，因为我没研究完所有的手机），于是我便无语了，最后还是回到了最开始的思路。目前在使用的index.asp内容是

 

<% Dim BrowserString BrowserString = Request.ServerVariables("HTTP_USER_AGENT") BrowserString = Lcase(BrowserString) if instr(Browserstring,"msie")<>0 then Response.Redirect "/WebContent/" elseif instr(Browserstring,"firefox")<>0 then Response.Redirect "/WebContent/" else Response.Redirect "/Wapcontent/" end if %>

 

但是我相信还有更好的解决方案，等我研究出来了，再记录下来。

 

To be continued.....