<!--#include file="../setting/Conn.asp"--><!--#include file="../Inc/UploadCls.asp"-->
<%:SoonBiz.geturl
If Not SoonBiz.CheckUp Then
ShowErr("您所在的用户组没有上传权限")
End If:Dim obj:fid=SoonBiz.fid:act=SoonBiz.ract():obj=Trim(Request.QueryString("obj"))
If Not IsNumeric (obj) Then
Response.End
End If:Select Case act:Case "save" : Dosave : insertpath:Case "" : selectfile():End Select:SoonBiz.AdFoot():setallnothing:Sub selectfile():SoonBiz.title="上传附件":SoonBiz.adhead:SoonBiz.nstate("上传附件"):Response.Write "<div class='upfile'>":Response.Write " <form method=""post"" name=""up"" enctype=""multipart/form-data"" action=""?act=save&obj="& obj &"&u="& u &""" >":Response.Write " <input type=""file"" name=""file1"" size=""30"">":Response.Write " <input type=""submit"" class=""uploadbutton"" value=""上传"">":Response.Write " </form>":Response.Write "</div>":End Sub:Sub insertpath():Response.Write "<script type=""text/javascript"">window.opener.document.getElementById('form"& obj &"').value='"& F_FileName &"'</script>":End Sub
%>