|
| 3.1-增加可自定义每篇新闻的文件名功能 |
★★★★★ 【字体：小 大】 | |
| 3.1-增加可自定义每篇新闻的文件名功能 |
| http://www.foosun.cn 作者：netfound 来源： 点击： 更新时间：06-06-16 11:27:17 |
|
也许大家用系统做网站,别人一看生成的文件总是能够找到一点规律.用这个东西,每次添加新闻的时候,随便输入一些乱七八糟的文件名称,是不是另有一种收获呢?
在些时候还是用得着的.本修改适合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">
<input name="Defined_FileName" type="text" value="<% = Defined_FileName %>" style="width:32%;">
<font color=red>在修改状态下,本值无效.<b>请只输入文件名称,不需要后缀,为空,则采用系统默认设置</b></font>
</td>
</tr>
<!-----------------------------------------------> | |
| 文章录入：风讯科技 责任编辑：风讯科技 |
·上一篇：3.1-增加批量设置新闻属性功能
·下一篇：3.1-在远程存图命名时加上随机数以防重名 |
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） | |
| 没有任何评论 | |
