📄 sms_del_mysms.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" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="4,5,1,6,7"
MM_authFailedURL="login.asp?error=3"
MM_grantAccess=false
If session("QYABC_userid") <> "" Then
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim delsms__MMColParam
delsms__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
delsms__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim delsms
Dim delsms_numRows
Set delsms = Server.CreateObject("ADODB.Recordset")
delsms.ActiveConnection = MM_master_STRING
delsms.Source = "SELECT mailId, fromUsername, mailIsRead FROM sms WHERE mailId = " + Replace(delsms__MMColParam, "'", "''") + ""
delsms.CursorType = 0
delsms.CursorLocation = 2
delsms.LockType = 1
delsms.Open()
delsms_numRows = 0
%>
<%
if session("QYABC_userid")<>(delsms.Fields.Item("fromUsername").Value) then
Response.Write("温馨提示：请你正确使用系统，不要乱搞。")
elseif delsms.Fields.Item("mailIsRead").Value=true then Response.Write("<br><br><br><br><br><div align=""center"">对方已读这短信，现在不可删除了！<a href=""javascript:history.back(-1)"">点击这里返回！</a></div>")
%>
<% else %>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="delete from sms where mailID="&request("ID")
rs.open sql,MM_master_STRING,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>已成功删除信息-<%=WebName%></title>
<meta http-equiv="refresh" content="1;URL=sms_mysend_list.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="sms_index.asp">收件箱</a><a href="admin_exercise_subject_add.asp"></a><a href="admin_news_index.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="sms_mysend_list.asp">发件箱</a><a href="admin_exercise_subject_mylist.asp"></a><a href="admin_news_index.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="sms_write.asp">编写短信</a><a href="admin_exercise_content_add.asp"></a><a href="admin_news_add.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="admin_exercise_content_mylist.asp"></a><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%" align="center" valign="middle"><p align="center"><font color="#FF0000"><strong>已成功删除信息!</strong></font></p></td>
</tr>
</table>
<% end if %>
</body>
</html>
<%
delsms.Close()
Set delsms = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -