admin_smswrite.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,7"
MM_authFailedURL="asaning/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  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
%>

<% '统计smslist记录总数。

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=短信,sms,邮箱,信件,flash,动画,Macromedia,Dreamweaver,作业 
name=keywords>
<META 
content=短信,sms,邮箱,信件,flash,动画,Macromedia,Dreamweaver,作业 
name=description>
<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>
<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>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
</head>

<body>
<!--#include file="admin_head.asp" -->
<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="admin_sms.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="admin_sms.asp" target="_parent">返回收件箱</a></strong></div></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
 <%else%>


<div align="center">
  <!--#include file="admin_sms_head.asp" -->
  <%if  Request.QueryString("studnetnum")<>"" then %>
  <% If Not checkuser.EOF Or Not checkuser.BOF Then %>
</div>
<form action="admin_sendsms.asp" method="post" name="form1" target="_parent" id="form1"  onsubmit="return checkform()">
  <div align="center"> 
    <table width="100%" 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> <font color="#000000"><strong><font color="#FF0000">温馨提示：</font></strong></font>本系统可编写888字的短信息，现在还可写 
          <input readonly type=text name=remLen size=3 maxlength=3 value="888"  style="background-color: #eaffe0; border: 0; color: red">个字。
		</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" nowrap><TABLE width="100%" border=0 align="right">
            <TBODY>
              <TR> 
                <TD height=27 align="center" valign="top"><div align="right">短信内容：</div></TD>
              </TR>
              <TR> 
                <TD height=28 align="center" valign="top"><div align="left"></div></TD>
              </TR>
              <TR> 
                <TD height=19><div align="right"><IMG style="CURSOR: hand" 
            onclick="insertsmilie('[em02]')" src="pic/em02.gif" 
            border=0> <IMG style="CURSOR: hand" onclick="insertsmilie('[em03]')" 
            src="pic/em03.gif" border=0> <IMG style="CURSOR: hand" 
            onclick="insertsmilie('[em04]')" src="pic/em04.gif" 
            border=0> <IMG style="CURSOR: hand" onclick="insertsmilie('[em05]')" 
            src="pic/em05.gif" border=0> <img style="CURSOR: hand" 
            onClick="insertsmilie('[em06]')" src="pic/em06.gif" 
            border=0> <IMG style="CURSOR: hand" onclick="insertsmilie('[em07]')" 
            src="pic/em07.gif" border=0> <IMG style="CURSOR: hand" 
            onclick="insertsmilie('[em08]')" src="pic/em08.gif" 
            border=0> <IMG 
            src="pic/em09.gif" width="20" height="20" border=0 style="CURSOR: hand" onclick="insertsmilie('[em09]')"> 
                    <IMG style="CURSOR: hand" 
            onclick="insertsmilie('[em10]')" src="pic/em10.gif" 
            border=0> <IMG style="CURSOR: hand" onclick="insertsmilie('[em11]')" 
            src="pic/em11.gif" border=0> <IMG style="CURSOR: hand" 
            onclick="insertsmilie('[em12]')" src="pic/em12.gif"