检测客户端是否为手机[ASP]
作者:parno 日期:2008-06-18
复制内容到剪贴板
程序代码
程序代码<%
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 编辑]
上一篇: 大气的网站
下一篇: CommonDialog 的 flags 参数的含义
文章来自: 网络
引用通告: 查看所有引用 | 我要引用此文章
Tags: ASP vbscript 源码 
相关日志:
评论: 0 | 引用: 0 | 查看次数: 6031
发表评论
