3.1-增加可自定义每篇新闻的文件名功能

2024-08-30 19:06:09

字体：大中小

来源：转载

供稿：网友

也许大家用系统做网站,别人一看生成的文件总是能够找到一点规律.用这个东西,每次添加新闻的时候,随便输入一些乱七八糟的文件名称,是不是另有一种收获呢?

在些时候还是用得着的.本修改适合FoosunCMS V3.1.0930,修改前,请备份原文件.

1 、先在/inc/function.asp中最后一行之前,放上如下代码:
'///////////////////////////////////
'检查文件名规则,不包含后缀
function ChkFileNameRule(FileName)
dim str,re,retStr
str = FileName
ChkFileNameRule = false
If Len(FileName)=0 Then Exit Function '压缩包中没有这句，请自行修改
set re = new RegExp
re.Pattern = "[/w-]*" '这种方式扩充了文件名规则“2005-25，dsfsdf_sss” 这种文件名方式
re.Global = True
re.IgnoreCase = True
retStr = re.Replace(str,"")
if Len(retStr)=0 then
ChkFileNameRule = true
end if
end function
'//////////////////////////////////

2、找到/foosun/admin/info/NewsWords.asp,DownLoad.asp,NewsPic.asp

2.1 在随便一个Dim前添加一行 Dim Defined_FileName

2.2 找到有很多“RsSelectObj("****")”的地方，添一行：Defined_FileName= RsSelectObj("FileName")

2.3 找到有很多“Request("****")”或者“Request.Form("****")”的地方，放上一行：Defined_FileName = Request("Defined_FileName")

2.4 在NewsWords.asp,NewsPic.asp中再找到 “NewsFileNames = NewsFileName(RsNewsConfigObj("NewsFileName"),IClassID,INewsID)”
替换成：
''''''''''''''''''''''''''''''''''
'假如自定义文件名被设置
If ChkFileNameRule(Defined_FileName)=False Then
NewsFileNames = NewsFileName(RsNewsConfigObj("NewsFileName"),IClassID,INewsID)
Else
NewsFileNames = Defined_FileName
End If
'''''''''''''''''''''''''''''''''''
2.5 在Download.asp中找到“NewsFileName(RsNewsConfigObj("NewsFileName"),IClassID,IDownLoadID)”
替换成：
'''''''''''''''''''''''''''''''''''
If ChkFileNameRule(Defined_FileName)=False Then
NewsFileNames = NewsFileName(RsNewsConfigObj("NewsFileName"),IClassID,IDownLoadID)
Else
NewsFileNames = Defined_FileName
End If
'''''''''''''''''''''''''''''''''''
2.6 在NewsWords.asp,NewsPic.asp找到“<td height="30"> <div align="center">所属专题</div></td>”前的“<tr>”，在这之前添加下面代码：
'''''''''''''''''''''''''''''''''''

<tr>
<td height="30">
<div align="center">文件名称</div></td>
<td colspan="3">

上一篇：3.1自由标签建立的简单介绍

下一篇：3.1-添加视频文件,高度自定义

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注