sms_write.asp

《学校机房作业管理系统》采用ASP+Aceesss+ ServU构架

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257   E-Mail:[e-mail]
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：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
%>
<% dim asan_Session
asan_Session=session("QYABC_userid")
 %>
<%
Dim checkuser__MMColParam
checkuser__MMColParam = "1"
If (Request.QueryString("userid")  <> "") Then 
  checkuser__MMColParam = Request.QueryString("userid") 
End If
%>
<%
Dim checkuser
Dim checkuser_numRows

Set checkuser = Server.CreateObject("ADODB.Recordset")
checkuser.ActiveConnection = MM_master_STRING
checkuser.Source = "SELECT studentnum, studentname,userid  FROM userinfo  WHERE userid = " + Replace(checkuser__MMColParam, "'", "''") + ""
checkuser.CursorType = 0
checkuser.CursorLocation = 2
checkuser.LockType = 1
checkuser.Open()

checkuser_numRows = 0
%>
<%
Dim smslist__MMColParam
smslist__MMColParam = "1"
If (session("QYABC_userid")   <> "") Then 
  smslist__MMColParam = session("QYABC_userid")  
End If
%>
<%
Dim smslist
Dim smslist_numRows

Set smslist = Server.CreateObject("ADODB.Recordset")
smslist.ActiveConnection = MM_master_STRING
smslist.Source = "SELECT mailId  FROM sms  WHERE toUserId = '" + Replace(smslist__MMColParam, "'", "''") + "'  ORDER BY mailDateTime DESC"
smslist.CursorType = 0
smslist.CursorLocation = 2
smslist.LockType = 1
smslist.Open()

smslist_numRows = 0
%>

<%
Dim totalsms
Dim totalsms_numRows
'dim MMColParam
'MMColParam=(checkuser.Fields.Item("studentname").Value)
Set totalsms = Server.CreateObject("ADODB.Recordset")
totalsms.ActiveConnection = MM_master_STRING
totalsms.Source = "SELECT mailIsRead  FROM sms  WHERE toUserId = '" + Replace(checkuser__MMColParam, "'", "''") + "' AND mailIsRead=False AND fromUserId = '" + Replace(asan_Session, "'", "''") + "'"
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
%>

<%

Dim smslist_total
Dim smslist_first
Dim smslist_last

' set the record count
smslist_total = smslist.RecordCount

' *** Recordset Stats: if we don't know the record count, manually count them

If (smslist_total = -1) Then

  ' count the total records by iterating through the recordset
  smslist_total=0
  While (Not smslist.EOF)
    smslist_total = smslist_total + 1
    smslist.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (smslist.CursorType > 0) Then
    smslist.MoveFirst
  Else
    smslist.Requery
  End If


End If
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>编写短信-<%=WebName%></title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.3700.6699" name=GENERATOR>


<META content=TRUE name=MSSmartTagsPreventParsing>
<META content=Yes http-equiv=MSThemeCompatible>
<META content=no-cache http-equiv=html>
<script language="JavaScript" src="ubbcode/ubbcode.js" type="text/JavaScript"></script>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!-- 限制输入字数函数。Begin
function textCounter(field, countfield, maxlimit) {
if (field.value.length > maxlimit) // if too long...trim it!
field.value = field.value.substring(0, maxlimit);
// otherwise, update 'characters left' counter
else 
countfield.value = maxlimit - field.value.length;
}
// End -->
</script>
<script language="JavaScript">
<!--
function checkform(){
if(document.form1.mailSubject.value=="")
  {
   alert("必须填写短信主题！");
   document.form1.mailSubject.focus();
   return false;
   }
if(document.form1.Content.value=="")
  {
   alert("必须填写短信内容！");
   document.form1.Content.focus();
   return false;
   }

}
//-->
</script>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style>
<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>&nbsp;</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">
	<p class="style1"> 
  <%

 if smslist_total>15 then %>
  <br>
  <br>
  <br>
  <br>
  <br>
  <br>
  <br>
  <br>
</p>
<table width="57%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><a href="sms_index.asp"><font color="#FF0000"><strong>温馨提示：</strong></font><br>
      系统规定，每位同学只可保留十五条信息，你现在保留的信息超过了该数量，<br>
      请你返回删除一些已读信息，否则你将不能发送信息。</a></td>
  </tr>
</table>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<% else %>

