📄 messagedetail.asp

📁 一个VB的p2p聊天系统
💻 ASP
字号:
<!--#include file="headfiles/Connection.inc"-->
<%
dim mid,rsMessage,receiver
mid=request("mid")
set rsMessage=server.CreateObject("adodb.recordset")
strSql="select * from MessageTable where Message_ID="&session("hr_user_id")
rsMessage.open strSql,conn,3,2
if in
rsMessage("Message_Read")=rsMessage("Message_Read")+"("+session("hr_user_id")+")"
rsMessage.update
rsMessage.close
strSql="select * from MessageView where Message_ID="&mid
rsMessage.open strSql,conn,3,1
select case rsMessage("Receive_Type")
	case 1
		set rsDetail=server.CreateObject("adodb.recordset")
		strSql="select * from EmployeeTable where Employee_ID="&rsMessage("Message_To")
		rsDetail.open strSql,conn,3,1
		receiver=rsDetail("Employee_Name")
		rsDetail.close
	case 2
		set rsDetail=server.CreateObject("adodb.recordset")
		strSql="select * from Depart1Table where Depart_ID="&rsMessage("Message_To")
		rsDetail.open strSql,conn,3,1
		receiver=rsDetail("Depart_Name")
		reDetail.close
	case 3
		receiver="全体员工"
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>浏览短消息</title>
<link href="headfiles/text.css" rel="stylesheet" type="text/css">
</head>
<body bottommargin="0" leftmargin="0" topmargin="0" rightmargin="0" background="images/bg.gif">
<table width="400" height="300" border="1" cellpadding="5" cellspacing="0" bordercolorlight="#00FFFF" bordercolordark="#0099FF">
  <tr> 
    <td width="65" class="title2" height="25">发送者：</td>
    <td width="90" class="title1">&nbsp;<%=rsMessage("Employee_Name")%></td>
    <td width="70" class="title2">发送时间：</td>
    <td width="120" class="title1">&nbsp;<%=rsMessage("Message_Date")%>&nbsp;<%=rsMessage("Message_Time")%></td>
  </tr>
  <tr> 
    <td class="title2" height="25">接收者：</td>
    <td class="title1">&nbsp;<%=receiver%></td>
    <td class="title2">级别：</td>
    <td class="title1">&nbsp;<%=rsMessage("MessageType_Name")%></td>
  </tr>
  <tr> 
    <td height="25" class="title2" >标题：</td>
    <td colspan="3" class="title1">&nbsp;<%=rsMessage("Message_Title")%></td>
  </tr>
  <tr> 
    <td height="25" class="title2" >内容：</td>
    <td colspan="3" rowspan="2"><textarea name="textarea" cols="56" rows="12"><%=rsMessage("Message_Content")%></textarea></td>
  </tr>
  <tr> 
    <td height="150"></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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