新闻观点

升级aspcms为双模板,同时支持手机版和电脑版网站

2016-03-07 22:45:17   |   阅读次数:

时下移动端的访问数据需求越来越大,如果没有专门开发移动端的网页,那简直损失不小。
传统的网站在电脑端访问打开速度慢,容易变形,字体小看不清等等弊病,而和你处在同一个行业的竞争对手们都开发出了手机端网站,客户访问的时候客户体验满意度自然不可比拟。
    对此我公司技术人员对老牌的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,
那么复制一份,重命名为:mobile

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

相关新闻
首页 | 关于我们 | 网站建设 | 网站优化 | 服务范围 | 案例作品 | 信息资讯 | sitemap