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

2024-08-30 19:06:09

字體：大中小

供稿：網(wǎng)友

也許大家用系統(tǒng)做網(wǎng)站,別人一看生成的文件總是能夠找到一點規(guī)律.用這個東西,每次添加新聞的時候,隨便輸入一些亂七八糟的文件名稱,是不是另有一種收獲呢?

在些時候還是用得著的.本修改適合FoosunCMS V3.1.0930,修改前,請備份原文件.

1 、先在/inc/function.asp中最后一行之前,放上如下代碼:
'///////////////////////////////////
'檢查文件名規(guī)則,不包含后綴
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-]*" '這種方式擴充了文件名規(guī)則“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)”
替換成：
''''''''''''''''''''''''''''''''''
'假如自定義文件名被設(shè)置
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">