📄 readshouwen.asp
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<html>
<head>
<title>办公自动化（OA）</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript>
function delfile(td){
if(confirm("您确定要删除该公文吗？")){
document.location="delsw.asp?id="+td
}
}
</script>
<link rel="stylesheet" href="apply.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="40">
<tr height="25">
<td align="center" class="title">[收文跟踪]<%=request("title")%></td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<%set ptr=server.createobject("adodb.recordset")
sql="select * from swflow where flowid="&request("flowid")&" order by handletime"
ptr.open sql,conn,1,1
%>
<tr height=1>
<td bgcolor="#A7BAE4" height="1" colspan="4"></td>
</tr>
<tr height="25" bgColor="#D4DEF4" align="center">
<td height="25" colspan="4" >
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="40"> </td>
<td width="120" align="center">
<a href="flowlist.asp" class="aapply">转到发文流程</a></td>
<td width="128" align="center">
<a href="shouwenlist.asp" class="aapply">转到收文流程</a></td>
<td width="74" align="center">
<a href="#" onClick="window.print()" class="aapply">打 印</a></td>
<td width="539">
<%
if trim(Session("type"))="admin" then
response.write "<a href=javascript:delfile('"&request("flowid")&"') class='aapply'>删 除</a>"
response.write " "
end if
%>
<a href="#" onClick="history.go(-1)" class="aapply">返 回</a></td>
</tr>
</table>
</td>
</tr>
<tr height=1>
<td bgcolor="#A7BAE4" height="1" colspan="4"></td>
</tr>
<tr height="25" bgColor="#E7ECF7" align="center">
<td height="25" > 办 理 人 </td>
<td height="25" > 流程步骤 </td>
<td height="25" > 办理时间 </td>
<td height="25" > 办理意见 </td>
</tr>
<tr height=1>
<td bgColor="#D6E1F8" height="1" colspan="4"></td>
</tr>
<tr height="1">
<td bgcolor="#ffffff" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<%if ptr.eof then
response.write "<tr align='center'><td colspan=4 class='f6wait'>改记录已经被删除,请与管理员联系！</td></tr>"
else
while not ptr.eof %>
<tr height="25" bgcolor="#F5FAFD">
<td height="25" width="20%" class="applygz">
<div align="center"><%=ptr("handlename")%></div>
</td>
<td height="25" width="17%" class="applygz">
<div align="center">
<%
select case ptr("handletype")
case 0
response.write("拟办完毕")
case 1
response.write("批办完毕")
case 2
response.write("转发完毕")
case 3
response.write("承办完毕")
end select
%>
</div>
</td>
<td height="25" width="23%" class="applygz">
<div align="center"><%=ptr("handletime")%></div>
</td>
<td height="25" width="40%" class="applygz">
<div align="center"><%=ptr("remark")%></div>
</td>
</tr>
<tr height="1">
<td bgColor="#D6E1F8" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<%ptr.movenext
wend
if request("status")="0" then
%>
<tr height="25" bgColor="#F5FAFD" align="center">
<%ptr.moveprevious
nextpeople=ptr("nextid")
if nextpeople<>"" then
num=instr(1,nextpeople,";")
if num=0 then
nextpeople=nextpeople
else
nextpeople=left(nextpeople,num-1)
end if
set obj=server.createobject("adodb.recordset")
sql3="select name from userdep where uid='"&nextpeople&"'"
obj.open sql3,conn,1,1
if obj.eof then
nextpeople="用户已删除"
else
nextpeople=obj("name")
end if
obj.close
end if
%>
<td height="25" width="20%" class=f6wait> <%=nextpeople%> </td>
<td height="25" width="17%" class=f6wait>
<%
select case ptr("nexttype")
case 0
response.write("待拟办")
case 1
response.write("待批办")
case 2
response.write("待转发")
case 3
response.write("待承办")
end select
%>
</td>
<td height="25" width="23%" class="f6wait"> 待 办 </td>
<td height="25" width="40%" class=f6wait> 待 办 </td>
</tr>
<%end if
end if
%>
<tr height="1">
<td bgColor="#D6E1F8" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
</table>
<%
ptr.close
set ptr=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -