user_dele_message.asp

来自「办公系统的公文处理」· ASP 代码 · 共 30 行

<!--#include file="conn.asp"-->
<%
     dele_id=request.querystring("dele_id")
     str="select 附件,发文者 from news where id="&dele_id&""
     set rs=conn.execute(str)
     send_name=rs("发文者")

%>
<%if session("adminadminadmin")=true or session("user_name")=send_name then
	  if rs("附件")<>"　" then
              Dim fs,del_file
  	          del_file=rs("附件")
		      del_file=Server.MapPath(del_file)
              Set fs=Server.CreateObject("Scripting.FileSystemObject")
		   if fs.FileExists(del_file) then
              fs.DeleteFile del_file,True
		   end if
	   end if
	   
	   str="delete from news where id="&dele_id&""
	   'response.write str
	   conn.execute(str)	 
	 session("user_dele_message")=""
	 response.redirect("list.asp")
  else
    response.redirect("list.asp")
  end if
    conn.close
%>