增加指定文件名功能_风讯Cms教程
教程Tag:暂无Tag,欢迎添加,赚取U币!
缂傚倸鍊搁崐椋庣矆娴h娲晝閸屾氨鍔电紓浣插亾闁硅京顒CMS闂備浇宕甸崰鎰版偡閵夈儙娑樷攽鐎c劉鍋撻崒鐐查唶闁哄洨鍋為悗顒€鈹戦悙鍙夘棡闁搞劎鍠栧濠氭晸閿燂拷婵犵數鍋為崹璺侯潖鐟欏嫮鐝堕柛鈩冪☉閻撴﹢鏌″搴″箺闁抽攱甯¢弻銊╂偆閸屾稑顏� 缂傚倸鍊风粈渚€藝闁秴绐楅柟閭﹀墾閼板潡鏌涢妷顔煎缂佲偓婢舵劖鐓冮柕澶堝妽閻濐亪鏌e┑鎾村 闂傚倸鍊风欢锟犲磻閸曨垁鍥ㄦ綇閳哄啰顦繝銏f硾閺堫剟宕楀⿰鍫熺厸闁搞儯鍔嶉惃鎴︽⒒婢跺﹦效闁哄被鍊栧ḿ蹇涘Ω閿旂粯顥涚紓鍌欑劍閸炲骞忛敓锟� 闂傚倷绀侀幖顐﹀疮閻楀牊鍙忛柟缁㈠枛濡炰粙鏌″搴′簽闁告纰嶇换娑㈠幢濡闉嶅┑顕嗙稻閸旀鍩€椤掑喚娼愰柟顔肩埣瀹曟洟鏌嗗鍛厬闂佽法鍣﹂幏锟�,闂傚倷娴囬惃顐﹀礋椤愩垹袘闂佽姘﹂~澶嬬箾婵犲偆鍤曢柛顐f礀缁€鍐┿亜閺傚灝鎮戞い蹇曞枑缁绘盯骞嬮悙鏉戠殤闂佺ǹ顑嗛幑鍥ь潖閸濆嫧鏋庨柟顖嗗嫮浜梻浣告啞閻熴儳鎹㈠Ο渚殨濠电姵纰嶉弲鎼佹煥閻曞倹瀚�!
方法:在文件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教程-增加指定文件名功能
。