推广 热搜: 公司  快速  上海  中国  企业    未来  政策  系统  公司2 

aspcms2.5版本以上如何添加手机版1加手机「aspcms2.5版本以上如何添加手机版」

   日期:2025-01-11     作者:tvbt1o    caijiyuan   评论:0    移动:http://www78564.xrbh.cn/mobile/news/32408.html
核心提示:1、找到inc/AspCms_MainClass.asp文件 约66行:修改为: '检测客户端,手机加上wap 将defaultTemplate=rs(&#

1、找到inc/AspCms_MainClass.asp文件

约66行:修改为

'检测客户端,手机加上wap

将defaultTemplate=rs("defaultTemplate")改为defaultTemplate=checkClient()&rs("defaultTemplate")

=================================================

2、找到inc/aspcms_CommonFun.asp文件

最底部加上

'检测客户端

Function checkClient()

dim HTTP_ACCEPT,HTTP_USER_AGENT,HTTP_X_WAP_PROFILE,HTTP_UA_OS,HTTP_VIA

HTTP_ACCEPT=Request.ServerVariables("HTTP_ACCEPT")                 '获取浏览器信息

HTTP_USER_AGENT=LCase(Request.ServerVariables("HTTP_USER_AGENT"))  '获取AGENT

HTTP_X_WAP_PROFILE=Request.ServerVariables("HTTP_X_WAP_PROFILE")   'WAP特定信息 品牌机自带浏览器都会有

HTTP_UA_OS=Request.ServerVariables("HTTP_UA_OS")                   '手机系统 电脑为空

HTTP_VIA=LCase(Request.ServerVariables("HTTP_VIA"))                '网关信息

Dim WapStr

WAPstr=False

If ubound(split(HTTP_ACCEPT,"vnd.wap"))>0 Then WAPstr=True

If HTTP_USER_AGENT="" Then  WAPstr=True

If HTTP_X_WAP_PROFILE<>"" Then  WAPstr=True

If HTTP_UA_OS<>"" Then  WAPstr=True

IF ubound(split(HTTP_VIA,"wap"))>0 Then  WAPstr=True

IF ubound(split(HTTP_USER_AGENT,"netfront"))>0 Then  WAPstr=True

IF ubound(split(HTTP_USER_AGENT,"iphone"))>0 Then  WAPstr=True

IF ubound(split(HTTP_USER_AGENT,"opera mini"))>0 Then  WAPstr=True

IF ubound(split(HTTP_USER_AGENT,"ucweb"))>0 Then  WAPstr=True

IF ubound(split(HTTP_USER_AGENT,"windows ce"))>0 Then  WAPstr=True

IF ubound(split(HTTP_USER_AGENT,"symbianos"))>0 Then  WAPstr=True

IF ubound(split(HTTP_USER_AGENT,"java"))>0 Then  WAPstr=True

IF ubound(split(HTTP_USER_AGENT,"android"))>0 Then  WAPstr=True

If WAPstr=True Then    

checkClient="wap"

else   

checkClient=""

End if

End Function

=================================================

3、在模板文件夹下,例如模版文件夹:abc

那么复制一份,重命名为:wapabc

本文地址:http://www78564.xrbh.cn/news/32408.html    迅博思语 http://www78564.xrbh.cn/ , 查看更多

特别提示:本信息由相关用户自行提供,真实性未证实,仅供参考。请谨慎采用,风险自负。

 
 
更多>同类最新资讯
0相关评论

文章列表
相关文章
最新动态
推荐图文
最新资讯
点击排行
网站首页  |  二维码  |  关于我们  |  联系方式  |  使用协议  |  版权隐私  |  网站地图  |  排名推广  |  广告服务  |  积分换礼  |  网站留言  |  RSS订阅  |  违规举报  |  粤ICP备2023022329号