asp代码
<%
'+--------------------------------------------------------+
'| 识别WAP或WEB客户端浏览器 (asp版本)
'| 作者: 石头 ( stonemx@163.com | www.stonemx.com)
'+--------------------------------------------------------+
Option Explicit
dim GuestUrl
if instr(Request.ServerVariables("http_accept"),"wap")>0 then
GuestUrl=" http://WAP网站地址"
else
GuestUrl=" http://WEB网站地址"
end if
Response.Redirect(GuestUrl)
%>
'+--------------------------------------------------------+
'| 识别WAP或WEB客户端浏览器 (asp版本)
'| 作者: 石头 ( stonemx@163.com | www.stonemx.com)
'+--------------------------------------------------------+
Option Explicit
dim GuestUrl
if instr(Request.ServerVariables("http_accept"),"wap")>0 then
GuestUrl=" http://WAP网站地址"
else
GuestUrl=" http://WEB网站地址"
end if
Response.Redirect(GuestUrl)
%>