func_accreditlist.asp

企业办公简单管理系统,可以发布信息以及论坛

<SCRIPT LANGUAGE="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore)
	{ //v3.0
	  	eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
	  	if (restore) selObj.selectedIndex=0;
	}
	
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%


dim sumcount


set rs = Server.CreateObject("ADODB.Recordset")


sql="select distinct a.id,b.name,c.deptname,d.stationname,a.intime from cci_oa_accredit a,cci_user b,cci_dept c,cci_station d where b.deptid=c.id and a.userid=b.id and b.stationid=d.id order by a.intime desc"

Rs.Open Sql,connObj,1,1
sumcount=rs.recordcount
%>				
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
        <tr> 
		
    <th height="24" align="center"> <b><%=site_title%>授权书浏览</b> </th>
        </tr>
      
        <tr> 
          <td  align="center" valign="top" bgcolor="#FFFFFF"> 
               
             <table width="100%" cellpadding=1 cellspacing=1 class=tableborder1>
              <tr align="center" height=25> 
                
          <td  width=100 class=TopLighNav>姓名</td>
  	      <td width="120"  class=TopLighNav>部门</td>
          <td width="120" class=TopLighNav>职务</td>
		  <td class=TopLighNav>授权时间</td>
              </tr>
              <%
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 5
					Rs.pagesize = page_size
					page_count = Rs.pagecount
					Page = Request.QueryString("page")
					If Isnull(Page) or (Not Isnumeric(Page)) Then
						aPage = 1
					Else
						aPage = Cint(page)
						If aPage < 1 Then
							aPage = 1
						ElseIf aPage > Cint(page_count) Then
							aPage = page_count
						End If
					End If
					Rs.Absolutepage = aPage
					Ars = Rs.Getrows(page_size)
			 
					For i = 0 To Ubound(Ars,2)
					'style="cursor:hand" onClick="showtable(table<%=Ars(0,i) style="display: none"
				%> 
              <tr bgcolor=#FFFFFF align="center"  height= 20> 
                <td><a href=accreditlist.asp?selectid=<%=ars(0,i)%>><%=ars(1,i)%></a></td>
                <td> <% = Ars(2,i) %> </td>
		<td > <% = Ars(3,i) %> </td>
		<td > <% = formatdatetime(ars(4,i),1) %> </td>
	      </tr>
              <%
				Next
			Else
				Response.Write("<tr><td bgcolor=#FFFFFF align=center colspan=4>目前没有纪录任何授权书!</td></tr>")
			End If
			rs.close
							
				%>
            </table>
			
                </td>
              </tr>
                <tr bgcolor="#FFFFFF"><form name="form1"> 
                  <td align="center" height="20"> 
                    <%
						If sumcount > 0 Then
					%>
                            [共有 
                            <% = sumcount %>
                            条记录 页: 
                            <% = aPage %>
                            / 
                            <% = page_count %>
                            ] 
<%
	if Cint(aPage) > 1 then	
%>
                            [<a href="accreditlist.asp?page=<% = aPage - 1 %>">上一页</a>] 
<%
	else
	response.write "[上一页]"
	end if
	if (Cint(aPage) < Cint(page_count)) then
%>
                            [<a href="accreditlist.asp?page=<% = aPage + 1 %>">下一页</a>] 
<%
	else
	response.write "[下一页]"
	end if
%>
                            跳到
							<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%
		For i = 1 to page_count
		If i = aPage Then			
%>
		<option value="accreditlist.asp?page=<% = i %>" selected><% = i %></option>
<%
		else
%>
		<option value="accreditlist.asp?page=<% = i %>"><% = i %></option>
<%
		End If
		Next
%>
                            </select>页
<%
	Else
	Response.Write("&nbsp;")
	End If
%> 
                  </td></form>
                </tr>
             
          
      </table>

<%
if request("selectid")<>"" then
 	sql="select a.intime,a.Bank,a.BankCard,a.theName,a.Account,b.name,c.deptname,d.stationname from cci_oa_accredit a,cci_user b,cci_dept c,cci_station d where b.deptid=c.id and a.userid=b.id and b.stationid=d.id and a.id=" & request("selectid")
	rs.open sql,connobj,1,1
	if rs.eof then
		rs.close
		response.Redirect "message.asp?rediurl=defaultA.asp&msgurl=首页&msginfo=没有找到相关信息!"
	end if	
%> 
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>

    <tr > 
      <th height="25" colspan="6" align="center" class=TopLighNav>授权书明细</th>
    </tr>
    <tr>
      <td width="90" align="center" class=TopLighNav><b>申请部门</b></td>
      <td width="100" align="center" class=TopLighNav><%=rs("deptname")%></td>
	  <td width="80" align="center" class=TopLighNav><b>申请人</b></td>
      <td width="80" align="center" class=TopLighNav><%=rs("name")%></td>
	  <td width="80" align="center" class=TopLighNav><b>职务</b></td>
      <td align="center" class=TopLighNav><%=rs("stationname")%></td>
    </tr>
	 <tr>
      <td align="center" class=tablebody1><b>开户银行</b></td>
      <td colspan="5" class=tablebody1><%=rs("Bank")%></td>
	  
    </tr>
		 <tr>
      <td align="center" class=tablebody1><b>银行卡名称</b></td>
      <td colspan="5" class=tablebody1><%=rs("BankCard")%></td>
	  
    </tr>
 <tr>
      <td align="center" class=tablebody1><b>开户名</b></td>
      <td class=tablebody1><%=rs("theName")%></td>
	  <td align="center" class=tablebody1><b>账号</b></td>
      <td class=tablebody1 colspan="3"><%=rs("Account")%></td>
	
    </tr>
	 <tr>
      <td align="center" class=tablebody1><b>授权时间</b></td>
      <td colspan="5" class=tablebody1><%=formatdatetime(rs("intime"),1)%></td>
	  
    </tr>
    <tr >
      <td height="81" colspan="6" align="left" class=tablebody1>本人特授权深圳市三道科技有限公司将本人在公司每月收入打入银行存折帐户上。</td>
    </tr>
	
	
</table>
<%
rs.close
end if
%>