读第二个文件的时候就出错了，不知何故？

yctcsms 2005-04-11 06:12:10

错误是：
/*

Microsoft VBScript 运行时错误错误 '800a0035'

文件未找到

*/

我发现上传一个文件的时候可以上传，但是多个，就如我test.htm定义的input的value有多个时就不行了，文件是有的，但就是读不出来，只能读一个，不知道什么原因，请大家帮忙看看！

test.htm
代码如下：

<form name="form1" method="post" action="Save.asp" onSubmit="return frmchk();" enctype="multipart/form-data">
<input type="hidden" name="pic_src" value="C:\Documents and Settings\Administrator\桌面\pic\main_13.gif">
<input type="hidden" name="pic_src" value="C:\Documents and Settings\Administrator\桌面\pic\c_pic.jpg
">
<input type="submit" value="提交">
</form>

save.asp
(运行时候出错:文件写入错误)
代码如下：




<%

'-----------------------------
DIM UPLOAD
SET UPLOAD=NEW UPLOAD_5XSOFT

dim pic
pic=split(upload.form("pic_src"),",")

dim i
for i=0 to ubound(pic)
response.write pic(i)&"<br>"
next

If UPLOAD.FORM("operation")="add" Then
call Add
end if
'-----------------------------

Dim rs
Dim sql

'-----------------------------
Function Add
set rs=server.createobject("adodb.recordset")
rs.open "select * from PARTY_INFO",conn,1,3
rs.addnew
rs("PARTY_TITLE")=UPLOAD.FORM("title")
rs("PARTY_CONTENT")=htmlencode(UPLOAD.FORM("content"))
rs("PARTY_CONTENT")=UPLOAD.FORM("content")
rs("PARTY_DATE")=DATE()
RS("PARTY_CLASSID")=UPLOAD.FORM("CLASSID")

DIM FILE
set file=upload.file("file")
if file.FileSize>0 then
file.saveAs Server.mappath("../../UPLOAD/"&rs("id")&getfilename(file.FileName))
rs("PARTY_FILE")=rs("id")&getfilename(file.FileName)
end if

if ubound(pic)>=0 then
for i=0 to ubound(pic)
call up_file(pic(i))
next
end if

rs.Update
response.write "<script>alert('信息添加成功！');location.href='test.htm';</script>"
End Function
'-----------------------------
sub up_file(pic)
DIM DIR
DIR="../Up_Pic"

DIM FSO
SET FSO=SERVER.CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")

DIM F
IF NOT FSO.FOLDEREXISTS(SERVER.MAPPATH(DIR)) THEN
SET F=FSO.CREATEFOLDER(SERVER.MAPPATH(DIR))
ELSE
SET F=FSO.GETFOLDER(SERVER.MAPPATH(DIR))
END IF

Dim PATH
PATH=pic

Response.Write i&" "&PATH&"<br>"

Dim F2
SET F2=FSO.GETFILE(PATH) '读第二个文件的时候就出错了？不知何故？
DIM FILENAME
FILENAME=i&"_"&Year(Now)&"_"&Hour(Now)&"_"&Minute(Now)&"_"&second(Now)
F2.COPY(F.PATH&"\"&FILENAME&getfilename(PATH))
SET F2=NOTHING

SET F=NOTHING
SET FSO=NOTHING
end sub
%>

...全文