www.gusucode.com > 绿色环保工作企业网站源码程序 > admin/News_Del.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <!--#include file="Inc/Function.asp"--> <!--#include file="../Inc/Config.asp"--> <% dim ID,Action,sqlDel,rsDel,FoundErr,ErrMsg,ObjInstalled ID=trim(request("ID")) Action=Trim(Request("Action")) FoundErr=False ObjInstalled=IsObjInstalled("Scripting.FileSystemObject") if ID="" or Action<>"Del" then FoundErr=True ErrMsg=ErrMsg & "<br><li>参数不足!</li>" end if if FoundErr=False then if instr(ID,",")>0 then dim idarr,i idArr=split(ID) for i = 0 to ubound(idArr) call DelNews(clng(idarr(i))) next else call DelNews(clng(ID)) end if end if if FoundErr=False then call CloseConn() response.Redirect "News_Manage.asp" else call CloseConn() call WriteErrMsg() end if sub DelNews(ID) PurviewChecked=False sqlDel="select * from News where ID=" & CLng(ID) Set rsDel= Server.CreateObject("ADODB.Recordset") rsDel.open sqlDel,conn,1,3 if FoundErr=False then if DelUpFiles="Yes" and ObjInstalled=True then dim fso,strUploadFiles,arrUploadFiles strUploadFiles=rsDel("firstImageName") & "" if strUploadFiles<>"" then Set fso = CreateObject("Scripting.FileSystemObject") if instr(strUploadFiles,"|")>1 then arrUploadFiles=split(strUploadFiles,"|") for i=0 to ubound(arrUploadFiles) if fso.FileExists(server.MapPath("../" & arrUploadfiles(i))) then fso.DeleteFile(server.MapPath("../" & arrUploadfiles(i))) end if next else if fso.FileExists(server.MapPath("../" & strUploadfiles)) then fso.DeleteFile(server.MapPath("../" & strUploadfiles)) end if end if Set fso = nothing end if end if rsDel.delete rsDel.update set rsDel=nothing end if end sub %>