attach_del.asp

是一个关于小学信息化教育的平台,提供了学校论坛,和聊天室功能!

<!--#include file="../../include/db.asp"-->
<!--#include file="../../include/admin_check.asp"-->
<!--#include file="power.asp"-->
<%
imagepath ="/bbs/images/bbslogo/"
logoId = request("logoid")
id=request("id")
Set conn = OpenOrGet_Database("sql_conn")

'检索图片是否还在使用中
slectsql="select id from bbs_type where logo='"&logoId&"'"
set checkRs=open_rs(conn,selectsql)

if not (checkRs.eof and checkRs.bof) then
	Response.Write "<script language=javascript>"
   	Response.Write "alert('该图片还有论坛在使用，不能删除，请重新操作！');"
    	Response.Write "history.go(-1);"
    	Response.Write "</script>"
	Response.End
end if

'检索图片是否还存在
selectsql="select * from bbs_logo where id='"&logoid&"'"
set logoRs=open_rs(conn,selectsql)

if logoRs.eof and logoRs.bof then
	Response.Write "<script language=javascript>"
   	Response.Write "alert('该记录已经不存在，请重新操作！');"
    	Response.Write "history.go(-1);"
    	Response.Write "</script>"
	Response.End		
end if

'检索图片实体是否存在
set checkFile=Server.createObject("Scripting.FileSystemObject")
if checkFile.fileExists(server.mappath(imagepath&logoRs("name"))) then
	checkFile.deleteFile server.mappath(imagepath&logoRs("name"))
end if

logoRs.delete

Response.Write "<script language=javascript>"
Response.Write "alert('操作成功！');"
Response.Write "window.location.href='bbs_edit.asp?id="&id&"';"
Response.Write "</script>"
Response.End	
%>