<!--#include file="../setting/conn.asp"--><!--#include file="../Inc/UploadCls.asp"-->
<%:SoonBiz.chkadmin:Dim obj:fid=Trim(Request.QueryString("fid")):cid=SoonBiz.rid("cid"):obj=SoonBiz.RequestStr("","obj","get",1,1,20,30,0)
If len(fid)=0 Then
fid=SoonBiz.fid
End If:act=SoonBiz.ract:Select Case act:Case "nolist" : nolist:Case "save" : Dosave:Case "" : uplist:Case "del" : delimg:End Select:SoonBiz.AdFoot():setallnothing:Sub delimg():Dim imgfile:imgfile=Trim(Request.Form("imgfile")):SoonBiz.execute("delete from "& sheethead &"_uplist where fid='"& fid &"' and ufilename='"& imgfile &"'"):SoonBiz.DelFile(imgfile):SoonBiz.ok:End Sub
%>