📄 sms_read.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="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.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, fromUsername, toUsername  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>
<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">
	<div align="center">
  <%if cint(Recordset1.Fields.Item("toUserId").Value)= session("QYABC_userid") then%>
  <table width="100%" 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>发信人：</td>
      <td colspan="2" bgcolor="#FFFFFF"><div align="left"><a href="user_info_show.asp?userid=<%=(Recordset1.Fields.Item("fromUserId").Value)%>" target="_blank"><%=(Recordset1.Fields.Item("fromUsername").Value)%></a></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 width="60" 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"><%=(Recordset1.Fields.Item("mailMessage").Value)%></td>
    </tr>
    <tr> 
      <td><a href="sms_del.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="592"><div align="center"><a href="sms_index.asp" target="_self"><img src="images/back.gif" width="16" height="15" border="0">返回收件箱</a></div></td>
      <td width="286"><div align="right"> <a href="sms_write.asp?SmsSubject=回复：<%=(Recordset1.Fields.Item("mailSubject").Value)%>&userid=<%=(Recordset1.Fields.Item("fromUserid").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 %>
	</td>
  </tr>
</table>
<!--#include file="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 + -