📄 news_readlist_more.asp
字号:
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<% usercode=session("usercode")
i=Request.QueryString ("i")
dim objrst,strsql(3),no,cont,name(3)
sql="and 发送日期<='"&date&"' and 有效日期>='"&date&"' order by 发送日期 desc"
strsql(1)="select * from xt_Vd_usermessage where 发送类别='全体'"+sql
strsql(2)="select * from xt_Vd_usermessage where 发送类别='部门'and 部门编码='" &departcode&"'"+sql
strsql(3)="select * from xt_Vd_usermessage where 发送类别='个人'and 用户编码='" &usercode&"'"+sql
name(1)="全体"
name(2)="部门"
name(3)="个人"
set objrst=server.CreateObject ("adodb.recordset")
objrst.CursorType =3
objrst.CursorLocation =3
objrst.LockType =2
objrst.Open strsql(i),strconn
no=0
cont=objrst.recordcount
%>
<html>
<head>
<title>消息中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="CssLib/Cssbutton.css">
<style>
td{font-size:9pt}
A:link
{
COLOR: #000000;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
A:visited
{
COLOR: #000000;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
A:active
{
COLOR: #000000;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
A:hover
{
COLOR: blue;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#FFFFFF">
<tr>
<td height="42" width="30%"><img src="images/title_news.gif" width="227" height="38"></td>
<td colspan="3" height="42" valign="bottom" width="70%">您共有：<%=name(i)%>新闻
<%if objrst.eof then response.write "0" else response.write cont end if%>
条。 </td>
</tr>
<tr>
<td colspan="4">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="48" height="20" align="center" bgcolor="#0080C0" bordercolor="#FFFFFF">
<div align="center"><font color="#FFFFFF">序号</font></div>
</td>
<td width="34" height="20" align="center" bgcolor="#0080C0" bordercolor="#FFFFFF"><font color="#FFFFFF">附件</font></td>
<td width="399" height="20" bgcolor="#0080C0" bordercolor="#FFFFFF" align="left">
<font color="#FFFFFF"> 消 息 标 题</font></td>
<td width="141" height="20" bgcolor="#0080C0" bordercolor="#FFFFFF" align="left">
<font color="#FFFFFF">发送日期</font></td>
<td width="153" height="20" bgcolor="#0080C0" bordercolor="#FFFFFF" align="left">
<font color="#FFFFFF">发送者</font></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="20%" bgcolor="#CCCCCC"> <font color="#FFFFFF"> </font><b><%=name(i)%>新闻
<%if objrst.eof then response.write "0" else response.write cont end if%>
条</b></td>
<td width="79%"><img src="../public/images/title.gif" width="20" height="18"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bordercolor="#FFFFFF">
<%if objrst.eof then %>
<tr bgcolor="#EAEAEA">
<td colspan="5" height="20"> 无<%=name(i)%>消息。 </td>
</tr>
<%else
for i=1 to cont
no=no+1
%>
<tr bgcolor="#EAEAEA">
<td width="48" height="20" align="center"><img src="../public/images/lastpost.gif" width="11" height="11">
<%=no%> </td>
<td width="37" height="20" align="center">
<%if objrst("附件号")<>"0" then %>
<img src="images/fj.gif" width="16" height="16">
<%end if%>
</td>
<td width="397" height="20"> <a href="javascript:open1('<%=objrst("消息题名")%>','<%=cstr(objrst("发送日期"))%>')">
<%=objrst("消息题名")%></a></td>
<td width="142" height="20"> <%=objrst("发送日期")%></td>
<td width="155" height="20"><%=objrst("发送人姓名")%></td>
</tr>
<%objrst.movenext
next
objrst.close
set objrst=nothing
end if%>
</table>
</body>
</html>
<script language=javascript>
function open1(title,date)
{
window.open("news_ContentDisplay.asp?newstitle="+title+"&senddate="+date,"新闻内容","height=410,width=500,toolbar=no,menubar=no,scrollbars=yes,resizable=no,status=no,location=no")
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -