📄 admin_smsread.asp

📁 《学校机房作业管理系统》采用ASP+Aceesss+ ServU构架
💻 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="asaning/Connections/master.asp" -->
<!--#include file="inc/checksqlIn.Asp" -->


<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="1,5,6,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
%>
<%
if( Request.QueryString("mailId")<>"") then Command1__id =Request.QueryString("mailId")%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("mailId") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("mailId")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_master_STRING
Recordset1.Source = "SELECT fromUserId, toUserId, mailSubject, mailMessage, mailDateTime, mailId, fromUsernum, toUsernum  FROM sms  WHERE mailId = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_master_STRING
Command1.CommandText = "UPDATE sms  SET mailIsRead =true  WHERE mailId =" + Replace(Command1__id, "'", "''") + " "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<!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>
<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">
<style type="text/css">
<!--
-->
</style>
<link href="asaning/inc/STYLE.CSS" rel="stylesheet" type="text/css">
</head>

<body>
<div align="center"> 
  <!--#include file="admin_sms_head.asp" -->
  <%if (Recordset1.Fields.Item("toUsernum").Value)= Session("MM_studnetnum") then%>
  <table width="500" border="0" align="center" cellpadding="4"  style="WORD-BREAK: break-all;table-layout:fixed" cellspacing="1" bgcolor="#99ccff">
    <tr bgcolor="#66B3FF"> 
      <td colspan="3">&nbsp;</td>
    </tr>
    <tr> 
      <td width="76">发信人：</td>
      <td colspan="2" bgcolor="#FFFFFF"><div align="left"><%=(Recordset1.Fields.Item("fromUserId").Value)%></div></td>
    </tr>
    <tr> 
      <td>发信时间：</td>
      <td colspan="2" bgcolor="#FFFFFF"><div align="left"><%=(Recordset1.Fields.Item("mailDateTime").Value)%></div></td>
    </tr>
    <tr width="60" bgcolor="#FFFFFF"  onmouseout="javascript:this.bgColor='#ffffff'" onmouseover="javascript:this.bgColor='#C1E0FF'"> 
      <td bgcolor="#99ccff">信息主题：</td>
      <td colspan="2" bgcolor="#FFFFFF"><div align="left"><%=(Recordset1.Fields.Item("mailSubject").Value)%></div></td>
    </tr>
    <tr width="60" bgcolor="#FFFFFF"  onmouseout="javascript:this.bgColor='#ffffff'" onmouseover="javascript:this.bgColor='#C1E0FF'"> 
      <td valign="top" bgcolor="#99ccff">信息内容：</td>
      <td colspan="2" bgcolor="#FFFFFF"><%=UBBcode(Recordset1.Fields.Item("mailMessage").Value)%></td>
    </tr>
    <tr> 
      <td><a href="asaning/delsms.asp?ID=<%=(Recordset1.Fields.Item("mailId").Value)%>" onclick="return confirm('温馨提示：删除后，将不能恢复。你确定删除此条信息吗？')"><img src="images/del2.gif" alt="删除信息" width="43" height="19" border="0"></a></td>
      <td width="256"><div align="center"><a href="admin_sms.asp" target="_parent"><img src="images/back.gif" width="16" height="15" border="0">返回收件箱</a></div></td>
      <td width="140"><div align="right"> <a href="admin_smswrite.asp?SmsSubject=回复：<%=(Recordset1.Fields.Item("mailSubject").Value)%>&studnetnum=<%=(Recordset1.Fields.Item("fromUsernum").Value)%>"><img src="images/rethread.gif" alt="回复信息" width="45" height="18" border="0"></a> 
        </div></td>
    </tr>
  </table>
  <% else %>
  <br>
  <br>
  <br>
  <br>
  <br>
  <br>
  <br>
  <br>
</div>
<div align="center" class="style1">你不可读别人的信息！</div>
<div align="center">
  <% end if %>
  <!--#include file="asaning/inc/bot.asp" -->
</div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
💿 文件大小 1605 K
👤 上传用户 fq335288450
📂 所属分类企业管理
🏷️ 相关标签

#Aceesss #ServU #ASP #机房
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -