📄 applygz.asp
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<html>
<head>
<title>申请跟踪</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="apply.js"></script>
<script language="JavaScript">
function checkform()
{
if (document.form.title.value=="")
{
alert("请输入要查询的关键字")
document.form.title.focus()
return false;
}
}
function delfile(td,kind){
if(confirm("您确定要删除该记录？")){
document.location="delsq.asp?id="+td+"&kind="+kind
}
}
</script>
<link rel="stylesheet" href="apply.css" type="text/css">
</head>
<!--#include file="checksql.asp"-->
<% set rs=server.createobject("adodb.recordset")
title=checksql(request("title"))
if session("type")="admin" then
sql="select flowid,handletype from applygz where title like '%"&title&"%' group by flowid,handletype order by flowid desc"
else
sql="select flowid,handletype from applygz where handleid='"&session("uid")&"' and title like '%"&querywords&"%' or handletype=8 group by flowid,handletype order by flowid desc"
end if
%>
<%
rs.open sql,conn,1,1
TSum=1
mypage=11
rs.pagesize=CINT(mypage)
PageNo=Clng(REQUEST("PageNo"))
if PageNo="" or PageNo=0 then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
if not rs.eof then
rs.absolutepage=PageNo
RowCount=rs.PageSize
nowrecord=0
TSum=INT(rs.RECORDCOUNT/Mypage*-1)*-1
end if
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<form name="form" method="POST" action="applygz.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="50">
<tr>
<td height="50" align="center"><img src="images/applygz.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1" height="26" bgcolor="#BADCFC">
<tr height=1>
<td colspan=6 bgColor="#66AAE3"></td>
</tr>
<tr>
<tr>
<td width="4%" align="right" valign="top"><img src="images/email15.gif" width="19" height="16"></td>
<td width="11%" class="applytitle">申请类型</td>
<td width="37%" class="applytitle" align="center"> 标 题</td>
<td width="26%" class="applytitle" align="center">审批流程</td>
<td width="10%" class="applytitle" align="center">申请时间</td>
<td width="7%" class="applytitle" align="center"> 状 态</td>
</tr>
<tr height=1>
<td colspan=6 bgColor="#66AAE3"></td>
</tr>
</table>
<%if rs.eof then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="26">
<tr>
<td align="center" class="f6wait" bgcolor="#F5FAFD">没有找到相应的内容</td>
</tr>
</table>
<%end if %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
for i=1 to mypage
if rs.eof then exit for
if rs("handletype")="1" then
set ptr=server.createobject("adodb.recordset")
sql2="select * from applymeeting where id="&rs("flowid")
ptr.open sql2,conn,1,1
listtitle=ptr("meetingname")
doneflag=ptr("status")
applytime=ptr("applytime")
ptr.close
select case doneflag
case 0
workstatus="<font class='applyundone'>待 办</font>"
case 1
workstatus="<font class='applydone'>通 过</font>"
case 2
workstatus="<font class='applyfail'>拒 绝</font>"
end select
sql2="select handlename,nextid from applygz where flowid="&rs("flowid")&" and handletype="&rs("handletype")&" order by handletime"
ptr.open sql2,conn,1,1
%>
<%m=i mod 2
if m=0 then
%>
<tr bgColor="#F5FAFD">
<%end if %>
<td height="28" align="center">
<a href="readmeeting.asp?flowid=<%=rs("flowid")%>" class="aapply">
会议申请</a>
<%
if trim(Session("type"))="admin" then
response.write "[<a href=javascript:delfile('"&rs("flowid")&"','1') class='aapply'>删 除</a>]"
end if
%> </td>
<td height="28" align="center" width="37%" class="applygz"> <a href="readmeeting.asp?flowid=<%=rs("flowid")%>" class="aapply">
<%
if len(listtitle)>17 then
listtitle=left(listtitle,15)&"…"
end if
listtitle=""&listtitle
response.write(listtitle)%>
</a> </td>
<td height="28" width="26%" class="applygz" align="left">
<%
handlename=ptr("handlename")
while not ptr.eof
response.write(handlename)
response.write("<img src='images/jiantou2.gif' width='12' height='11'>")
ptr.movenext
wend
if doneflag="0" then
ptr.moveprevious
nextid=ptr("nextid")
ptr.close
sql2="select name from userdep where uid='"&nextid&"'"
ptr.open sql2,conn,1,1
if ptr.eof then
nextname="用户已删除"
else
nextname=ptr("name")
end if
response.write("<font class=applyundone>"& nextname & "</font>")
ptr.close
else
ptr.close
response.write("办理完毕")
end if
%>
</td>
<td height="28" width="10%" class="applygz" align="center">
<%temp=applytime
t=instr(temp," ")
temp=left(temp,t-1)
response.write temp
%>
</td>
<td height="28" width="7%" align="center">
<%response.write(workstatus)%>
</td>
</tr>
<%end if
if rs("handletype")="2" then
set ptr=server.createobject("adodb.recordset")
sql2="select * from applyholiday where id="&rs("flowid")
ptr.open sql2,conn,1,1
listtitle=ptr("title")
doneflag=ptr("status")
applytime=ptr("applytime")
ptr.close
select case doneflag
case 0
workstatus="<font class='applyundone'>待 办</font>"
case 1
workstatus="<font class='applydone'>通 过</font>"
case 2
workstatus="<font class='applyfail'>拒 绝</font>"
end select
sql2="select handlename,nextid from applygz where flowid="&rs("flowid")&" and handletype="&rs("handletype")&" order by handletime"
ptr.open sql2,conn,1,1
%>
<%m=i mod 2
if m=0 then
%>
<tr bgColor="#F5FAFD">
<%end if %>
<td height="28" align="center">
<a href="readxiujia.asp?flowid=<%=rs("flowid")%>" class="aapply">
休假申请</a>
<%
if trim(Session("type"))="admin" then
response.write "[<a href=javascript:delfile('"&rs("flowid")&"','2') class='aapply'>删 除</a>]"
end if
%>
</td>
<td height="28" align="center" class="applygz" width="37%"> <a href="readxiujia.asp?flowid=<%=rs("flowid")%>" class="aapply">
<%
if len(listtitle)>17 then
listtitle=left(listtitle,15)&"…"
end if
listtitle=""&listtitle
response.write(listtitle)%>
</a></td>
<td height="28" class="applygz" align="left">
<%
handlename=ptr("handlename")
while not ptr.eof
response.write(handlename)
response.write("<img src='images/jiantou2.gif' width='12' height='11'>")
ptr.movenext
wend
if doneflag="0" then
ptr.moveprevious
nextid=ptr("nextid")
ptr.close
sql2="select name from userdep where uid='"&nextid&"'"
ptr.open sql2,conn,1,1
if ptr.eof then
nextname="用户已删除"
else
nextname=ptr("name")
end if
response.write("<font class=applyundone>"& nextname & "</font>")
ptr.close
else
ptr.close
response.write("<font color=''>办理完毕</font>")
end if
%>
</td>
<td height="28" class="applygz" align="center" width="10%">
<%temp=applytime
t=instr(temp," ")
temp=left(temp,t-1)
response.write temp
%>
</td>
<td height="28" width="7%" align="center">
<% response.write(workstatus)%>
</td>
</tr>
<%end if %>
<%if rs("handletype")="3" then
set ptr=server.createobject("adodb.recordset")
sql2="select * from applybusiness where id="&rs("flowid")
ptr.open sql2,conn,1,1
if not ptr.eof then
listtitle=ptr("title")
doneflag=ptr("status")
applytime=ptr("applytime")
end if
ptr.close
select case doneflag
case 0
workstatus="<font class='applyundone'>待 办</font>"
case 1
workstatus="<font class='applydone'>通 过</font>"
case 2
workstatus="<font class='applyfail'>拒 绝</font>"
end select
sql2="select handlename,nextid from applygz where flowid="&rs("flowid")&" and handletype="&rs("handletype")&" order by handletime"
ptr.open sql2,conn,1,1
%>
<!--
外出申请
-->
<%m=i mod 2
if m=0 then
%>
<tr bgColor="#F5FAFD">
<%end if %>
<td height="28" align="center">
<a href="readbusiness.asp?flowid=<%=rs("flowid")%>" class="aapply">
外出申请</a>
<%
if trim(Session("type"))="admin" then
response.write "[<a href=javascript:delfile('"&rs("flowid")&"','3') class='aapply'>删 除</a>]"
end if
%>
</td>
<td height="28" align="center" class="applygz" width="37%"> <a href="readbusiness.asp?flowid=<%=rs("flowid")%>" class="aapply">
<%
if len(listtitle)>17 then
listtitle=left(listtitle,15)&"…"
end if
listtitle=""&listtitle
response.write(listtitle)%>
</a></td>
<td height="28" class="applygz" align="left">
<%
handlename=ptr("handlename")
while not ptr.eof
response.write(handlename)
response.write("<img src='images/jiantou2.gif' width='12' height='11'>")
ptr.movenext
wend
if doneflag="0" then
ptr.moveprevious
nextid=ptr("nextid")
ptr.close
sql2="select name from userdep where uid='"&nextid&"'"
ptr.open sql2,conn,1,1
if ptr.eof then
nextname="用户已删除"
else
nextname=ptr("name")
end if
response.write("<font class=applyundone>"& nextname & "</font>")
ptr.close
else
ptr.close
response.write("<font color=''>办理完毕</font>")
end if
%>
</td>
<td height="28" class="applygz" align="center" width="10%">
<%temp=applytime
t=instr(temp," ")
temp=left(temp,t-1)
response.write temp
%>
</td>
<td height="28" width="7%" align="center">
<% response.write(workstatus)%>
</td>
</tr>
<%end if %>
<%if rs("handletype")="4" then
set ptr=server.createobject("adodb.recordset")
sql2="select * from applymoney where id="&rs("flowid")
ptr.open sql2,conn,1,1
if not ptr.eof then
listtitle=ptr("title")
doneflag=ptr("status")
applytime=ptr("applytime")
end if
ptr.close
select case doneflag
case 0
workstatus="<font class='applyundone'>待 办</font>"
case 1
workstatus="<font class='applydone'>通 过</font>"
case 2
workstatus="<font class='applyfail'>拒 绝</font>"
end select
sql2="select handlename,nextid from applygz where flowid="&rs("flowid")&" and handletype="&rs("handletype")&" order by handletime"
ptr.open sql2,conn,1,1
%>
<!--
资金申请
-->
<%m=i mod 2
if m=0 then
%>
<tr bgColor="#F5FAFD">
<%end if %>
<td height="28" align="center">
<a href="readmoney.asp?flowid=<%=rs("flowid")%>" class="aapply">
资金申请</a>
<%
if trim(Session("type"))="admin" then
response.write "[<a href=javascript:delfile('"&rs("flowid")&"','4') class='aapply'>删 除</a>]"
end if
%>
</td>
<td height="28" align="center" class="applygz" width="37%"> <a href="readmoney.asp?flowid=<%=rs("flowid")%>" class="aapply">
<%
if len(listtitle)>17 then
listtitle=left(listtitle,15)&"…"
end if
listtitle=""&listtitle
response.write(listtitle)%>
</a></td>
<td height="28" class="applygz" align="left">
<%
handlename=ptr("handlename")
while not ptr.eof
response.write(handlename)
response.write("<img src='images/jiantou2.gif' width='12' height='11'>")
ptr.movenext
wend
if doneflag="0" then
ptr.moveprevious
nextid=ptr("nextid")
ptr.close
sql2="select name from userdep where uid='"&nextid&"'"
ptr.open sql2,conn,1,1
if ptr.eof then
nextname="用户已删除"
else
nextname=ptr("name")
end if
response.write("<font class=applyundone>"& nextname & "</font>")
ptr.close
else
ptr.close
response.write("<font color=''>办理完毕</font>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -