⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 newsdel01.asp

📁 学校网站
💻 ASP
字号:
<!--#include file=conn.asp --><!--#include file=../include/config.asp -->
<!--#include file=chkuser.asp -->
<%dim jingyong
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")="typemaster" or (request.cookies("key")="selfreg" and jingyong=0) then%>
<%
NewsID=request("NewsID")
if NewsID="" then
%>
<script language=javascript>
history.back()
alert("请输入您要删除的文章ID!")
</script>
<%
Response.End
end if
set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.source,conn,1,1
if rs.EOF then
%>
<script language=javascript>
history.back()
alert("非法文章ID,请确认NewsID不超出当前范围!")
</script>
<%
Response.End
end if
username=rs("editor")
typeid=rs("typeid")
bigclassid=rs("bigclassid")
smallclassid=rs("smallclassid")
if smallclassid<>"" then
set rs3=server.createobject("adodb.recordset")
sql3="select * from smallclass where smallclassid="&smallclassid
rs3.open sql3,conn,1,3
master6=rs3("smallclassma")
if master6<>"" then
smallmaster6=split(master6,"|")
 for i=0 to ubound(smallmaster6)
	if request.cookies("username")=trim(smallmaster6(i)) then
	smallclassmaster6=true
	exit for
	else
	smallclassmaster6=false
	end if
 next
end if
rs3.close
set rs3=nothing
end if
set rs1=server.createobject("adodb.recordset")
sql1="select * from bigclass where bigclassid="&rs("bigclassid")
rs1.open sql1,conn,1,3
master5=rs1("bigclassmaster")
if master5<>"" then
bigmaster5=split(master5,"|")
 for i=0 to ubound(bigmaster5)
	if request.cookies("username")=trim(bigmaster5(i)) then
	bigclassmaster5=true
	exit for
	else
	bigclassmaster5=false
	end if
 next
end if
set rs2=server.createobject("adodb.recordset")
sql2="select * from type where typeid="&typeid
rs2.open sql2,conn,1,3
master4=rs2("typemaster")
if master4<>"" then
tmaster4=split(master4,"|")
 for i=0 to ubound(tmaster4)
	if request.cookies("username")=trim(tmaster4(i)) then
	typemaster4=true
	exit for
	else
	typemaster4=false
	end if
 next
end if
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing

%>
<%
if request.cookies("key")="super" or (request.cookies("key")="bigmaster" and bigclassmaster5=true) or (request.cookies("key")="typemaster" and typemaster4=true) or (request.cookies("key")="check" and checkdel="1") or (request.cookies("key")="smallmaster" and smallclassmaster6=true and request.cookies("username")=username) or (request.cookies("key")="selfreg" and jingyong=0 and request.cookies("username")=username) then
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 删除文章</title>
</head>
<body topmargin="0"><!--#include file=top.asp-->
<form action=newsdel2.asp method=post>
<div align="center">
  <center>
<table border="1" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="<%=border%>">
<tr>
<td width="100%" height="55" align="center" bgcolor="<%=m_top%>"><b><font color="#000000">删 除 文 章 确 认</font></b></td>
</tr>
<%set rs2=server.createobject("adodb.recordset")
sql2="select * from admin where username='"&username&"'"
rs2.open sql2,conn,1,3
if rs2.EOF then
nouser=1
end if
rs2.close
set rs2=nothing
%>
<input type="hidden" name="NewsID" value="<%=NewsID%>">
<tr>
<td width="100%" align=center bgcolor="#FFFFFF">
<p> </p>
<p><font color=red>删除文章:[ <font color="#000066"> <%=trim(rs("Title"))%>
</font>]?<br><%if rs("checkked")="1" then%>这篇文章已经通过审核,并且已经发表!<br>确实要删除吗?<%else%>这篇文章尚未通过审核!<br>确实要删除吗?<%end if%>
<BR>
(删除后将无法恢复!)</font></p>
<p><%if nouser=1 then%>该文章的作者已不在本系统中,是否还要删除?<input type="hidden" value="1" name="del"><%end if%></p>
</td>
</tr>
<tr>
    <td width="100%"align=center bgcolor="<%=m_top%>" height="55" > 
<input type="hidden" name="delnews" value="1">
      <input type=submit value="  是  " name="alert_button">
&nbsp;&nbsp;&nbsp;&nbsp;
<input type=submit value="  否  " name="alert_button">
    </td>
</tr>
</table>
  </center>
</div>
</body>

</html><%else%>
<script language=javascript>
history.back()
alert("您无权删除!")
</script>

<%end if%><%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -