增加指定文件名功能_风讯Cms教程

编辑Tag赚U币
教程Tag:暂无Tag,欢迎添加,赚取U币!
方法:在文件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
'===========================================

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

来源:模板无忧//所属分类:风讯Cms教程/更新时间:2006-06-16
相关风讯Cms教程