ASPCMS系统额外增加移动手机版 并共用一个数据库-♚纪实阁付涛♚

ASPCMS系统额外增加移动手机版 并共用一个数据库

文章摘要

ASPCMS是由上谷网络开发的全新内核的开源企业建站系统,能够胜任企业多种建站需求,并且支持模版自定义、支持扩展插件等等,能够在短时间内完成企业建站。

ASPCMS系统介绍

ASPCMS是完全开源的一套CMS建站系统,主要面向企业进行快速的建造简洁,高效,易用,安全的公司企业网站,一般的开发人员就能够使用本系统以最低的成本、最少的人力投入在最短的时间内架设一个功能齐全、性能优异的公司企业网站。ASPCMS是基于ASP+Access(sql2000)开发的网站内容管理系统,提供了简介类模块,新闻类模块,产品类模块,图片类模块,下载类模块。你在使用过程中可选择任意模块来建设您的网站。

增加移动手机端背景

在ASPCMS系统快速发展的前几个版本里面,因为市场发展及技术更新时间排列问题,导致最后并没有完善的处理好移动端适配及手机网站的生成问题;在2.0以后版本里面,官方增加了对此功能的完善,然而,大量用户在使用过程中,并没有自己的手机网站,在这种情况如下,如何在现有网站上增加一个适配的手机网站,成了一种潜在需求;

移动手机网站添加教程

第一步:将压缩包中的wap文件夹对应复制到网站根目录,将templates/cn/wap文件夹对应复制到你的网站根目录/templates/你的模板文件夹下;

密码: 4d2n

第二步:使用NOTEPAD++或者Dreamweaver打开网站根目录的/inc/AspCms_CommonFun.asp文件,ctrl+f查找Function createFolder1 在这个函数的上方插入以下代码:

Sub Check_Wap()
 dim MoblieUrl,reExp,MbStr
 MoblieUrl=sitepath&"/wap/"'此为手机网站路径,各位在复制代码时只要将此路径修改成指定手机网站的路径即可。推荐使用独立手机网站域名。
 Set reExp = New RegExp
 MbStr="Android|iPhone|UC|Windows Phone|webOS|BlackBerry|iPod"
 reExp.pattern=".*("&MbStr&").*"
 reExp.IgnoreCase = True
 reExp.Global = True
 If reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then
  response.redirect MoblieUrl
  response.End
 End If
End Sub

第三步:使用NOPTEAD++或者Dreamweaver打开网站根目录的/inc/AspCms_MainClass.asp文件,ctrl+f查找Public Function parseCommon(),在这个函数的下方插入以下代码:

Public Function indexpath()
	content=replaceStr(content,"{<a href="https://www.diebaosoft.com/tag/aspcms" title="【查看含有[aspcms]标签的文章】" target="_blank">aspcms</a>:topsortid}",0)
	content=replaceStr(content,"{<a href="https://www.diebaosoft.com/tag/aspcms" title="【查看含有[aspcms]标签的文章】" target="_blank">aspcms</a>:sortid}",0)
End Function

再查找htmlFilePath=rs("htmlFilePath") 替换为:

if isnul(pagemode)then 
	htmlFilePath=rs("htmlFilePath")
else
	htmlFilePath=pagemode
	languagePath=rs("languagePath")&pagemode&"/"
end if

查找:

if isurl(sortUrl) then
	getSortLink=sortUrl
else

将else下内容替换为:

if isnul(pagemode) then
	getSortLink=sitePath&sortUrl
else
	getSortLink=sitePath&"/"&pagemode&sortUrl
end if

第四步:打开程序根目录下的/inc/AspCms_SettingClass.asp文件和后台文件夹下的/inc/AspCms_SettingClass.asp文件,在第4行下面新增一行:

dim pagemode:pagemode=""

第五行:打开程序根目录的index.asp文件,在<%下面新增一行:

Check_Wap()

好了,修改到此结束,接下来用手机访问你的域名测试下吧,但是目前网站必须是以动态方式运行,静态不会跳转,各连接也不正常。

本文由 ♚纪实阁付涛♚ 作者:谍豹云销 发表,其版权均为 ♚纪实阁付涛♚ 所有,文章内容系作者个人观点,不代表 ♚纪实阁付涛♚ 对观点赞同或支持。如需转载,请注明文章来源。

发表评论