📄 xffile.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;XFfile.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>
<%
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>
<table width="674" border="0" cellspacing="1" bgcolor="#336699" cellpadding="0" align="center">
<tr>
<th height="29" colspan="7" bgcolor="#666699"><div class="style2 STYLE3" id="title" ><font size="3">已上报公文</font></div></th>
</tr>
<tr>
<td width="57" height="27" bgcolor="#FFFFFF">公文编号</td>
<td width="105" bgcolor="#FFFFFF">标题</td>
<td width="57" bgcolor="#FFFFFF">审批人</td>
<td width="128" bgcolor="#FFFFFF" >上报时间</td>
<td width="61" bgcolor="#FFFFFF">状态</td>
<td width="125" bgcolor="#FFFFFF">批复时间</td>
<td width="133" bgcolor="#FFFFFF">操作</td>
</tr>
<% if not RS.eof then
set rs3=nothing
sqlstr="select Name from Message where ID='" & RS("spr") &"'"
set rs3=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=580,height=350,top=150,left=150')">
<%response.Write(RS("biaoti"))%>
</a></td><td bgcolor="#FFFFFF">
<%response.write(rs3("Name"))%>
</td><td bgcolor="#FFFFFF">
<%response.Write(RS("fbshj"))%>
</td>
<td bgcolor="#FFFFFF">
<%
if RS("zhuangtai")=true then
response.Write("已批示")
else
response.write("未批示")
end if
%>
</td>
<td bgcolor="#FFFFFF"><%response.Write(RS("spshj"))%></td>
<td bgcolor="#FFFFFF">
<%
if RS("zhuangtai")=1 then
response.Write"无权删除"
else
%>
<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="删除公文">
<%
end if
%>
</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"><input name="fileadd" type="button" class="s04" id="addtongzhi" onClick="JavaScript:window.open('fileadd.asp','','width=620,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>
<% rs3.close
else
RS.close
%>
<tr>
<td height="22" colspan='7' bgcolor="#FFFFFF">没有已上报公文</td>
</tr>
<tr >
<th height="21" colspan="7" bgcolor="#FFFFFF">
<div id="di"><input name="fileadd" type="button" class="s04" id="fileadd" onClick="JavaScript:window.open('fileadd.asp','','width=620,height=250,top=150,left=150')" value="上报新公文">
</div></th>
</tr>
<%
end if
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -