📄 tongzhi.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="3;tongzhifabu.asp">
<link href="css/MainBorder.css" rel="stylesheet" type="text/css">
<title>信息发布</title>
<style type="text/css">
<!--
table {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #000000;
font-style: normal;
text-align: center;
}
#title {
font-size: 24px;
}
#di{
text-align:right;
font-family:Arial, Helvetica, sans-serif;
font-size:12px
}
.style2 {font-family: "华文中宋", "宋体"; }
.STYLE3 {color: #FFFFFF}
-->
</style>
</head>
<body>
<!--#include file="Connections/auto.asp" -->
<%
set RS = server.CreateObject("ADODB.Recordset")
set RS1 = server.CreateObject("ADODB.Recordset")
Sname = "SELECT Login.Part, Message.Position, tongzhi.biaoti, tongzhi.faburen, tongzhi.fbshj, tongzhi.quanxian, Message.Name,tongzhi.cishu, tongzhi.id FROM tongzhi RIGHT JOIN (Message INNER JOIN Login ON Message.ID=Login.ID) ON tongzhi.faburen=Message.ID WHERE (((tongzhi.faburen)=Message.ID) And ((tongzhi.faburen)='"&Session("Rname")&"') And ((Login.ID)=Message.ID)) ORDER BY tongzhi.fbshj DESC;"
%>
<table width="200" border="0">
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<table width="600" border="0" cellspacing="1" bgcolor="#666699" cellpadding="0" align="center">
<tr>
<th height="29" colspan="5" ><div class="style2" id="title" ><span class="STYLE3"><font size="3">已发布通知</font></span></strong></div></th>
</tr>
<tr>
<td width="43" height="25" bgcolor="#FFFFFF">权限</td>
<td width="233" bgcolor="#FFFFFF">标题</td>
<td width="57" bgcolor="#FFFFFF">浏览次数</td>
<td width="172" bgcolor="#FFFFFF" >发布时间</td>
<td width="89" bgcolor="#FFFFFF">操作</td>
</tr>
<%
RS.open Sname , CN,1,3
if not RS.eof then
RS.movefirst
RS.pagesize=5
page=CLng(Request("page"))
if page<1 then page=1
RS.absolutepage=page
for i=1 to RS.pagesize
if RS.eof then
exit for
end if
if strcomp(RS("quanxian"),"gongsi")=0 then
quanxian = "公司"
else
quanxian = "本部"
end if
%>
<!--#include file="Connections/xuanze.asp" -->
<tr><td height="30" bgcolor="#FFFFFF">
<%response.Write(quanxian)%>
</td><td bgcolor="#FFFFFF"><a href="#" onClick="JavaScript:window.open('tongzhinr.asp?ID=<%=RS("ID") %>','','width=570,height=250,top=150,left=150')">
<%response.Write(RS("biaoti"))%>
</a></td><td bgcolor="#FFFFFF">
<%response.write(RS("cishu"))%>
</td><td bgcolor="#FFFFFF">
<%response.Write(RS("fbshj"))%>
</td>
<td bgcolor="#FFFFFF"><input name="Submit2" type="button" class="s04" onClick="JavaScript:window.open('tongzhishanchu.asp?ID=<%=RS("ID") %>','','width=200,height=150,top=150,left=350')" value="删除通知">
</td></tr>
<%
if not RS.eof then
RS.movenext
else
exit for
end if
next
'RS.close
%>
<tr >
<th height="27" colspan="5">
<div id="di"><input name="addtongzhi" type="button" class="s04" id="addtongzhi" onClick="JavaScript:window.open('tongzhitianjia.asp','','width=570,height=250,top=150,left=150')" value="添加通知">
<% if page<>1 then %>当前<%=page%>页<a href=<%=path%>?page=1 >第一页</a>
<a href=<%=path%>?page=<%=(page-1)%>>上一页</a>
<%end if
if page<>RS.pagecount then %>当前<%=page1%>页
<a href=<%=path%>?page=<%=(page+1)%> >下一页</a>
<a href=<%=path%>?page=<%=RS.pagecount%> >最后一页</a>
<%end if %>
</div></th>
</tr>
<%
else
%>
<tr>
<td height="22" colspan='5' bgcolor="#FFFFFF">没有已发布的通知</td>
</tr>
<%
RS.close
%>
<tr >
<th height="21" colspan="5" bgcolor="#FFFFFF">
<div id="di"><input name="addtongzhi" type="button" class="s04" id="addtongzhi" onClick="JavaScript:window.open('tongzhitianjia.asp','','width=570,height=250,top=150,left=150')" value="添加通知">
</div></th>
</tr>
<%
end if
%>
</table>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -