📄 detailmsg.asp

📁 网络教学管理系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strID ,strSql ,rs ,rs1 ,strType ,strUrl
	strID = Request.QueryString("ID")
	strType = Request.QueryString("Type")
	If strType = "" Then
		strType = "r"
	End If
	If strType = "s" Then
		strUrl = "Index_Msg_s.asp"
	Else
		strUrl = "Index_Msg.asp"
	End If
	If strID & "" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If
	Set rs = Server.CreateObject("ADODB.RecordSet")
	strSql = "SELECT * FROM Msg WHERE ID ="& strID 
	rs.open strSql,conn,1,1
	If rs.EOF Then
		Response.Write("对不起，无此短信息！")
		Response.End
	Else
		If rs("ManFrom") <> Session("UserName") And rs("ManTO") <> Session("UserName") Then
			Response.Write("对不起，你没有权限看此短信息！")				
		End If
	End If
	If rs("ManTO") = Session("UserName") Then
		strSql = "UPDATE Msg SET IsRead = 1 WHERE ID = "& strID
		Set rs1 = Server.CreateObject("ADODB.RecordSet")
		rs1.open strSql,conn,3,1
	End If
	
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body {
	background-color: #B1DB99;
}
.STYLE1 {color: #CC0000}
body,td,th {
	font-size: 12px;
}
-->
</style></head>

<body topmargin="5" leftmargin="5">
<table width="406">
  <tr>
    <td height="15" colspan="3" background="images/Down_bg.gif" >短消息详细信息</td>
  </tr>
  <tr bgcolor="#66C06D">
    <td width="201" bgcolor="#66C06D">标题：<%=rs("Title").value%></td>
    <td>发件人：<%=rs("ManFrom").value%></td>
    <%If strType = "r" Then%><td width="70" ><div align="center" class="STYLE1"><a href="DelMsg.asp?Type=<%=strType%>&ID=<%=rs("ID").value%>" onclick="return confirm('您确定要删除这条短信息吗？')">删除</a></div></td><%End If%>
  </tr>
  <tr>
    <td colspan="4" bgcolor="#FFFFFF" bordercolor="#FFFF66"><div align="center">内容</div>
<div>&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("Content").value%></div></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td  >&nbsp;</td>
    <td width="119"><div align="center"><a href="<%=strUrl%>">返回</a></div></td>
    <%If strType = "r" Then%><td ><div align="center"><a href="Add_Msg.asp?ManTO=<%=rs("ManFrom").value%>">回复</a></div></td><%End If%>
  </tr>
    <tr>
    <td height="16" colspan="3" background="images/Top_bg.gif">&nbsp;</td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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