Posting Acceptor的问题？

TOKA 2001-06-28 03:17:48

我在Asp中使用Posting Acceptor组件来实现文件上传，发现点击提交按钮后，文件就自动上传到服务器了，如果由重名的文件也不做任何提示就覆盖掉了，如果同时传多个重名文件，就会出错，而且缺少相应的错误提示，所以能不能对上传的文件在写入服务器目录之前作一些处理，比如改名之类的？
最好有个例程！我的原码如下
default.asp
<%@ Language=VBScript %>
<%strPostUrl="http://" & Request.ServerVariables("SERVER_NAME") & "/scripts/cpshost.dll?PUBLISH?"
strposturl=strposturl & "http://" & Request.ServerVariables("SERVER_NAME") & "/FileUp/Send2.asp"
strTargetUrl="http://" & Request.ServerVariables("SERVER_NAME") & "/fileup/upFile"
%>

<%Response.Write strposturl
Response.Write "<Br>"
Response.Write strtargeturl
'Response.End
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form method=post action="<%=strposturl%>" enctype=multipart/form-data id=form1 name=form1>
<br>
<input type=hidden name="TargetURL" value="<%=strTargetUrl%>">
<tr>FileName:<input type=text name="name"><br>
<tr>要上载的文件1：<input type=file name="uploadfile1"> <br>
<tr>要上载的文件2：<input type=file name="uploadfile2"> <br>
<tr><input type=submit name="SubButton" value="上传">
</form>
<P> </P>

</BODY>
</HTML>

send2.asp
<%@ Language=VBScript %>
<%
set fobj=server.CreateObject("Scripting.FilesystemObject")
if fobj.FileExists("d:\fileup\upfile\t.htm") then
Response.Write "T.htm exist!"
else
Response.Write "t.htm isn't exist"
end if
For I = 1 To Request.Form("FileName").Count
Response.Write "Uploaded File: <B>" & Request.Form("FileName")(I) & Request.Form("FileExtention")(I) &"</B><BR>"
Response.Write "Physical Path: <B>" & Request.Form("FilePath")(I) & "</B><BR>"
Response.Write "Size: <B>" & Request.Form("FileSize")(I) & "</B><P>"
Next

Response.Write "test"
Response.Write Request.Form("Name")
Response.End
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P> </P>

</BODY>
</HTML>

...全文