<% 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>
        对不起，你发送给<%= checkuser__MMColParam %>的信息，已有五条了，并且<%=checkuser__MMColParam%>还空没读你的信息，等他(她)读了，再发信息给他(她)吧。</strong></p>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
          <td><div align="right"><strong><a href="sms_index.asp" target="_parent">返回收件箱</a></strong></div></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
 <%else%>
  <%if  Request.QueryString("userid")<>"" then %>
  <% If Not checkuser.EOF Or Not checkuser.BOF Then %>
</div>
<form action="sms_send.asp" method="post" name="form1" target="_self" id="form1"  onsubmit="return checkform()">
  <div align="center">
    <table width="80%" align="center">
      <tr valign="baseline">
        <td height="20" colspan="3" align="right" nowrap></td>
      </tr>
      <tr valign="baseline">
        <td width="160" align="right" nowrap>你要发送给：</td>
        <td width="188" align="right" nowrap><div align="left"><%=(checkuser.Fields.Item("studentname").Value)%> </div></td>
        <td width="416" align="right" nowrap>&nbsp;</td>
      </tr>
      <tr valign="baseline">
        <td align="right" nowrap><div align="right">短信主题：</div></td>
        <td colspan="2" align="right" nowrap><div align="left">
          <input name="mailSubject" type="text" id="mailSubject" value="<%= Request.QueryString("SmsSubject") %>" size="85" maxlength="38">
        </div></td>
      </tr>
      <tr valign="baseline">
        <td rowspan="2" align="right" valign="top" nowrap>短信内容：
          <div align="center"> </div></td>
        <td colspan="2" align="left" nowrap><textarea name="content" style="display:none"></textarea>
          <iframe ID="eWebEditor1" src="editor/ewebeditor.asp?id=content&style=sms_system&originalfilename=d_originalfilename&savefilename=d_savefilename&savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="650" HEIGHT="350"></iframe></td>
      </tr>
      <tr valign="baseline">
        <td colspan="2" align="right" nowrap>&nbsp;</td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right"><input name="toUserId" type="hidden" id="toUserId" value="<%=(checkuser.Fields.Item("userid").Value)%>">
            <input name="fromUserId" type="hidden" id="fromUserId" value="<%= session("QYABC_userid") %>">
            <input name="toUsername" type="hidden" id="toUsername" value="<%=(checkuser.Fields.Item("studentname").Value)%>">
            <input name="fromUsername" type="hidden" id="fromUsername" value="<%= session("QYABC_username") %>">
            <input name="MailIP" type="hidden" id="MailIP" value="<%=Request.ServerVariables("Remote_Addr")%>"></td>
        <td colspan="2"><div align="right">
          <input name="submit" type="submit" value="发送短信">
        </div></td>
      </tr>
    </table>
  </div>
</form>
<div align="center"><br>
  <br>
  <br>
  <% else%>
  <br>
  <br>
  <br>
  <br>
  <br>
  <br>
  <span class="style1">没有该用户，请不要乱搞！</span> <br>
  <br>
  <br>
  <br>
  <br>
  <br>
  <% End If ' end Not checkuser.EOF Or NOT checkuser.BOF %>
  <% else%>
  <table width="386" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#99ccff">
    <tr> 
      <td colspan="2"><span class="style1">你还没有选择收信人姓名，你可以从以下途径获得收信人姓名：</span></td>
    </tr>
    <tr> 
      <td width="20">1</td>
      <td width="343" bgcolor="#FFFFFF"><a href="user_all_list.asp" target="_self">系统全部用户列表</a></td>
    </tr>
    <tr>
      <td>2</td>
      <td bgcolor="#FFFFFF"><A href="user_student_list.asp" target="_self">学生列表</A></td>
    </tr>
    <tr>
      <td>3</td>
      <td bgcolor="#FFFFFF"><A href="user_teacher_list.asp" target="_self">教师列表</A></td>
    </tr>
    <tr> 
      <td>4</td>
      <td bgcolor="#FFFFFF"><a href="user_our_class.asp" target="_self">自己班或组的用户列表</a></td>
    </tr>
  </table>
  <% end if %><% end if%><% end if%>
	</td>
  </tr>
</table>
<!--#include file="inc/bot.asp" -->
</body>
</html>

<%
checkuser.Close()
Set checkuser = Nothing
%>
<%
smslist.Close()
Set smslist = Nothing
%>
<%
totalsms.Close()
Set totalsms = Nothing
%>