当前位置: 首页 > 图文教程 > 网络编程 > ASP > 让你的WAP网站有更好的兼容性

ASP
收集整理的ASP的常用内置函数
高手推荐的比较有用的ASP函数集合
ASP中JavaScript处理复杂表单的生成与验证
asp下tag的实现,简单介绍与部分代码
在ASP中用组件检测当前网卡地址的代码
asp中COM组件中如何连接数据库的代码
用ASP创建MDaemon用户的代码
ASP使用FSO读取模板的代码
ASP开发中可能遇到的错误信息中文说明大全(整理收集)
添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞]
全面优化ASP应用程序的性能的方法
实现ASP程序执行时间统计类的代码
ASP中利用execute实现动态包含文件的方法
asp中向文本框输出数据原样式的函数
ADODB.Stream组件Charset属性值集合
关于ASP代码的加密的几个方法
支持权重的无组件ASP广告显示代码
ASP下实现自动采集程序及入库的代码
asp读取远程文件并保存到本地代码
为什么ASP中执行动态SQL总报错误信息?提示语句语法错误

ASP 中的 让你的WAP网站有更好的兼容性


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 253 ::
收藏到网摘: n/a

 

今天看到朋友的WAP网站的首页用IE和WAP手机都能浏览
看来他一定是做了对浏览器的检查,如果不支持WML的话就redirect

仔细想了一下,Redirect只是对于不支持WML的浏览器做的操作(比如IE)
所以 Response.Redirect还是可以用的,关键是如何判断浏览器是否支持

于是跟朋友要代码看,结果得到了这个:

if (strpos("wap", $_HTTP_GET_VARS['http_accept'])) { header("Location: http://hikey.net");}

PHP的代码......

但是我的程序是ASP阿,于是就有又有了这段代码:

<%
Response.Buffer = TRUE
  Dim IsWap
  httpAccept = LCase(Request.ServerVariables("HTTP_ACCEPT"))
  if Instr(httpAccept,"wap") then
  IsWap=1
  Else
   Response.Redirect "http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap"
   Response.End
   End if
%>

把这段代码加在你WAP页的头上(最头上!)就做到了:如果浏览器不支持的话,就把它重定向到Gelon.net提供的WAP模拟器上 URL=后面的可以改成你的网站地址

就算是别人只知道你的网址,不知道你的网站该如何访问,他也可以看到效果了...