Aspcms2.5版本以上如何添加手机版

2023-04-10 0 1,574

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

收藏 (0) 打赏

感谢您的支持,我会继续努力的!

打开微信扫一扫,即可进行扫码打赏哦,分享从这里开始,精彩与您同在!
点赞 (0)

ASPCMS模板网的模板资源部分为原创资源,部分为网络采集,如果有素材侵权,请联系我们QQ:5247864!核实后我们将会下架!

ASPCMS模板网 ASPCMS知识 Aspcms2.5版本以上如何添加手机版 https://www.aspcms.com.cn/179.html

为京津冀地区中小企业提供各类互联网服务!

同类模板