上传到文件夹的图片无法显示——急！！

[WarrenBuffet]

<!--#include file="upload.inc"-->
<!--#Include file="adovbs.inc" -->
<% Response.Buffer=ture
dim imgs
Server.ScriptTimeout = 200
UploadSizeLimit = 100000 ' 最大的上传大小为100K
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim Fields
Set Fields = GetUpload() ' 取得上传域内容
If Err = 0 Then
path=server.mappath("/")&"\face_upload\"&Fields("pic_face").FileName
Fields("pic_face").value.saveas path
Else
Response.Write Err.Description
End If
On Error GoTo 0
Fields = Empty
End If %>

[coffee_cn]

sh.ce.net.cn/web8/tools/up.zip

[WarrenBuffet]

怎么按提交出来下载界面哦