📄 admin_news_del.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257 E-Mail:qystu@163.com
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<!--#include file="inc/checksqlIn.Asp" -->
<%
Dim newsinfo__MMColParam
newsinfo__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
newsinfo__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim newsinfo
Dim newsinfo_numRows
Set newsinfo = Server.CreateObject("ADODB.Recordset")
newsinfo.ActiveConnection = MM_master_STRING
newsinfo.Source = "SELECT * FROM news WHERE ID = " + Replace(newsinfo__MMColParam, "'", "''") + ""
newsinfo.CursorType = 0
newsinfo.CursorLocation = 2
newsinfo.LockType = 1
newsinfo.Open()
newsinfo_numRows = 0
%>
<% If cint(newsinfo.Fields.Item("postid").Value)=session("QYABC_userid") Then '是否是他自己发布的公告，否则不可删除%>
<%
if(Request.QueryString("id") <> "") then delnews__asaid = Request.QueryString("id")
%>
<%
set delnews = Server.CreateObject("ADODB.Command")
delnews.ActiveConnection = MM_master_STRING
delnews.CommandText = "DELETE FROM news WHERE ID =" + Replace(delnews__asaid, "'", "''") + ""
delnews.CommandType = 1
delnews.CommandTimeout = 0
delnews.Prepared = true
delnews.Execute()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>已成功删除公告-<%=WebName%></title>
<meta http-equiv="refresh" content="3;URL=admin_news_index.asp">
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%" valign="top"><table width="97%" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><a href="admin_news_index.asp">公告列表</a></td>
</tr>
<tr>
<td align="center"><a href="admin_news_index.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="admin_news_add.asp">添加公告</a></td>
</tr>
<tr>
<td align="center"><a href="admin_news_add.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="admin_news_add.asp"></a></td>
</tr>
</table></td>
<td width="84%" valign="top"><br>
<br>
<p align="center"><font color="#FF0000">已成功删除公告。 </font></p></td>
</tr>
</table>
</body>
</html>
<%
newsinfo.Close()
Set newsinfo = Nothing
%>
<% Else%>
<div align="center"><br><br><br><br><br>你只可修改自己发布的公告！<a href="javascript:history.back(-1)">返回上一页</a><br><br><br><br><br></div>
<% End If%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -