<%@ Language=VBScript %>
<%dim jingyong,delnews
delnews=request.form("delnews")
if delnews="1" then
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&request.cookies("username")&"'"
rs.open sql,conn,1,3
jingyong=rs("jingyong")
rs.close
set rs=nothing
if request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("key")="bigmaster" or request.cookies("key")="smallmaster" or (request.cookies("key")="selfreg" and jingyong=0) or request.cookies("key")="typemaster" then%>
<%dim username,typeid,typename,bigclassid,bigclassname,smallclassid,smallclassname
NewsID=Request.Form("NewsID")
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.source,conn,1,1
image=rs("image")
username=rs("editor")
dim title
title=rs("title")
newsrelated=rs("newsrelated")
typeid=rs("typeid")
bigclassid=rs("bigclassid")
smallclassid=rs("smallclassid")
rs.close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeID=" & typeID
rs.Open rs.source,conn,1,1
typename=rs("typename")
rs.close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from bigclass where bigclassID=" & bigclassID
rs.Open rs.source,conn,1,1
bigclassname=rs("bigclassname")
rs.close
set rs=nothing
if smallclassid<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from smallclass where smallclassID=" & smallclassID
rs.Open rs.source,conn,1,1
smallclassname=rs("smallclassname")
rs.close
set rs=nothing
end if
button_value=trim(Request.Form("alert_button"))
if button_value="是" then
if request.Form("del")<>"1" then
set rs2=server.createobject("adodb.recordset")
sql2="select * from admin where username='"&username&"'"
rs2.open sql2,conn,1,3
rs2("number")=rs2("number")-1
rs2.update
rs2.close
set rs2=nothing
end if
conn.execute("delete from News where NewsID=" & NewsID)
conn.execute("delete from Review where NewsID=" & NewsID)
set rs2=server.createobject("adodb.recordset")
sql2="select * from attach where NewsID=" & NewsID
rs2.open sql2,conn,1,3
do while not rs2.EOF
Set fso=Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.Mappath("../WebFiles/"&rs2("filename")))=true Then
fso.DeleteFile Server.MapPath("../WebFiles/"&rs2("filename") )
End If
Set fso=Nothing
rs2.movenext
loop
rs2.close
set rs2=nothing
conn.execute("delete from attach where NewsID=" & NewsID)
if smallclassid<>"" then
response.write "恭喜您!您选择的总栏“"&typename&"”下大类“"&bigclassname&"”下的小类“"&smallclassname&"”的文章“"&title&"”已经被删除！
"&freetime&"秒钟后返回上页！"
else
response.write "
恭喜您!您选择的总栏“"&typename&"”下大类“"&bigclassname&"”的文章“"&title&"”已经被删除！
"&freetime&"秒钟后返回上页！"
end if
if smallclassid<>"" then
response.write ""
else
response.write ""
end if
else
response.write "
您没有执行删除操作！
"&freetime&"秒钟后返回上页！"
if smallclassid<>"" then
response.write ""
else
response.write ""
end if
end if
end if
else
response.write ""
response.end
end if
%>