📄 msg.asp

📁 一个比较完整的企业erp系统
💻 ASP
字号:
<!--#include file="../config2.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
'查询条件
Message_Title = request("Message_Title")
From_Employee_Name = request("From_Employee_Name")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
	<title>Untitled</title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<LINK rel="stylesheet" type="text/css" href="../style.css">
</head>
<body>
<form name="frm" action="msg.asp" method="post">
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr>
	<td width="97%">◆<a href="msg_new.asp" target="foot">发送新消息</a></td>
	<td width="1%"><nobr>消息查找→发送人姓名：</nobr></td>
	<td width="1%"><input type="text" name="From_Employee_Name" value="<%= From_Employee_Name %>" size="20" maxlength="20"></td>
	<td width="1%"><input type="submit" name="Submit" value="快速查询"></td>
</tr>
</table>
<hr size=1>
<table bgcolor="#FFFFFF" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr bgcolor="#EFEFEF">
	<td>状态</td>
	<td>发送人</td>
	<td>标题</td>
	<td>发送时间</td>
	<td>操作</td>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select * from Employee_Message where To_Employee_ID = " & Session("Employee_ID")
'用户条件
if IsNot(Message_Title,"s") then sql = sql & " and Message_Title like '%" & Message_Title & "%' "
if IsNot(From_Employee_Name,"s") then sql = sql & " and From_Employee_Name like '%" & From_Employee_Name & "%' "
sql = sql & " order by Message_ID DESC"
'response.write sql
rs.open sql,conn,1
if rs.eof then
	response.write "<tr><td colspan=18>暂时没有记录</td></tr></table>"
	response.end
end if
PageSize = request.Cookies("PageSize")
if not IsNot(PageSize,"n") then PageSize = DefaultPageSize
rs.pagesize = PageSize
PageCount = rs.PageCount
PageNo = request("PageNo")
if PageNo = "" or CInt(PageNo) < 1 then PageNo = 1
if CInt(PageNo) > PageCount then PageNo = PageCount
rs.absolutepage = PageNo

i = 0
while not rs.eof and i < rs.pagesize
	f_Message_ID = rs("Message_ID")
	f_Message_Status = rs("Message_Status")
	f_From_Employee_ID = rs("From_Employee_ID")
	f_From_Employee_Name = rs("From_Employee_Name")
	f_Message_Title = rs("Message_Title")
	f_Message_Time = rs("Message_Time")
	if i mod 2 = 0 then
		response.write "<tr>"
	else
		response.write "<tr bgcolor=#EFEFEF>"
	end if
	%>
	<td>
	<%
	if f_Message_Status then
		response.write "<font color=#008800><strong>√</strong></font>"
	else
		response.write "<font color=#FF0000><strong>×</strong></font>"
	end if
	%>
	&nbsp;
	</td>
	<td><a href="detail.asp?Employee_ID=<%= f_From_Employee_ID %>" target="foot"><%= f_From_Employee_Name %></a>&nbsp;</td>
	<td><a href="msg_detail.asp?Message_ID=<%= f_Message_ID %>" target="foot"><%= f_Message_Title %></a>&nbsp;</td>
	<td><%= f_Message_Time %>&nbsp;</td>
	<td><a href="msg_del.asp?Message_ID=<%= f_Message_ID %>" target="foot">删除</a>&nbsp;</td>
	</tr>
	<%
	i = i + 1
	rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<tr bgcolor="#EFEFEF">
	<td colspan="12">
	<a href="msg.asp?PageNo=1&Message_Title=<%= Message_Title %>&From_Employee_Name=<%= From_Employee_Name %>"><font face="Webdings">5</font>第一页</a>
	<a href="msg.asp?PageNo=<%= PageNo - 1 %>&Message_Title=<%= Message_Title %>&From_Employee_Name=<%= From_Employee_Name %>"><font face="Webdings">3</font>上一页</a>
	<a href="msg.asp?PageNo=<%= PageNo + 1 %>&Message_Title=<%= Message_Title %>&From_Employee_Name=<%= From_Employee_Name %>"><font face="Webdings">4</font>下一页</a>
	<a href="msg.asp?PageNo=<%= PageCount %>&Message_Title=<%= Message_Title %>&From_Employee_Name=<%= From_Employee_Name %>"><font face="Webdings">4</font>下一页</a>
	</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明

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