南京的移动一直反应互访问的问题　

没事写了一个小程序，根据用户是手机还是电脑访问跳转

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'by 张小鱼　www.lougoo.com
str=Request.ServerVariables("ALL_HTTP")
t=instr(1,str,"HTTP_USER_AGENT")+16
e=instr(t,str,"/")-t
s=mid(str,t,e)
'response.write s
if len(s)>7 then
'response.write ("mobil")
Response.Redirect ("http://wap.139sz.cn/locate.jsp?id=5080264")
else
'response.write ("ie")
Response.Redirect ("http://yutou.com/?/http://wap.139sz.cn/locate.jsp?id=5080264")
end if
%>

测试可用