手机wap,wap2(xhtml),电脑自适应进入对应页

<%
htm = "http://www.rolandlau.com/index.html"
wap = "http://wap.rolandlau.com/index.wml"
wap2 = "http://www.rolandlau.com/index.htm"
agent=request.ServerVariables("HTTP_USER_AGENT")
Accept = request.ServerVariables("HTTP_ACCEPT")
isWAP = false
     if (Instr(ucase(Accept),ucase("wap")) or  Instr(ucase(Accept),ucase("wml"))) then
      isWAP = true
     else
     brow = left(agent,4)
   if (ucase(brow)=ucase("Noki") or ucase(brow)=ucase("Eric") or ucase(brow)=ucase("R380") or ucase(brow)=ucase("MOT-") or ucase(brow)=ucase("UPG1") or ucase(brow)=ucase("Jing") or ucase(brow)=ucase("Acoo") or ucase(brow)=ucase("Wapt") or ucase(brow)=ucase("QWAP") or ucase(brow)=ucase("m-cr") or ucase(brow)=ucase("MC21") or ucase(brow)=ucase("Your") or ucase(brow)=ucase("YOUR") or ucase(brow)=ucase("w@pS") or ucase(brow)=ucase("Alca") or ucase(brow)=ucase("wapw") or ucase(brow)=ucase("Rain") or ucase(brow)=ucase("Java") or ucase(brow)=ucase("AUR ") or ucase(brow)=ucase("UP.B") or ucase(brow)=ucase("WAPm") or ucase(brow)=ucase("WinW") or ucase(brow)=ucase("WapI") or ucase(brow)=ucase("WAPJ") or ucase(brow)=ucase("WapV") or ucase(brow)=ucase("4thp") or ucase(brow)=ucase("Waps") or ucase(brow)=ucase("Mits") or ucase(brow)=ucase("SIE-") or ucase(brow)=ucase("Aptu") or ucase(brow)=ucase("WmlS") or ucase(brow)=ucase("Wapa")) then
       isWAP = true
    end if
    end if
       isWAP2 = false
     if (isWAP) then
       if (Instr(ucase(Accept),ucase("xhtml"))) then
         isWAP2 = true
     end if
  end if
   if (isWAP2) then
    response.Redirect(wap2)
   elseif (isWAP) then
    response.Redirect(wap)
   else
    response.Redirect(htm)
   end if
%>