求：ASPUpload 3.0 圖片上傳源碼，謝謝了！ASP

表單:

<form name="form1" method="post" action="001tjsave.asp">

<table width="527" height="60" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="43" height="30" align="right"><span class="STYLE2">圖片:</span></td>

<td width="168" height="30"><label>

<input name="tp1" type="text" id="tp1">

</label></td>

<td height="30" colspan="2"><iframe name="t" src="upload1.asp" width="100%" height="25" marginheight="0" frameborder="0"></iframe></td>

</tr>

<tr>

<td height="30">?</td>

<td height="30">?</td>

<td width="80" height="30">?</td>

<td width="215" height="30"><label>

<input type="submit" name="Submit" value="提交">

<input type="reset" name="Submit2" value="重置">

</label></td>

</tr>

</table>

</form>

upload1.asp

<form action="uploadsave1.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">

<label>

<input name="tpupload" type="file" id="tpupload" />

</label>

<label>

<input type="submit" name="Submit" value="上傳" />

</label>

</form>

uploadsave1.asp

<%set upload=server.CreateObject("persits.upload")

upload.save server.MapPath("upload")

filename=upload.files("tpupload").path

while instr(filename,"\")<>0

filename=mid(filename,instr(filename,"\")+1,len(filename)-instr(filename,"\"))

wend

tp1="<img src=upload\\"&filename&" width=200 height=150 border=0>"

Response.Write "<script>parent.form1.tp1.value+='"&tp1&"' </script>"

Response.Write "<script>history.back()</script>"

%>

以上就可以實現圖片上傳,但是表單的保存妳要放在哪裏我就不知道了.