Question

求一个WAP站屏蔽电脑访问的代码(asp)

很多WAP站自带的代码不完整..有些自带的屏蔽程序不完善.像www.roboo.com在线可以访问你的WAP站

原来的屏蔽代码是这样的.
<%if dzt=1 then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then response.redirect"/sorr.asp?zt=1"
elseif dzt=2 then
response.redirect"/sorr.asp?zt=2"
end if
%>

Answer 1

<%if dzt=1 then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then response.redirect"/sorr.asp?zt=1"
elseif dzt=2 then
response.redirect"/sorr.asp?zt=2"
end if
%>

Answer 2

要讲清楚你说的到底是什么啊。
要不然怎么回答啊。
大哥。