📄 spfile.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc" -->
<!--#include file ="auto.asp"-->
<!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 {font-family: "华文中宋", "宋体"; color: #FFFFFF; }
.STYLE4 {color: #FFFFFF}
-->
</style>
</head>
<body>
<%
set RS = server.CreateObject("ADODB.Recordset")
Sname = "SELECT * FROM sfile WHERE fjr='"&Session("Rname")&"' ORDER BY fbshj"
RS.open Sname , CN,1,3
%>
<br>
<br>
<%
set RS = server.CreateObject("ADODB.Recordset")
Sname = "SELECT * FROM sfile WHERE zhuangtai=0 and spr='"&Session("Rname")&"' ORDER BY fbshj "
RS.open Sname , CN,1,3
%>
<table width="611" border="0" cellspacing="1" bgcolor="#336699" cellpadding="0" align="center">
<tr>
<th height="26" colspan="7" bgcolor="#666699"><div class="STYLE3" id="title" ><font size="3">待批复公文</font></div></th>
</tr>
<tr>
<td width="58" height="23" bgcolor="#FFFFFF">公文编号</td>
<td width="107" bgcolor="#FFFFFF">标题</td>
<td width="56" bgcolor="#FFFFFF">发件人</td>
<td width="73" bgcolor="#FFFFFF" >上报时间</td>
<td width="108" bgcolor="#FFFFFF">状态</td>
<td width="87" bgcolor="#FFFFFF">批复时间</td>
<td width="114" bgcolor="#FFFFFF">操作</td>
</tr>
<% if not RS.eof then
sqlstr="select Name from Message where ID='" & RS("fjr") &"'"
set rs4=CN.execute(sqlstr)
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
%>
<tr><td height="30" bgcolor="#FFFFFF">
<%response.Write(RS("id"))%>
</td><td bgcolor="#FFFFFF"><a href="#" onClick="JavaScript:window.open('filenr.asp?ID=<%=RS("id") %>','','width=570,height=250,top=150,left=150')">
<%response.Write(RS("biaoti"))%>
</a></td><td bgcolor="#FFFFFF">
<%response.write(rs4("Name"))%>
</td><td bgcolor="#FFFFFF">
<%response.Write(RS("fbshj"))%>
</td>
<td bgcolor="#FFFFFF">
<% if RS("zhuangtai")=true then
response.Write("已审批")
else
%>
<input name="Submit2" type="button" class="s04" onClick="JavaScript:window.open('filesp.asp?ID=<%=RS("id") %>','','width=500,height=250,top=150,left=350')" value="公文批复">
<%
end if
%> </td>
<td bgcolor="#FFFFFF"><%response.Write(RS("spshj"))%></td>
<td bgcolor="#FFFFFF"><input name="Submit2" type="button" class="s04" onClick="JavaScript:window.open('filedel.asp?ID=<%=RS("id") %>','','width=200,height=100,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="7" bgcolor="#666699">
<div id="di">
<% if page<>1 then %>
<span class="STYLE4"> 当前</span><%=page%><span class="STYLE4">页</span><a href=<%=path%>?page=1 >第一页</a>
<a href=<%=path%>?page=<%=(page-1)%>>上一页</a>
<%end if
if page<>RS.pagecount then %>
<span class="STYLE4">当前</span><%=page1%><span class="STYLE4">页</span> <a href=<%=path%>?page=<%=(page+1)%> >下一页</a>
<a href=<%=path%>?page=<%=RS.pagecount%> >最后一页</a>
<%end if %>
</div></th>
</tr>
<%rs4.close
else
%>
<tr>
<td height="22" colspan='7' bgcolor="#FFFFFF">没有待审公文</td>
</tr>
<%
RS.close
%>
<%
end if
%>
</table>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -