本文在借鉴了 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文件，内容如下：
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Md5.asp" -->
<!--#include file="../../../Inc/Function.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编辑过]
