检测客户端是否为手机[ASP]
作者:parno 日期:2008-06-18
复制内容到剪贴板
程序代码
![程序代码](images/code.gif)
<%
Dim IsWap
httpAccept = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(httpAccept,"wap") or InStr(httpAccept,"windows ce") then
IsWap = True
Else
IsWap = False
End If
If IsWap Then Response.Redirect("wap.asp") Else Response.Redirect("Default.asp")
%>
Dim IsWap
httpAccept = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(httpAccept,"wap") or InStr(httpAccept,"windows ce") then
IsWap = True
Else
IsWap = False
End If
If IsWap Then Response.Redirect("wap.asp") Else Response.Redirect("Default.asp")
%>
[本日志由 parno 于 2008-08-25 06:11 PM 编辑]
![](images/Cprevious.gif)
![](images/Cnext.gif)
![](images/From.gif)
![](images/icon_trackback.gif)
![](images/tag.gif)
![](images/notify.gif)
评论: 0 | 引用: 0 | 查看次数: 5990
发表评论