<!-- #Include File="../Include/skin.asp" -->
<%
Tit="上传文件下载"

Call DoWebHead(2,0)
'----------------------------中间 开始----------------------------
Call Upload_Download()
'----------------------------中间 结束----------------------------
Call DoWebEnd()

Sub Upload_Download()
  Dim id,UpFileUrl,UploadPath
  UploadPath=Trim(Cls.Web_Dir & Cls.Web_Upload)
  id=trim(request.querystring("id"))
  UpFileUrl=trim(request.querystring("UpFileUrl"))
  sql="select top 1 UpFileUrl from AsaiMHUpload where id="&id
  set rs=Cls.exec(sql,1)
  If rs.eof then
    rs.close
    Response.Write Cls.js_put("alert(""上传的文件为无效的上传或不存在！"");window.close();",1)
    Exit Sub
  End if
  UpFileUrl=rs(0)
  rs.close
  Call format_redirect(UploadPath&UpFileUrl)
End Sub
%>