急！急！急！一个关于更换/增加上传的图片的问题。

sharfly 2005-10-14 05:05:40

小妹从事asp刚入行，哪位大虾能帮我指点一下这个问题：
我需要实现对已上传图片的更换和增加功能，最多可上传3幅图，具体是——
1.对于已上传图片，可以任意更换其中的1幅或2幅或3幅。
2.对于原来没有上传图片的，可以增加1幅或2幅或3幅图片。

我写出的程序在原上传1幅图时进行更换图片是没问题的，但是当原上传了2或3幅图时更换图片就出错，也无法新增上传图片。而且，当原有2幅图想增加图片时，如果选择文件过大，则返回上传页面后却无法重新进行上传。

我的代码如下——
1.productsale_imgedit.asp（原上传图片的显示页面）

<FORM METHOD="POST" name="upload" ENCTYPE="multipart/form-data" ACTION="imgedit_ok.asp?pno=<%=prosid%>">
<br>
<table width="100%" height="252" border="0" align="center" class="bk2">
<tr>
<td><table width="100%" border="0" align="center">
<tr bgcolor="#FFCC99">
<td height="75" colspan="2" class="tuan"><div align="center">
<p>请选择图片上传，上传后将更换掉您原来的图片</p>

<p><font color="#FF0000">(限制文件大小，只接受 gif、jpg 文件上传。)</font><br>
</p>
</div></td>
</tr>
<tr>
<td>原产品图一</td>
<td><%if rs("file1_name") <> "" then %><img src="../upload/<%=rs("file1_name")%>" width="300" height="300">
<%else%>您还没有上传产品图一<%end if%>
</td>
</tr>
<tr>
<td width="20%" height="29" bgcolor="#FFFFCE" class="tuan"><div align="center">更换图一：</div></td>
<td width="80%" bgcolor="#FFFFCC"><INPUT NAME="FILE1" TYPE=FILE id="FILE1" size="30">
<span class="tuan style3"><font color="#FF0000">（最大50K）</font></span></td>
</tr>
<tr>
<td>原产品图二</td>
<td><%if rs("file2_name") <> "" then %><img src="../upload/<%=rs("file2_name")%>" width="300" height="300">
<%else%>您还没有上传产品图二<%end if%>
</td>
</tr>
<tr>
<td height="29" bgcolor="#FFFFCE" class="tuan"><div align="center">更换图二：</div></td>
<td bgcolor="#FFFFCE"><INPUT NAME="FILE2" TYPE=FILE size="30">
<span class="style3"><font color="#FF0000">（最大50K）</font></span><font color="#FF0000"> </font></font></td>
</tr>
<tr>
<td>原产品图三</td>
<td><%if rs("file3_name") <> "" then %><img src="../upload/<%=rs("file3_name")%>" width="300" height="300">
<%else%>您还没有上传产品图三<%end if%>
</td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFCE" class="tuan"><div align="center">更换图三：</div></td>
<td bgcolor="#FFFFCE"><INPUT NAME="FILE3" TYPE=FILE size="30">
<span class="tuan "><font color="#FF0000">（最大50K）</font></span></td>
</tr>
<tr bgcolor="#FFFFCE">
<td height="38" colspan="2"><div align="center">
<input type="submit" name="Submit5" value="上传图片">

<input type="reset" name="Submit6" value="重置">
<span class="tuan"> </span></div></td>
</tr>
</table></td>
</tr>
</table>
</form>

2.imgedit_edit.asp（处理页面）
<%pno=request("pno")
'先删除原有图片
call dbopen()
set rs=server.CreateObject("ADODB.RECORDSET")
i = 1
do while i<=3
sql="select file"&i&"_name from ic_soft_sale where soft_sale_id="&pno
rs.open sql,conn,1,1
fname = rs("file"&i&"_name")
if fname <> "" then
Set fso = CreateObject("Scripting.FileSystemObject")
filename = Server.MapPath("..\upload\"+rs("file"&i&"_name"))
Set fi = fso.getFile(filename)
fi.delete
end if
rs.close
i = i + 1
loop
%>

<% '重新上传新图片
On Error Resume Next
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 50*1024, true

'下面两句为：强制唯一的文件名
LoadManagerOverwriteFiles=false
Upload.OverwriteFiles=False

filename = Server.MapPath("..\upload")
Upload.Save filename

If Err.Number = 8 Then
errstr = "<BR>您上传的文件大小超过限制，本系统允许上传的图片最大为50K"
For Each File in Upload.Files
File.Delete
Next
response.Redirect("../errpro.asp?errid="&errstr)
end if
%>
<%'遍历每个上传图片
i = 1
For Each File in Upload.Files
if not CanUpload(File.ext) then
File.Delete
errstr=errstr+"<br>"+ "您的截图"&file.filename&"没有上传成功!<br>因为"&file.filename &"格式不正确！本系统只支持JPG,gif格式的文件上传!"
else
filepath = File.Path
pos = InStrRev(filepath, "\")
length = len(filepath)
filename = right(filepath,length-pos)
call dbopen()
sql="update ic_soft_sale set file"&i&"_name = '"&filename&"' where soft_sale_id="&pno
conn.execute(sql)
i = i + 1
end if
Next

if errstr<> "" then
response.Redirect("../errpro.asp?errid="&errstr)
end if

%>

...全文