- 中国开源CMS第一品牌 Ytar修改的自定义文件名（添加时就判断文件名是否重复,新闻、下载均已修改.已测试成功）

ytar - 2005-12-30 19:30:00

本文在借鉴了 http://bbs.foosun.net/dispbbs.asp?boardid=6&replyid=65173&id=13332&page=1&skin=0&Star=2 第12楼→hotla的思路。
主要是觉得=netfound=老兄的修改方法在生成时反复判断文件是否重名会太拖生成速度了.
觉得修改麻烦的朋友可以下载我修改好的文件。
[upload=rar]viewFile.asp?ID=2709[/upload]
原理：在相关页面加入文件名输入框，然后调用CheckFileName.asp判断文件名是否重复。如果不输入文件名则自动按系统设置的生成参数生成。

今天看了浏览次数和回帖数差距太大了,不奢求什么,只要大家回个贴就够了. [em01]

修改Admin/Info下面3个文件：
NewsWords.asp
NewsPic.asp
DownLoad.asp

NewsWords.asp在约242行后面增加
NewsPic.asp在约274行后面增加
If IFileName <> "" then
INewsAddObj("FileName") = IFileName
Else
INewsAddObj("FileName") = NewsFileNames
End If

NewsWords.asp在约719行后面增加
NewsPic.asp在约746行后面增加
<tr>
<td height="30"><div align="center">文件名</div></td>
<td><input name="FileName" type="text" id="FileName" value="<% = IFileName %>" style="width:80%"><a href="javascript:CheckFileName('CheckFileName.asp')"><font color="red">检查是否重名</font></a></td>
</tr>

在文件的末尾增加
</script>
<script language="javascript">
function CheckFileName(gotoURL) {
var Open_url = gotoURL + "?FileName=" + NewsForm.FileName.value.toLowerCase() + "&T=FS_News";
window.open(Open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=200,height=40');
}
</script>

DownLoad.asp在约358行后面增加
<tr>
<td height="30"><div align="center">文件名</div></td>
<td><input name="FileName" type="text" id="FileName" value="<% = NewsFileNames %>" style="width:70%"><a href="javascript:CheckFileName('CheckFileName.asp')"><font color="red">检查是否重名</font></a></td>
</tr>

在文件的末尾增加
<script language="javascript">
function CheckFileName(gotoURL) {
var Open_url = gotoURL + "?FileName=" + DownForm.FileName.value.toLowerCase() + "&T=FS_DownLoad";
window.open(Open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=200,height=40');
}
</script>

在同一目录下建立CheckFileName.asp文件，内容如下：




<%
Dim DBC,conn
Set DBC = new databaseclass
Set conn = DBC.openconnection()
Set DBC = nothing
Dim Username
Dim T
FileName=Replace(replace(trim(Request("FileName")),"'","''"),Chr(39),"")
T=Replace(replace(trim(Request("T")),"'","''"),Chr(39),"")
Dim checkrsobj
Set checkrsobj=conn.execute("select FileName from "&T&" where FileName='"&FileName&"'")
If filename="" then response.Write "<div align='center' style='font-size:9pt'><font color='Red'>文件名不能为空</font></div>" end if
If Not checkrsobj.eof then response.Write "<div align='center' style='font-size:9pt'><font color='Blue'>已存在此文件名</font></div>" end if
If checkrsobj.eof and filename<>"" then response.Write "<div align='center' style='font-size:9pt'><font color='Green'>可以使用此文件名</font></div>" end if
%>

修改完毕！

[此贴子已经被作者于2006-1-3 13:07:37编辑过]

附件: 2628.rar

附件: 2629.rar

附件: 2637.rar

雪之良 - 2005-12-31 05:04:00

传说中的.......沙发..........

楼主好东西.谢谢了.

wngx99 - 2005-12-31 11:00:00

收了，粉简单的。谢谢。

wsvip - 2005-12-31 19:00:00

谢谢。

doudou888 - 2005-12-31 20:24:00

不错!收藏

四季逗 - 2006-1-1 11:41:00

[em02]

lgp7226 - 2006-1-2 03:45:00

持支。

ytar - 2006-1-11 11:21:00

自己顶一下 [em01]

fzs888 - 2006-1-11 12:36:00

顶

rchjia - 2006-1-11 16:39:00

强烈支持

tiankong - 2006-1-11 18:29:00

支持一下

anana - 2006-1-12 17:02:00

好东西就要顶

57eu - 2006-1-13 08:59:00

支持

ken27 - 2006-1-25 03:21:00

好

kedee - 2006-1-25 18:22:00

恩，确实不错，收藏

四季逗 - 2006-1-26 08:09:00

又来了

johncera - 2006-4-21 21:39:00

这个插件会自动判断更生成新文件名吗？

大灰 - 2006-4-22 18:01:00

楼主，现在是补丁SP2了，有没有办法升级一下呀。我等着用。

Monfs - 2006-4-23 22:46:00

拿来！回去测试！

逐月剑客 - 2006-7-3 11:10:00

测试，谢谢

hzsglikai - 2006-7-9 18:39:00

这个修改针对 SP2版本是不能用的吗？

kedee - 2006-7-10 09:52:00

3.2的好象不能用，不能生成文件

1891 - 2006-8-27 08:36:00

不错!收藏

Dreamforge - 2006-9-15 17:22:00

谢谢!

fuyude - 2007-1-13 10:44:00

先谢谢楼主

3.2Sp1的可以用吗？

china323 - 2007-7-21 02:50:00

照死你的帖子！我已经用了，非常爽！

风讯官方论坛