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