📄 sms_send.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="6,5,1,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
%>
<%
if(Request.Form("fromUserId") <> "") then insertsms__asafromUserId = Request.Form("fromUserId")
if(Request.Form("toUserId") <> "") then insertsms__asatoUserId = Request.Form("toUserId")
if(Request.Form("fromUsername") <> "") then insertsms__asafromUsername = Request.Form("fromUsername")
if(Request.Form("toUsername") <> "") then insertsms__asatoUsername = Request.Form("toUsername")
if(Request.Form("mailSubject") <> "") then insertsms__asamailSubject = Request.Form("mailSubject")
if(Request.Form("Content") <> "") then insertsms__asamailMessage = (Request.Form("Content"))
if(Request.Form("MailIP") <> "") then insertsms__asaMailIp = Request.Form("MailIP")
%>
<%
asan_content= insertsms__asamailSubject+insertsms__asamailMessage%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发送结果。-<%=WebName%></title>
<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%" valign="top">
<%
Dim totalsms__MMColParam1
totalsms__MMColParam1 = "1"
If (Request.Form("toUserId") <> "") Then
totalsms__MMColParam1 = Request.Form("toUserId")
End If
%>
<%
Dim totalsms__MMColParam2
totalsms__MMColParam2 = "1"
If (Request.Form("fromUserId") <> "") Then
totalsms__MMColParam2 = Request.Form("fromUserId")
End If
%>
<%
Dim totalsms
Dim totalsms_numRows
Set totalsms = Server.CreateObject("ADODB.Recordset")
totalsms.ActiveConnection = MM_master_STRING
totalsms.Source = "SELECT mailIsRead FROM sms WHERE toUserId = '" + Replace(totalsms__MMColParam1, "'", "''") + "' AND mailIsRead=False AND fromUserId = '" + Replace(totalsms__MMColParam2, "'", "''") + "'"
totalsms.CursorType = 0
totalsms.CursorLocation = 2
totalsms.LockType = 1
totalsms.Open()
totalsms_numRows = 0
%>
<%
Dim totalsms_total
Dim totalsms_first
Dim totalsms_last
' set the record count
totalsms_total = totalsms.RecordCount
' *** Recordset Stats: if we don't know the record count, manually count them
If (totalsms_total = -1) Then
' count the total records by iterating through the recordset
totalsms_total=0
While (Not totalsms.EOF)
totalsms_total = totalsms_total + 1
totalsms.MoveNext
Wend
' reset the cursor to the beginning
If (totalsms.CursorType > 0) Then
totalsms.MoveFirst
Else
totalsms.Requery
End If
End If
%>
<%
if totalsms_total>5 then%>
<br>
<br>
<br>
<br>
<br>
<br>
<table width="492" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#42df31">
<tr>
<td width="492"><font color="#FF0000"><strong>温馨提示</strong></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <p><strong><br>
对不起，你发送给<%= Request.Form("toUsername") %>的信息，已有五条了，并且<%= Request.Form("toUsername") %>还空没读你的信息，等他(她)读了，再发信息给他(她)吧。</strong></p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td><div align="right"><strong><a href="sms_index.asp" target="_parent">返回收件箱</a></strong></div></td>
</tr>
</table>
</td>
</tr>
</table>
<%else%>
<%
Dim badwords
Dim badwords_numRows
Set badwords = Server.CreateObject("ADODB.Recordset")
badwords.ActiveConnection = MM_master_STRING
badwords.Source = "SELECT Badwords FROM config"
badwords.CursorType = 0
badwords.CursorLocation = 2
badwords.LockType = 1
badwords.Open()
badwords_numRows = 0
%>
<%
dim limit_words
dim arrayx
dim asan_count
asan_count=0
limit_words=(badwords.Fields.Item("Badwords").Value)
arrayx=Split(limit_words,",")
for i=0 to ubound(arrayx)
%>
<% if Instr(asan_content,arrayx(i))>0 then %>
<% asan_count=asan_count+1 %>
<% else%>
<% end if %>
<% next %>
<% if asan_count>2 then %>
<!-- 提示“所发的短信包含有不文明的词语。”语句开始 -->
<br>
<br>
<br>
<br>
<br>
<br>
<table width="492" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#42df31">
<tr>
<td width="492"><font color="#FF0000"><strong>温馨提示</strong></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <p><strong><br>
你所发的短信包含有不文明的词语。</strong></p>
<p><strong>我们都是有文化的人，所以请返回修改，然后才发送!</strong></p>
<p><strong>谢谢合作!</strong></p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td><div align="right"><strong><a href="javascript:history.back(-1)" target="_parent">返回修改</a></strong></div></td>
</tr>
</table>
</td>
</tr>
</table>
<!-- 提示“所发的短信包含有不文明的词语。”语句结束 -->
<% else%>
<%
set insertsms = Server.CreateObject("ADODB.Command")
insertsms.ActiveConnection = MM_master_STRING
insertsms.CommandText = "INSERT INTO sms (fromUserId, fromUsername, toUserId, toUsername,mailSubject, mailMessage, MailIp) VALUES ('" + Replace(insertsms__asafromUserId, "'", "''") + "','" + Replace(insertsms__asafromUsername, "'", "''") + "','" + Replace(insertsms__asatoUserId, "'", "''") + "','" + Replace(insertsms__asatoUsername, "'", "''") + "','" + Replace(insertsms__asamailSubject, "'", "''") + "','" + Replace(insertsms__asamailMessage, "'", "''") + "','" + Replace(insertsms__asaMailIp, "'", "''") + "') "
insertsms.CommandType = 1
insertsms.CommandTimeout = 0
insertsms.Prepared = true
insertsms.Execute()
%>
<div align="center">
<p><br>
<br>
<br>
<br>
<br>
<br>
<strong><font color="#FF0000">已成功发送短信!</font></strong> <a href="sms_index.asp" target="_self">返回短信列表</a></p>
<% end if '判断是否有不文明语句结束 %>
</div>
<br>
<br>
<br>
<br>
<br>
</td>
</tr>
</table>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<%
badwords.Close()
Set badwords = Nothing
%>
<% end if%>
<%
totalsms.Close()
Set totalsms = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -