3.1-增加可自定义每篇新闻的文件名功能 - 风讯CMS - 爱建站

,,,,CMS教程,模板无忧,建站教程,CMS教程,风讯Cms教程,

SEO SEO

首页  >   风讯CMS > 3.1-增加可自定义每篇新闻的文件名功能  >  正文

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

2018-09-27 07:33:02 向站长提问 编辑: admin 阅读:

 

也许大家用系统做网站,别人一看生成的文件总是能够找到一点规律 用这个东西,每次添加新闻的时候,随便输入一些乱七八糟的文件名称,是不是另有一种收获呢? 在些时候还是用得着的 本修改适合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 ifend 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_FileNameEnd 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_FileNameEnd 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 "> 查看更多 风讯cms教程  风讯cms模板 共2页上一页12下一页 来源:模板无忧 所属分类:风讯Cms教程 更新时间:2006-06-16 [收藏][报错][返回列表] 相关风讯Cms教程: 最简单的栏目切换方法(样式系列之栏目切换篇2) 我也放个栏目切换代码,简简单单的


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

在些时候还是用得着的.本修改适合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">

查看更多 风讯cms教程  风讯cms模板

共2页上一页12下一页

3.1-增加可自定义每篇新闻的文件名功能
http://www.yuedudg.cn/article/15105621.html

 

友情链接
zblog之家 ecshop经验网 wp之家
phpcms之家 织梦之家 帝国cms常识
cms综合网 discuz经验网


Tags: CMS教程 模板无忧 建站教程 CMS教程 风讯Cms教程


手机浏览本文
3.1-增加可自定义每篇新闻的文件名功能

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

站内推荐

网站分类

标签列表

关于我们
文章内容来源互联网仅供参考,如果还有疑问请联系我们!我们将竭力帮您解决您的问题
联系我们:

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy