?? sms_read.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> </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"> </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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -