FoosunCMS-增加指定文件名功能

导航：返回上一页

FoosunCMS-增加指定文件名功能

方法：在文件Admin\Info\NewsWords.asp中 (1)在

                <option <% if IFileExtName =
 "asp" then Response.Write("Selected") %> value="asp">asp</option>
              </select></td>
          </tr>
后加入代码
          <tr> 
            <td height="30"> 
              <div align="center">
<font color="#FF0000">指定文件名</font></div></td>
            <td height="30"> <% = IFileName %> =====>
              <input style="width:30%;" 
type="text" name="FileName" value="" 
title="只要指定文件名前缀，千万不要与原有的文件名重复！
保留空则文件名由系统自动生成。" size="20"></td>
          </tr>

(2) 在 INewsAddObj.open INewsAddSql,Conn,3,3

后插入

  '===========================================
  '增加指定文件功能 doudou888
  if Request("FileName")<>"" and IsNull(Request("FileName"))=false then
   IFileName = Replace(Replace(Request("FileName"),"""",""),"'","")
   NewsFileNames=IFileName
   INewsAddObj("FileName") = NewsFileNames  '新闻文件名
  end if 
  '=========================================== 

(3) 把

  NewsFileNames = NewsFileName(RsNewsConfigObj("NewsFileName"),IClassID,INewsID)
替换成
  '===========================================
  '增加指定文件功能 doudou888
  if Request("FileName")="" OR IsNull(Request("FileName")) then
   NewsFileNames = NewsFileName(RsNewsConfigObj("NewsFileName"),IClassID,INewsID)
  else
   IFileName = Replace(Replace(Request("FileName"),"""",""),"'","")
   NewsFileNames=IFileNames
  end if 
  '===========================================

参考来源

• 参考来源