applygz.asp

功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.

					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")="5" then

						set ptr=server.createobject("adodb.recordset")
						 sql2="select * from applygoods 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="readgoods.asp?flowid=<%=rs("flowid")%>" class="aapply"> 
	  购物申请</a>
	  <%
	  if trim(Session("type"))="admin" then
	    response.write "[<a href=javascript:delfile('"&rs("flowid")&"','5') class='aapply'>删 除</a>]"
	  end if
	  %>	
	  </td>
      <td height="28" align="center" class="applygz" width="37%"> <a href="readgoods.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")="6" then
						set ptr=server.createobject("adodb.recordset")
						 sql2="select * from applycar 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="readcar.asp?flowid=<%=rs("flowid")%>" class="aapply"> 
	  用车申请</a>
	  <%
	  if trim(Session("type"))="admin" then
	    response.write "[<a href=javascript:delfile('"&rs("flowid")&"','6') class='aapply'>删 除</a>]"
	  end if
	  %>	
	  </td>
      <td height="28" align="center" class="applygz" width="37%"> <a href="readcar.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")="7" then

						set ptr=server.createobject("adodb.recordset")
						 sql2="select * from applyreceipt 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="readreceipt.asp?flowid=<%=rs("flowid")%>" class="aapply"> 
	  报销申请</a>
	  <%
	  if trim(Session("type"))="admin" then
	    response.write "[<a href=javascript:delfile('"&rs("flowid")&"','7') class='aapply'>删 除</a>]"
	  end if
	  %>	
	  </td>
      <td height="28" align="center" class="applygz" width="37%"> <a href="readreceipt.asp?flowid=<%=rs("flowid")%>" class="aapply"> 
        <%
				  if len(listtitle)>15 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")="8" then
						set ptr=server.createobject("adodb.recordset")
						 sql2="select * from phonerecord where id="&rs("flowid")
						ptr.open sql2,conn,1,1
						if not ptr.eof then
						listtitle=ptr("title")
						doneflag=ptr("status")
						applytime=ptr("writetime")
						writename=ptr("writename")
						topeople=ptr("writeid")&";"&ptr("deallist")
						end if
						ptr.close
						
                        showphone="0"
						while topeople<>""
                            postion=instr(topeople,";")
                            nextpeople=left(topeople,postion-1)
                            if postion=len(topeople) then
                               topeople=""
                             else
                             topeople=mid(topeople,postion+1)
                             end if
							 if nextpeople=trim(session("uid")) then showphone="1"
						 wend
		if showphone="1" then
						select case doneflag
						case 0
						workstatus="<font class='applyundone'>待 办</font>"
						case else
						workstatus="<font class='applydone'>办 结</font>"
						end select
						sql2="select userlist.name from phoneyj,userlist where phoneyj.flowid="&rs("flowid")&" and phoneyj.uid=userlist.uid and phoneyj.status=1 order by phoneyj.donetime"
						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="readphoneyj.asp?flowid=<%=rs("flowid")%>" class="aapply">电话记录单</a>	  
		<%
	  if trim(Session("type"))="admin" then
	    response.write "[<a href=javascript:delfile('"&rs("flowid")&"','8') class='aapply'>删 除</a>]"
	  end if
	  %>	
		</td>
      <td height="28" align="center" class="applygz" width="37%">
	  <a href="readphoneyj.asp?flowid=<%=rs("flowid")%>" class="aapply"> 
        <%
				  if len(listtitle)>15 then
				  listtitle=left(listtitle,15)&"…"
				  end if
				  listtitle=""&listtitle
				  response.write(listtitle)%>
       </a></td>
      <td height="28" class="applygz" align="left"> 
        <%
					response.write(writename)
					response.write("<img src='images/jiantou2.gif' width='12' height='11'>")
					while not ptr.eof
					response.write(ptr("name"))
					response.write("<img src='images/jiantou2.gif' width='12' height='11'>")
					ptr.movenext
					wend
					ptr.close
					 
					 if doneflag="0" then
					 sql2="select userlist.name from phoneyj,userlist where flowid="&rs("flowid")&" and phoneyj.uid=userlist.uid and status=0"
					  ptr.open sql2,conn,1,1
					  while not ptr.eof
					  response.write("<font class=applyundone>"& ptr("name") & "</font>")
					  response.write "&nbsp;&nbsp;"
					  ptr.movenext
					  wend
					  ptr.close
					else
					   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 'for showphone
	end if %>
    <%
			   rs.movenext
			next
					%>
  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="26" bgcolor="#BADCFC">
    <tr> 
      <td width="51%" class="aapply"> 
        <div align="right"> 
          <% 
					if (PageNo*mypage-mypage)>0 then
		   PrwePage=PageNo-1   
	   response.write "<a href='applygz.asp?title="&title&"&PageNo="&PrwePage&"' class='aapply'>上一页</a>&nbsp" 
	   else
	   response.write "上一页&nbsp"
	   end if
	   if (PageNO*mypage)<rs.recordcount then
	   NextPage=PageNo+1   
	   response.write"&nbsp;<a href='applygz.asp?title="&title&"&PageNo="&NextPage&"' class='aapply'>下一页</a>"  
	   else
	     response.write"&nbsp;下一页" 
		 end if
		  
    %>
          页次:<font color="#ff5bad"><%=PageNo%></font>/<%=tsum%>页 &nbsp;查询: 
          <input type="text" name="title" size="15" tableindex=1 maxlength="15" value="<%=request("title")%>">
          &nbsp; </div>
      </td>
      <td width="12%" valign="bottom" align="center"> 
        <input type="image" name="find3" value="查 找" src="images/findgif.gif" width="71" height="19" alt="查找" onClick="return checkform();">
      </td>
      <td width="37%" valign="bottom"> 
        <input type="image" name="find22" onClick="history.go(-1);return false;" src="images/fanhuigif.gif" alt="返回">
      </td>
    </tr>
  </table>
</form>
<!--#include file="close.asp"-->
</body>
</html>