模板无忧 > CMS教程 > 风讯CMS教程 >

增加指定文件名功能-风讯CMS教程

来源:模板无忧作者:doudou888 更新时间:2006-06-16 点击:

方法：在文件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教程