func_accredit.asp

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

<!-- #include file="func_verify.asp" -->
<%

dim sumcount,saveserial

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


if request("saveflag")<>"" then
	dim msg
	saveserial=1
	msg=""

	if trim(request("Bank"))="" then
		msg=msg & saveserial & "、请输入开户银行!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("BankCard"))="" then
		msg=msg & saveserial & "、请输入银行卡名称!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("thename"))="" then
		msg=msg & saveserial & "、请输入开户名!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Account"))="" then
		msg=msg & saveserial & "、请输入存折帐号!<br>"
		saveserial=saveserial+1
	end if

	if saveserial<=1 then
		sql="select * from cci_oa_accredit"
		rs.open sql,connobj,3,3
		rs.addnew

		rs("userid")=session("userid")
	
		
		rs("Account")=trim(request("Account"))
		rs("thename")=trim(request("thename"))
		rs("BankCard")=trim(request("BankCard"))
		rs("Bank")=trim(request("Bank"))
		rs("intime")=now
		
		rs.update
		rs.close


		response.redirect "message.asp?rediurl=defaultA.asp&msgurl=首页&msginfo=授权书操作成功！财务人员会将工资打入您提供的账号中!"
	end if
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if





%>

  
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
  <form name="theform" method="post" action="">
    <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><%
	  
	  sql="select deptname from cci_dept where id=" & session("deptid")
	  rs.open sql,connobj,1,1
	  if not rs.eof then
	  	response.Write rs("deptname")
	  end if
	  rs.close
	  
	  %></td>
	  <td width="80" align="center" class=TopLighNav><b>姓名</b></td>
      <td width="80" align="center" class=TopLighNav><%=session("name")%></td>
	  <td width="80" align="center" class=TopLighNav><b>职务</b></td>
      <td align="center" class=TopLighNav><%
	  
	  sql="select stationname from cci_station where id=" & session("stationid")
	  rs.open sql,connobj,1,1
	  if not rs.eof then
	  	response.Write rs("stationname")
	  end if
	  rs.close
	  
	  %></td>
    </tr>
	
	 <tr>
      <td align="center" class=tablebody1><b>开户银行</b></td>
      <td colspan="5" class=tablebody1><input name="Bank" type="text" value="<%=request("Bank")%>" size="75"></td>
	  
    </tr>
		 <tr>
      <td align="center" class=tablebody1><b>银行卡名称</b></td>
      <td colspan="5" class=tablebody1><input name="BankCard" type="text" value="<%=request("BankCard")%>" size="75"></td>
	  
    </tr>
	 <tr>
      <td align="center" class=tablebody1><b>开户名</b></td>
      <td class=tablebody1><input name="theName" type="text" value="<%=request("theName")%>" size="15">
      </td>
	  <td align="center" class=tablebody1><b>账号</b></td>
      <td class=tablebody1 colspan="3"><input name="Account" type="text" value="<%=request("Account")%>" size="50">
      </td>
	
    </tr>
    <tr >
      <td height="81" colspan="6" align="left" class=tablebody1>本人特授权深圳市三道科技有限公司将本人在公司每月收入打入银行存折帐户上。</td>
    </tr>
	
	
    <tr>
      <td colspan="6" align="center" class=tablebody1><input type="submit" name="Submit" value=" 申 请 "></td>
    </tr>	
	
	<input type=hidden name=saveflag value="1">
  </form>
</table>