<!--#include virtual="/show/adminhead.asp"-->
<!--#include file="adminleft.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<%
call logquanxian("e3",1)
%>
 
<title><%=webname%>-最高权限-提现-不可结算列表</title> 

<DIV>

<DIV id=main1200> 
<%call webleft()%>
<DIV id=main_right>
<DIV id=main_right_content>
<STYLE>.apply_style {
	POSITION: absolute
}
.right_title A {
	LINE-HEIGHT: 27px; WIDTH: 126px; DISPLAY: inline-block; BACKGROUND: url(<%=ossurl%>images/bg22.gif) no-repeat; HEIGHT: 27px
}
.right_title A.current {
	BACKGROUND: url(<%=ossurl%>images/main_right_title_bg.gif) no-repeat; COLOR: #fff; FONT-WEIGHT: bold
}
.table_style_1 TD {
	HEIGHT: 38px
}
.table_style_home_info TD {
	PADDING-BOTTOM: 0px; PADDING-LEFT: 10px; PADDING-RIGHT: 0px; HEIGHT: 30px; PADDING-TOP: 0px
}
</STYLE>

<DIV class=right_titleadmin>&nbsp;&nbsp;不可结算列表</DIV>
<DIV class=main>
<%
rs.open "select ayjiesuanzhouqi from ayquanju" ,conn,1,1
ayjiesuanzhouqi=rs("ayjiesuanzhouqi")
rs.close
%>



    <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="33%" height="25" align="left"><a href="ik_adminjiesuan4.asp" style="COLOR: #FF0000">·提现结算</a> <a style="color:#666666" href="adminjiesuan5.asp">[不可结算列表]</a></td>
        <td width="21%" align="left"><a href="ik_adminjiesuan.asp" style="COLOR: #FF0000">·自动结算</a></td>
        <td width="21%" align="left"><a href="ik_adminjiesuanjj.asp" style="COLOR: #FF0000">·加急提现</a></td>
        <td width="25%" align="left"><a href="ik_adminfenzhang.asp" style="COLOR: #FF0000">·秒结算</a></td>
      </tr>
    </table>
    <br>
   	<TABLE width="99%" border="0" cellpadding="0" cellspacing="0" class="table_style_a1">
    <TBODY>
	<TR><TD colspan="16" align="center" bgcolor="#E0E0E0" class="border_bottom border_right" style="color: #000000; font-weight: bold">不可结算列表</TD></TR>
	<TR>
    <TD align="center" class="border_bottom border_right">提现时间</TD>
    <TD align="center" class="border_bottom border_right">流水号</TD>
    <TD align="center" class="border_bottom border_right" style="font-weight: bold">商家名称</TD>
    <TD align="center" class="border_bottom border_right">级别</TD>
    <TD align="center" class="border_bottom border_right">账户余额</TD>
    <TD align="center" class="border_bottom border_right">发生余额</TD>
    <TD align="center" class="border_bottom border_right" style="font-weight: bold">提现金额</TD>
    <TD align="center" class="border_bottom border_right" style="color: #FF0000; font-weight: bold">应到账/费用</TD>
    <TD align="center" class="border_bottom border_right" style="color: #FF0000; font-weight: bold">收款姓名</TD>
    <TD align="center" class="border_bottom border_right" style=" color: #FF0000; font-weight: bold">收款方式</TD>
    <TD colspan="2" align="center" class="border_bottom border_right" style=" color: #FF0000; font-weight: bold">收款帐号</TD>
    <TD align="center" class="border_bottom border_right">银行名称</TD>
    <TD align="center" class="border_bottom">操作</TD>
  </TR>
<%
wjiesuan=0
For sum=0 To 5 '财务库数量  总数量-1 如增加库 需修改updata\tongji下的相应文件  case "A"
if sum=0 then cwku="aycaiwu"
if sum=1 then cwku="aycaiwu01"
if sum=2 then cwku="aycaiwu02"
if sum=3 then cwku="aycaiwu03"
if sum=4 then cwku="aycaiwu04"
if sum=5 then cwku="aycaiwu05"



sql="select aycaiwuleibie,aycaiwutxcl,aycaiwudate,aytxjj,aycaiwuuser,aycaiwulastjin,aycaiwujine,aycaiwuid,aytxyue,aycaiwuyue,aycailiushui,ayjslistid from "&cwku&" where aycaiwuleibie=9 and (aycaiwutxcl=0 or aycaiwutxcl=2 or aycaiwutxcl=3) and datediff(day,aycaiwudate,'"&now()&"')<"&ccur(ayjiesuanzhouqi)+5&" and aytxjj=0 order by aytxjj desc,aycaiwudate" 
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then

do while not rs.eof 
n=1
isokw="yes"
	set rsu=server.CreateObject("adodb.recordset")
	sqlu="select ayisjssuo,aynameid,istelrz,ismailrz,ayjibie,ayusername,aytrueuser,aymail from ayname where ayisjssuo=0 and aynameid="&rs("aycaiwuuser")&"" 
	rsu.open sqlu,conn,1,1
	if not(rsu.bof and rsu.eof) then
	
	aymail=trim(rsu("aymail"))
	aynameid=rsu("aynameid")
    
	if cint(rsu("istelrz"))=0 then
		if DateDiff("d",rs("aycaiwudate"),now())<2 then
		isokw="no"
		end if
	end if
	
	isjbokw="no"
	if cint(rsu("ayjibie"))<>5 and cint(rsu("ayjibie"))<>9 then
	set rsj=server.CreateObject("adodb.recordset")
	rsj.open "select ayujbgid,ayujbjsday from ayujb where ayujbgid="&cint(rsu("ayjibie"))&"" ,conn,1,1
	if (rsj.bof and rsj.eof) then call PopErr("商户级别获取失败")
	if DateDiff("d",rs("aycaiwudate"),now())<ccur(rsj("ayujbjsday")) then isjbokw="yes"
	rsj.close
	end if
	
	if (DateDiff("d",rs("aycaiwudate"),now())<cint(ayjiesuanzhouqi) and isokw="yes") or (DateDiff("d",rs("aycaiwudate"),now())<ccur(ayjiesuanzhouqi)+1 and isokw="no") or isjbokw="yes"  then %>

  <TR id="tr<%=rs("aycaiwuid")%>" onmouseover=this.bgColor='#D2FFFF' onmouseout=this.bgColor='#ffffff'>
    <TD align="center" class="border_bottom border_right"><%=rs("aycaiwudate")%></TD>
    <TD align="center" class="border_bottom border_right"><%=trim(rs("aycailiushui"))%></TD>
    <TD align="center" class="border_bottom border_right"><a href="adminuseredit.asp?id=<%=rsu("aynameid")%>" target="_blank"><%=trim(rsu("aytrueuser"))%></a>
      <%if isokw="no" then
	response.Write " <span style=color:#FF0000>未认证</span>"
	end if
	%>
    </TD>
    <TD align="center" class="border_bottom border_right">
	<%'1VIP商户 2铜牌商户 3银牌商户 4金牌商户
	response.Write getjbname(rsu("ayjibie"))
	%></TD>
    <TD align="center" class="border_bottom border_right"><%=Formatnumber(rs("aytxyue"),3,true,-1,0)%>元</TD>
    <TD align="center" class="border_bottom border_right"><%=Formatnumber(rs("aycaiwuyue"),3,true,-1,0)%>元</TD>
    <TD align="center" class="border_bottom border_right"><%=Formatnumber(rs("aycaiwujine"),3,true,-1,0)%>元</TD>
    <TD align="center" class="border_bottom border_right" style="color: #FF0000">
    <%=Formatnumber(rs("aycaiwulastjin"),3,true,-1,0)%>元 (手续费<%=Formatnumber(ccur(rs("aycaiwujine"))-ccur(rs("aycaiwulastjin")),3,true,-1,0) %>元)	
	<%if isokw="yes" then%>
	<%wjiesuan=ccur(wjiesuan)+ccur(rs("aycaiwulastjin"))%>
	<%end if%>
	</TD>
    
<%		
		isnewsk="no"
		ayjname="--"
		ayjcard=""
		ayjfs=0
		ayjpic=""
		ayjbank=""
		ayjzhihang=""
		
	if rs("ayjslistid")<>"" then
		set rsjiesuan=server.CreateObject("adodb.recordset")
		sqljiesuan="select * from ayjiesuanid where ayjid="&rs("ayjslistid")&"" 
		rsjiesuan.open sqljiesuan,conn,1,1
		if rsjiesuan.bof and rsjiesuan.eof then 	
		response.Write "无结算账号"
		else
		isnewsk="yes"
		ayjname=trim(rsjiesuan("ayjname"))
		ayjcard=trim(rsjiesuan("ayjcard"))
		ayjfs=rsjiesuan("ayjfs")
		ayjpic=trim(rsjiesuan("ayjpic"))
		ayjbank=trim(rsjiesuan("ayjbank"))
		ayjzhihang=trim(rsjiesuan("ayjzhihang"))
		end if
		rsjiesuan.close
	end if
%>
    
    <TD align="center" class="border_bottom border_right" style="color: #FF0000"><a style="color:#F00" href="adminuseredit.asp?id=<%=rsu("aynameid")%>" target="_blank"><%=ayjname%></a><%'if isnewsk="yes" then response.Write "(新)"%></TD>
    <TD align="center" class="border_bottom border_right" style=" color: #FF0000">
					<%'收款方式
                    fs=""
                    if cint(ayjfs)=1 then fs="支付宝"
                    if cint(ayjfs)=2 then fs="财付通"
                    if cint(ayjfs)=3 then fs="银行"
                    if cint(ayjfs)=4 then fs="微信"
                    response.Write fs
                    %>
    </TD>
    <TD align="center" class="border_bottom border_right" style=" color: #FF0000">
	<%
					if instr(1,ayjcard,"@")=0 then '邮箱
						response.Write("&nbsp;")
						response.Write("&nbsp;")
						response.Write("&nbsp;")
						For ssum=1 To len(ayjcard)
						response.Write mid(ayjcard,ssum,1)
						if ssum=4 then response.Write("&nbsp;")
						if ssum=8 then response.Write("&nbsp;")
						if ssum=12 then response.Write("&nbsp;")
						if ssum=16 then response.Write("&nbsp;")
						next
					else
					response.Write trim(ayjcard)
					end if
	%>
	</TD>
    <TD align="center" class="border_bottom border_right" style=" color: #FF0000">
					<%if cint(ayjfs)=1 or cint(ayjfs)=4 then
							if cint(ayjfs)<>2 then
							if cint(ayjfs)=1 then simg=ossurl&"images/jz.gif"
							if cint(ayjfs)=4 then simg=ossurl&"images/jw.gif"
							%>
							<img src="<%=simg%>" border="0" style="cursor:pointer;" width="15px" title="已上传收款二维码" onMouseOver="erpic<%=rs("aycaiwuid")%>.style.display='';" onMouseOut="erpic<%=rs("aycaiwuid")%>.style.display='none';"><div id="erpic<%=rs("aycaiwuid")%>" style="display:none;position:fixed;left:40%;top:40%;z-index:9999;"><img src="<%=ayjpic%>"  width="250"/></div> 							
							<%end if%>
					<%elseif cint(ayjfs)=3 then%>
                    <img src="<%=ossurl&"images/jyl.gif"%>" border="0" width="20px"> 							
					<%end if%>
    </TD>
    <TD align="center" class="border_bottom border_right">
					<%
					if cint(ayjfs)<>3 then 
					response.Write("-")
					else
					response.Write ayjbank
					response.Write "<br>"&ayjzhihang
					end if
					%>
    </TD>
    <TD align="center" class="border_bottom"><a href=adminjiesuanjlxx.asp?uid=<%=trim(rsu("ayusername"))%> target=_blank>详</a> <a href="adminjiesuanjl.asp?uid=<%=rsu("aynameid")%>" target="_blank">结</a></TD>
  </TR>
<%
end if
end if
rsu.close

n=n+1
rs.movenext  '指针向下移动
loop


end if
  rs.close 
  
next
 %>






  <TR>
    <TD colspan="14" class="border_bottom border_right">&nbsp;不可结算总金额&nbsp;<%=wjiesuan%>元</TD>
</TR>
  </TABLE> 

  
</DIV></DIV>
<DIV class=clear></DIV></DIV>
</DIV>



<!--#include virtual="/show/footadmin.asp"-->

