ASP-aspcms的一点点二次开发

朋友的站我都是用aspcms这套系统来做网站的,所以难免会为了功能做一些定制的改动,但是,这套系统又经常性的有点缺陷漏洞,哎,免费的没办法。

记录一下我的定制修改吧,省的升级之后忘记到底修改了那些。

~.~.~.~.~.~

  • 问题说明:
    系统定义菜单的第7种类型是链接,如果设定了就输出定义的链接,但是这个链接是需要两个条件才会输出我们定义的链接地址

    1. 类型必须是链接
    2. 定义的链接是以http开头的
  • 定制目标:我们的目标是,只要定义了链接字段之后就按照定义的内容输出,而不去管它的类型是否是链接,避开设置为链接类型后无法管理的情况。
  • 目标版本:AspCms v2.5.7 20150120
  • 目标文件:/inc/AspCms_MainClass.asp

——————————————
‘获取导航栏链接
Function getSortLink(sortType, sortID, sortUrl, sortFolder, sortFileName, GroupID, Exclusive)
sortFolder=replace(repnull(sortFolder), “{sitepath}”, sitePath)
sortFileName=replace(repnull(sortFileName), “{sortid}”, sortID)
sortFileName=replace(sortFileName, “{page}”, “1”)
if sortType=”7″ then
if isurl(sortUrl) then
getSortLink=sortUrl
else
if isnul(pagemode) then
getSortLink=sitePath&sortUrl
else
getSortLink=sitePath&”/”&pagemode&sortUrl
end if
end if
else
if runMode=1 and viewNoRight(GroupID, Exclusive) then
getSortLink=sortFolder&sortFileName&fileExt
else
‘ 2015.06.29 ChinaBUG 如果有设置链接字段则直接输出
if len(sortUrl)>0 then
if isurl(sortUrl) then
getSortLink=sortUrl
else
if isnul(pagemode) then
getSortLink=sitePath&sortUrl
else
getSortLink=sitePath&”/”&pagemode&sortUrl
end if
end if
else
Select  case sortType
case “1”
getSortLink=sitePath&setting.languagePath&””&”about”&”/?”&sortID&fileExt
case else
getSortLink=sitePath&setting.languagePath&””&”list”&”/?”&sortID&”_1″&fileExt
End Select
end if
end if
end if
End Function
~.~.~.~.~.~

  • 问题说明:
    系统带有的分页导航样式结构是不是你不喜欢呢?希望换成都是数字的?
  • 定制目标:将分页导航的样式定制成数字类型的。
  • 目标版本:AspCms v2.5.3 0619
  • 目标文件:
    1. /inc/AspCms_CommonFun.asp
    2. /inc/AspCms_Language.asp

——————————————

  • /inc/AspCms_CommonFun.asp

‘分页两侧
‘2015.02.09 ChinaBUG
Function pageNumberLinkInfo(Byval currentPage,Byval pageListLen,Byval totalPages,Byval linkType,Byval sortid, Byval showType)
dim pageNumber,pagesStr,i,pageNumberInfo,firstPageLink,lastPagelink,nextPagelink,finalPageLink,p,jumppagelink,currentpagestr

pageNumber=makePageNumber(currentPage,pageListLen,totalPages,linkType,sortid,showType)
dim searchtype,keys,tag
searchtype=filterPara(getForm(“searchtype”,”get”))
keys=filterPara(getForm(“keys”,”get”))
tag=filterPara(getForm(“tag”,”get”))
if currentPage=1 then
firstPageLink=”<span class=’nolink string-01′>”&str_01&”</span>” : lastPagelink=”<span class=’nolink string-03′>”&str_03&”</span>”
else
if linkType=”gbooklist” then
firstPageLink=”<a class=’string-01′ href=’?”&sortid&”_1″&FileExt&”‘>”&str_01&”</a>” : lastPagelink=”<a class=’string-03′ href=’?”&sortid&”_”&currentPage-1&FileExt&”‘>”&str_03&”</a>”
elseif linkType=”userbuylist” then
firstPageLink=”<a class=’string-01′ href=’?page=1′>”&str_01&”</a>” : lastPagelink=”<a class=’string-03′ href=’?page=”&currentPage-1&”‘>”&str_03&”</a>”
elseif linkType=”searchlist” then
firstPageLink=”<a class=’string-01′ href=’?page=1&keys=”&keys&”&searchtype=”&searchtype&”‘>”&str_01&”</a>” : lastPagelink=”<a class=’string-03′ href=’?page=”&currentPage-1&”&keys=”&keys&”&searchtype=”&searchtype&”‘>”&str_03&”</a>”
elseif showType=”tags” then
firstPageLink=”<a class=’string-01′ href=’?page=1′>”&str_01&”</a>” : lastPagelink=”<a href=’?page=”&currentPage-1&”‘>”&str_03&”</a>”
elseif showType=”taglist” then
firstPageLink=”<a class=’string-01′ href=’?page=1&tag=”&tag&”‘>”&str_01&”</a>” : lastPagelink=”<a href=’?page=”&currentPage-1&”&tag=”&tag&”‘>”&str_03&”</a>”
else
if runMode=0 then
firstPageLink=”<a href=’?”&sortid&”_1″&FileExt&”‘>”&str_01&”</a>” : if currentPage>2 then lastPagelink=”<a href=’?”&sortid&”_”&currentPage-1&FileExt&”‘>”&str_03&”</a>” : else lastPagelink=”<a href=’?”&sortid&”_1″&FileExt&”‘>”&str_03&”</a>”
else
firstPageLink=”<a href='”&replace(showType, “{page}”, 1)&”‘>”&str_01&”</a>” : if currentPage>2 then lastPagelink=”<a href='”&replace(showType, “{page}”, currentPage-1)&”‘>”&str_03&”</a>” : else lastPagelink=”<a href='”&replace(showType, “{page}”, 1)&”‘>”&str_03&”</a>”
end if
end if
end if
if linkType<>”gbooklist” and linkType<>”userbuylist” and linkType<>”searchlist” and showType<>”tags” and showType<>”taglist” then
jumppagelink=str_17&” <SELECT NAME=””select”” ONCHANGE=””var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!=”) {window.location=jmpURL;} else {this.selectedIndex=0 ;}”” >”

for p=1 to totalPages
currentpagestr=””
if currentPage=p then currentpagestr=” selected=selected”
if runMode=0 then
jumppagelink=jumppagelink&”<option value=?”&sortid&”_”&p&FileExt&”  “&currentpagestr&”>”&p&”</option>”

else
jumppagelink=jumppagelink&”<option value=”&replace(showType, “{page}”, p)&” “&currentpagestr&”>”&p&”</option>”

end if
next
jumppagelink=jumppagelink&”</SELECT>”

end if
if currentPage=totalPages then
nextPagelink=”<span class=’nolink’>”&str_04&”</span>” : finalPageLink=”<span class=’nolink’>”&str_02&”</span>”
else
if linkType=”gbooklist” then
nextPagelink=”<a href=’?”&sortid&”_”&currentPage+1&FileExt&”‘>”&str_04&”</a>” : finalPageLink=”<a href=’?”&sortid&”_”&totalPages&FileExt&”‘>”&str_02&”</a>”
elseif linkType=”searchlist” then
nextPagelink=”<a href=’?page=”&currentPage+1&”&keys=”&keys&”&searchtype=”&searchtype&”‘>”&str_04&”</a>” : finalPageLink=”<a href=’?page=”&totalPages&”&keys=”&keys&”&searchtype=”&searchtype&”‘>”&str_02&”</a>”
elseif linkType=”userbuylist” then
nextPagelink=”<a href=’?page=”&currentPage+1&”‘>”&str_04&”</a>” : finalPageLink=”<a href=’?page=”&totalPages&”‘>”&str_02&”</a>”
elseif showType=”tags” then
nextPagelink=”<a href=’?page=”&currentPage+1&”‘>”&str_04&”</a>” : finalPageLink=”<a href=’?page=”&totalPages&”‘>”&str_02&”</a>”
elseif showType=”taglist” then
nextPagelink=”<a href=’?page=”&currentPage+1&”&tag=”&tag&”‘>”&str_04&”</a>” : finalPageLink=”<a href=’?page=”&totalPages&”&tag=”&tag&”‘>”&str_02&”</a>”
else
if runMode=0 then
nextPagelink=”<a href=’?”&sortid&”_”&currentPage+1&FileExt&”‘>”&str_04&”</a>” : finalPageLink=”<a href=’?”&sortid&”_”&totalPages&FileExt&”‘>”&str_02&”</a>”
else
nextPagelink=”<a href='”&replace(showType, “{page}”, currentPage+1)&”‘>”&str_04&”</a>” : finalPageLink=”<a href='”&replace(showType, “{page}”, totalPages)&”‘>”&str_02&”</a>”
end if
end if
end if

‘pageNumberInfo=”<span> “&str_06&””&totalPages&” “&str_07&” “&str_05&”:”&currentPage&”/”&totalPages&” “&str_07&”</span>”&firstPageLink&lastPagelink&pageNumber&””&nextPagelink&””&finalPagelink&” “&jumppagelink
pageNumberInfo =firstPageLink&lastPagelink&pageNumber&””&nextPagelink&””&finalPagelink
pageNumberLinkInfo=pageNumberInfo
End Function

  • /inc/AspCms_Language.asp

err_01=”数据库连接错误”
err_02=”语言别名设置错误”
err_03=”执行SQL语句错误”
err_04=”st”&”ream对象实例创建失败”
err_05=”F”&”SO对象实例创建失败”
err_06=”加载文件失败”
err_07=”数据列表未指定主键”
err_08=”数据列表未指定表”
err_09=”写入文件失败”
err_10=”创建文件夹失败”
err_11=”删除文件夹失败”
err_12=”删除文件失败”
err_13=”文件夹不存在”
err_14=”移动文件夹失败”
err_15=”请设置默认语言”
err_16=”模板文件不存在”
err_17=”您当前所在用户组无查看权限!”

str_01=”<<”
str_02=”>>”
str_03=”<”
str_04=”>”
str_05=”页次”
str_06=”共”
str_07=”页”
str_08=”对不起,该分类无任何记录”
str_09=”对不起,关键字”
str_10=” 无任何记录”
str_11=”您当前所在用户组无查看权限!”
str_12=””
str_13=””
str_14=””
str_15=””
str_16=””
str_17=”转到”

newspageInfo(0)=” 对不起,无任何内容
channellistInfo(0)=” 对不起,该分类无记录任何记录 “:channellistInfo(1)=”指定分类错误”
searchlistInfo(0)=”对不起,没有找到任何记录”
pageRunStr(0)=”页面执行时间: “:pageRunStr(1)=”秒 “:pageRunStr(2)=”次数据查询”
~.~.~.~.~.~