利用VBSCRIPT自动识别WAP与WEB访客-先飞网电脑教程文章

>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

利用VBSCRIPT自动识别WAP与WEB访客

［作者：佚名转贴自：网络转载阅读次数：41 更新时间：2007-5-13 12:28:00 录入：刘光勇］

可以自动判断用户是来自web上的还是手机用户，然后自动转向对应的网页。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Dim strAccept
strAccept=LCase(Request.ServerVariables("HTTP_ACCEPT")) '//获取手机相关的一些特性信息
If Instr(strAccept,"wap")>0 then
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml，编码为UTF-8 Response.Write ("<?xml version=""1.0"" encoding=""UTF-8""?>")&_

"<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml""> "&_

"<wml>"&_
"<head>"&_
"<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"&_
"<meta http-equiv=""Cache-Control"" content=""no-cache""/>"&_
"</head>"&_
"<card id=""Redirect"" title=""转向WAP页面..."">"&_
"<onevent type=""onenterforward""><go href=""wap/index.asp""></go></onevent>"&_
"<p align=""left"">"&_
"<a href=""wap/index.asp"">马上进入...</a>"&_
"</p></card></wml>"
<onevent type=""onenterforward""><go href=""wap/index.asp""></go></onevent>是让页面进入时自动转向wap/index.asp
'//<a href=""wap/index.asp"">马上进入...</a>加上链接是防止一些手机无法自动跳转时可以点击链接进入
Else
Response.Redirect ("http://www.wapforum.cn/index.htm") '//转想WEB首页的URL
End If
%>

上一篇:用VBScript实现对Windows注册表的修改下一篇: 没有了