三步操作让ASPCMS支持手机版[更新258支持]

Author: Time:2016-03-08 Views:23395

有朋友说新版失效了,是因为ASPCMS258官方增加手机版本,本人不是很习惯官方的适配方式。依然我行我素。

想要继续使用本文章提供的方法的,只需要将 index.asp 里的 'Check_Wap() 注释掉即可。

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


    之前因为工作需要对ASPCMS做了一部分功能升级优化。过程中有一个手机版开发的要求。通过简单的修改ASPCMS,实现了功能目的。

    仅仅三个步骤:

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

1、找到inc/AspCms_MainClass.asp文件

约66行:修改为:
'检测客户端,手机加上wap
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


    到此,使用手机访问ASPCMS站点,即可访问 wapabc 模板下的模板文件。


模板分类:

ASPCMS模板DUXCMS模板DIV+CSS模板