File upload 上传和显示图片

我已经创建了ShadowUpload.asp和Upload.asp。 它可以工作，但我想显示上传的图片，但我不知道如何显示它

我的源代码是

<!-- #include file="ShadowUpload.asp" -->
<form action="<%=Request.ServerVariables( "Script_Name" )%>?action=1" enctype="multipart/form-data" method="POST">
Picture Profile: <input type="file" name="file1" value="<%=myPicture%>" /><br />
<button type="submit">Upload</button>
</form>

 <img border="0" src="<%=myPicture%>" width="90" height="100">`

<%
Dim objUpload
If Request("action")="1" Then
Set objUpload=New ShadowUpload
If objUpload.GetError<>"" Then

Response.Write("sorry, could not upload: "&objUpload.GetError)
Else  `

        Response.Write("found "&objUpload.FileCount&" files...<br />")
        For x=0 To objUpload.FileCount-1`

            If (objUpload.File(x).ImageWidth>200) Or (objUpload.File(x).ImageHeight>200) Then
                Response.Write("image to big, not saving!")
            Else  
                Call objUpload.File(x).SaveToDisk(Server.MapPath("Uploads"), "")
                Response.Write("file saved successfully!")
            End If
            Response.Write("<hr />")
        Next

    End If
End If


%>

图片简介：

上传
“width=“90”height=“100”>`
200）或（objUpload.File（x）.ImageHeight>200）然后
回答。写下（“图像变大，不保存！”）
其他的
调用objUpload.File（x.SaveToDisk（Server.MapPath（“上传”），“”）
Response.Write（“文件保存成功！”）
如果结束
回答。写（“
”）
下一个
如果结束
如果结束
%>

您需要为每个上传的文件添加图像，并且只有在成功上传的情况下：

If (objUpload.File(x).ImageWidth>200) Or (objUpload.File(x).ImageHeight>200) Then
    Response.Write("image to big, not saving!")
Else  
    Call objUpload.File(x).SaveToDisk(Server.MapPath("Uploads"), "")
    Response.Write("file saved successfully!")
    Response.Write("<br /><img src=""Uploads/" & objUpload.File(x).FileName & """ height=""50"" />")
End If

如果（objUpload.File（x）.ImageWidth>200）或（objUpload.File（x）.ImageHeight>200），则
回答。写下（“图像变大，不保存！”）
其他的
调用objUpload.File（x.SaveToDisk（Server.MapPath（“上传”），“”）
Response.Write（“文件保存成功！”）
响应。写入（“
”）
如果结束

---

这将显示上传图片的预览，设置高度为50像素。

您必须将上传文件的相对路径放入变量

myPicture

，并在