📄 messagereceive.asp
字号:
<!--#include file="headfiles/Connection.inc"-->
<%
dim depart,usid,rsMessage,rsUser
set rsUser=server.CreateObject("adodb.recordset")
set rsMessage=server.CreateObject("adodb.recordset")
strSql="select * from EmployeeWorkView where User_ID='"&session("hr_user_name")&"'"
rsUser.open strSql,conn,3,1
depart=rsUser("Employee_Depart1")
usid=rsUser("Employee_ID")
strSql="select * from MessageView where (Receive_Type=3) or (Receive_Type=2 and Message_To="&depart&") or (Message_To="&usid&")"
rsMessage.open strSql,conn,3,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="headfiles/text.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function OpenMessage(id){
window.open("MessageDetail.asp?mid="+id,"openmessage", "width=400; height=300; left=1; top=1");
}
</script>
</head>
<body bottommargin="0" leftmargin="0" topmargin="0" rightmargin="0" background="images/bg.gif">
<table width="600" cellpadding="0" cellspacing="0" border="0">
<tr><td bgcolor="#6699ff" valign="middle" align="center" height="35" class="title5">短消息</td></tr>
<tr><td height="25" align="right" bgcolor="#66CCFF"><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("FamilyMember.asp");'>发消息</a></td></tr>
<tr><td>
<table width="100%" cellpadding="2" cellspacing="0" border="1">
<tr class="title3" align="center"><td width="20" height="25"> </td><td width="30"> </td><td width="350">标题</td><td width="120">发送时间</td><td width="70">发送者</td></tr>
<%
do while not rsMessage.eof
%>
<tr class="title2"><td> <img src="images/message<%=rsMessage("Message_Type")%>.gif"></td><td><img src="images/ftv2folderclosed.gif" height="22"></td><td> <a onclick="OpenMessage(<%=rsMessage("Message_ID")%>);" class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'"><%=rsMessage("Message_Title")%></a></td><td><%=rsMessage("Message_Date")%> <%=rsMessage("Message_Time")%></td><td><%=rsMessage("Employee_Name")%></td></tr>
<%
rsMessage.movenext
loop
%>
</table>
</td></tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -