📄 showmessagecontent.asp
字号:
<!-- #include file="utility/check.asp" -->
<%
'****************************************
'目的： 根据消息ID显示消息内容
'开始时间： 2005-5-31
'最后修改时间： 2005-5-31
'编写人： 某某某
'****************************************
'首先检查是否有权限
'也就是用户是否通过审核
CheckFlag(1)
'用来判断是否需要更新是否阅读过字段
dim updateMsgReaded
dim msgID
dim msgTitle
dim msgTo
dim msgFrom
dim msgContent
dim sql
dim rs
updateMsgReaded = Request.QueryString("updateMsgReaded")
msgID = Request.QueryString("msgID")
sql = "select * from message where ID = " & msgID
set rs = ExecuteQuery(sql)
msgTitle = rs("msgTitle")
msgTo = rs("msgTo")
msgFrom = rs("msgFrom")
msgContent = rs("msgContent")
'凡是对数据库的操作都应该及时释放资源
rs.close()
set rs = nothing
'判断当前用户是否有权限读取该信息具体内容
if(msgTo <> Session("userID") and msgFrom <> Session("userID")) then
Alert("错误的入口参数，请确定您的权限！")
GoBack()
Response.end
end if
'如果有必要，则更新msgReaded字段为已阅读
if(updateMsgReaded <> "") then
sql = "update message set msgReaded = 1 where ID = " & msgID
ExecuteNonQuery(sql)
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>已发信息列表</title>
<link rel="stylesheet" type="text/css" href="images/link.css">
</head>
<body>
<div align="center">
<table border="1" width="580" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" height="275" bordercolor="#CCCCCC">
<tr>
<td width="70" height="28" align="right">标题：</td>
<td height="28"> <%=msgTitle%></td>
</tr>
<tr>
<td width="70" align="right" height="28">发信人：</td>
<td height="28"> <%=msgFrom%></td>
</tr>
<tr>
<td width="70" align="right" height="28">收信人：</td>
<td height="28"> <%=msgTo%></td>
</tr>
<tr>
<td width="70" align="right" height="194">内容：</td>
<td height="194"> <%=msgContent%></td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -