<!--#include virtual="/inc/conn.asp"-->
<!--#include virtual="/inc/chkuser.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=webname%>-自收查看</title>
<%
call lognameadmin()
call logquanxian("d1",1)

set rsj=server.CreateObject("adodb.recordset")



%>

<STYLE>
body,td,th {
	font-size: 31px;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
</STYLE>



<%
if request.QueryString("uid")<>"" then uid=request.QueryString("uid")
aact=request.QueryString("aact")

link="admindd_zishou.asp?cact=&ddku="&adminddku&""
if uid<>"" then link=link&"&uid="&uid
if aact<>"" then link=link&"&aact="&aact


ishebin=request.Form("ishebin")


act=request.QueryString("act")

if act="one" then 
response.Cookies("dateaa")=""
response.Cookies("datebb")=""
response.Cookies("dingdan")=""
response.Cookies("shangid")=""
response.Cookies("zhuangtai")=""
response.Cookies("youhui")=""
response.Cookies("ddip")=""
response.Cookies("aylxxuid")=""
end if


isdel=request.Form("isdel")


if act="cha" then
sqldd=""
anian=request.Form("anian")
ayue=request.Form("ayue")
ari=request.Form("ari")
bnian=request.Form("bnian")
byue=request.Form("byue")
bri=request.Form("bri")
dingdan=trim(request.Form("dingdan"))
shangid=request.Form("shangid")
zhuangtai=request.Form("zhuangtai")
youhui=request.Form("youhui")
ddip=request.Form("ddip")

aylxxuid=request.Form("aylxxuid")
if aylxxuid<>"" then
response.Cookies("aylxxuid")=aylxxuid
else
response.Cookies("aylxxuid")=""
end if



if aylxxuid<>"" then
	sql="select top 30 * from aybuylx where datediff(day,aylogdate,'"&now()&"')<=1 and aylxxuid="&aylxxuid&" order by aylxid desc"    ' datediff(hour,aylogdate,'"&now()&"')<=1 一小时内   minute分 day 天
	rs.open sql,conn,1,1
	if not(rs.bof and rs.eof) then
	ddku=trim(rs("aylxku"))
	dingdan=trim(rs("aydddsum"))
	end if
	rs.close
end if


if dingdan<>"" then adminddku=getddku(dingdan) 


if dingdan<>"" then
response.Cookies("dingdan")=dingdan
else
response.Cookies("dingdan")=""
end if

end if


if request.Cookies("dingdan")<>"" then sqldd=sqldd&" and aydingdansum ='"&request.Cookies("dingdan")&"'"

if uid<>"" then  sqldd=sqldd&" and aydingdanuser="&uid&""

if sqldd<>"" then
sqldd="where qudao='自收' and datediff(minute,aydingdansj,'"&now()&"')<=20 and aydingdanzt=0 and "&mid(sqldd,5,len(sqldd))  '去除and 
else
sqldd="where qudao='自收' and datediff(minute,aydingdansj,'"&now()&"')<=20 and aydingdanzt=0"
end if

%>
<form action="?act=cha&ddku=<%=adminddku%>" method="post" name="chaxun" id="chaxun">
&nbsp;收款序号&nbsp;<input style=" height:60px; width:240px;" name="aylxxuid" type="text" id="aylxxuid" value="<%if request.Cookies("aylxxuid")<>"" then response.Write trim(request.Cookies("aylxxuid"))%>" size="15" maxlength="3">
&nbsp;
<input style=" height:60px; width:300px; font-size:30px;" type="submit" name="Submit" value=" 查 询 ">&nbsp; <a href="admindd_zishou.asp?act=one">[清空选项]</a><br>
&nbsp;
</form>
 
 
 <table width="100%" border="0" cellpadding="0" cellspacing="0">
       <tr style="background-color:#F0F0F0">
        <th height="20" align="center">总价
        <th align="center">        
        <th align="center">渠道        
        <th align="center">方式        
        <th align="center">时间</tr>
<%
sql="select top 20  * from aydingdan "&sqldd&" order by aydingdanid desc" 
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
do while not rs.eof%>
	  <tr>
        <td height="26" align="center" style="color: #FF0000;"><%=Formatnumber(rs("aydigndanyf"),2,true,-1,0)%></td>
        <td align="center">
        <%
		if cint(rs("ayddzffangshi"))=2 then 
		response.Write "A"
		elseif cint(rs("ayddzffangshi"))=4 then 
		response.Write "W"
		elseif cint(rs("ayddzffangshi"))=5 then 
		response.Write "Q"
		elseif cint(rs("ayddzffangshi"))=10 then 
		response.Write "<span style=color:#F3C>A</span>"
		elseif cint(rs("ayddzffangshi"))=13 then 
		response.Write "<span style=color:#F3C>W</span>"
		elseif cint(rs("ayddzffangshi"))=14 then 
		response.Write "<span style=color:#F3C>Q</span>"
		else
		response.Write trim(rs("ayddpid"))
		end if
		%>
        </td>
        <td align="center">
        <%
		response.Write "<span style=color:#30F>"
			rsj.open "select top 1 aylxid,aydddsum,aylxxuid from aybuylx where aydddsum='"&trim(rs("aydingdansum"))&"' order by aylxid desc",conn,1,1
			if not(rsj.bof and rsj.eof) then
				if cint(rs("aydingdanzt"))=0 then%>
				<a onClick="javascript:return confirm('您确定要将订单转成功吗？');" style="color:#30F" href="adminmydingdanok.asp?id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2" >收<%=trim(rsj("aylxxuid"))%></a>
                &nbsp;&nbsp;&nbsp;&nbsp;
				<a onClick="javascript:return confirm('您确定该订单未提供转变备注，确定将订单状态改为联系客服提供转账备注吗？');" style="color:#F00" href="adminmydingdanok.asp?act=zishoushibai&id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2">错</a>
				<%else
				response.Write "收"&trim(rsj("aylxxuid"))
				end if
			end if
			rsj.close
		response.Write "</span>"
		%>
        </td>
        <td align="center"><%=rs("ayddcontact")%></td>
        <td align="center"><%=rs("aydingdansj")%></td>
   </tr>
<%
rs.movenext
loop
end if
rs.close%>
</table>
    
    
    
<table width="100%" border="0" cellpadding="0" cellspacing="0">
       <tr style="background-color:#F0F0F0">
        <th height="20" align="center">总价
        <th align="center">        
        <th align="center">渠道        
        <th align="center">方式        
        <th align="center">时间</tr>
<%
sql="select top 20  * from aydingdan01 "&sqldd&" order by aydingdanid desc" 
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
do while not rs.eof%>
	  <tr>
        <td height="26" align="center" style="color: #FF0000;"><%=Formatnumber(rs("aydigndanyf"),2,true,-1,0)%></td>
        <td align="center">
        <%
		if cint(rs("ayddzffangshi"))=2 then 
		response.Write "A"
		elseif cint(rs("ayddzffangshi"))=4 then 
		response.Write "W"
		elseif cint(rs("ayddzffangshi"))=5 then 
		response.Write "Q"
		elseif cint(rs("ayddzffangshi"))=10 then 
		response.Write "<span style=color:#F3C>A</span>"
		elseif cint(rs("ayddzffangshi"))=13 then 
		response.Write "<span style=color:#F3C>W</span>"
		elseif cint(rs("ayddzffangshi"))=14 then 
		response.Write "<span style=color:#F3C>Q</span>"
		else
		response.Write trim(rs("ayddpid"))
		end if
		%>
        </td>
        <td align="center">
        <%
		response.Write "<span style=color:#30F>"
			rsj.open "select top 1 aylxid,aydddsum,aylxxuid from aybuylx where aydddsum='"&trim(rs("aydingdansum"))&"' order by aylxid desc",conn,1,1
			if not(rsj.bof and rsj.eof) then
				if cint(rs("aydingdanzt"))=0 then%>
				<a onClick="javascript:return confirm('您确定要将订单转成功吗？');" style="color:#30F" href="adminmydingdanok.asp?id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2" >收<%=trim(rsj("aylxxuid"))%></a>
                &nbsp;&nbsp;&nbsp;&nbsp;
				<a onClick="javascript:return confirm('您确定该订单未提供转变备注，确定将订单状态改为联系客服提供转账备注吗？');" style="color:#F00" href="adminmydingdanok.asp?act=zishoushibai&id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2">错</a>
				<%else
				response.Write "收"&trim(rsj("aylxxuid"))
				end if
			end if
			rsj.close
		response.Write "</span>"
		%>
        </td>
        <td align="center"><%=rs("ayddcontact")%></td>
        <td align="center"><%=rs("aydingdansj")%></td>
  </tr>
<%
rs.movenext
loop
end if
rs.close%>
</table>
    
    
    
    
<table width="100%" border="0" cellpadding="0" cellspacing="0">
       <tr style="background-color:#F0F0F0">
        <th height="20" align="center">总价
        <th align="center">        
        <th align="center">渠道        
        <th align="center">方式        
        <th align="center">时间</tr>
<%
sql="select top 20  * from aydingdan02 "&sqldd&" order by aydingdanid desc" 
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
do while not rs.eof%>
	  <tr>
        <td height="26" align="center" style="color: #FF0000;"><%=Formatnumber(rs("aydigndanyf"),2,true,-1,0)%></td>
        <td align="center">
        <%
		if cint(rs("ayddzffangshi"))=2 then 
		response.Write "A"
		elseif cint(rs("ayddzffangshi"))=4 then 
		response.Write "W"
		elseif cint(rs("ayddzffangshi"))=5 then 
		response.Write "Q"
		elseif cint(rs("ayddzffangshi"))=10 then 
		response.Write "<span style=color:#F3C>A</span>"
		elseif cint(rs("ayddzffangshi"))=13 then 
		response.Write "<span style=color:#F3C>W</span>"
		elseif cint(rs("ayddzffangshi"))=14 then 
		response.Write "<span style=color:#F3C>Q</span>"
		else
		response.Write trim(rs("ayddpid"))
		end if
		%>
        </td>
        <td align="center">
        <%
		response.Write "<span style=color:#30F>"
			rsj.open "select top 1 aylxid,aydddsum,aylxxuid from aybuylx where aydddsum='"&trim(rs("aydingdansum"))&"' order by aylxid desc",conn,1,1
			if not(rsj.bof and rsj.eof) then
				if cint(rs("aydingdanzt"))=0 then%>
				<a onClick="javascript:return confirm('您确定要将订单转成功吗？');" style="color:#30F" href="adminmydingdanok.asp?id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2" >收<%=trim(rsj("aylxxuid"))%></a>
                &nbsp;&nbsp;&nbsp;&nbsp;
				<a onClick="javascript:return confirm('您确定该订单未提供转变备注，确定将订单状态改为联系客服提供转账备注吗？');" style="color:#F00" href="adminmydingdanok.asp?act=zishoushibai&id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2">错</a>
				<%else
				response.Write "收"&trim(rsj("aylxxuid"))
				end if
			end if
			rsj.close
		response.Write "</span>"
		%>
        </td>
        <td align="center"><%=rs("ayddcontact")%></td>
        <td align="center"><%=rs("aydingdansj")%></td>
  </tr>
<%
rs.movenext
loop
end if
rs.close%>
</table>
    
    
<table width="100%" border="0" cellpadding="0" cellspacing="0">
       <tr style="background-color:#F0F0F0">
        <th height="20" align="center">总价
        <th align="center">        
        <th align="center">渠道        
        <th align="center">方式        
        <th align="center">时间</tr>
<%
sql="select top 20  * from aydingdan03 "&sqldd&" order by aydingdanid desc" 
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
do while not rs.eof%>
	  <tr>
        <td height="26" align="center" style="color: #FF0000;"><%=Formatnumber(rs("aydigndanyf"),2,true,-1,0)%></td>
        <td align="center">
        <%
		if cint(rs("ayddzffangshi"))=2 then 
		response.Write "A"
		elseif cint(rs("ayddzffangshi"))=4 then 
		response.Write "W"
		elseif cint(rs("ayddzffangshi"))=5 then 
		response.Write "Q"
		elseif cint(rs("ayddzffangshi"))=10 then 
		response.Write "<span style=color:#F3C>A</span>"
		elseif cint(rs("ayddzffangshi"))=13 then 
		response.Write "<span style=color:#F3C>W</span>"
		elseif cint(rs("ayddzffangshi"))=14 then 
		response.Write "<span style=color:#F3C>Q</span>"
		else
		response.Write trim(rs("ayddpid"))
		end if
		%>
        </td>
        <td align="center">
        <%
		response.Write "<span style=color:#30F>"
			rsj.open "select top 1 aylxid,aydddsum,aylxxuid from aybuylx where aydddsum='"&trim(rs("aydingdansum"))&"' order by aylxid desc",conn,1,1
			if not(rsj.bof and rsj.eof) then
				if cint(rs("aydingdanzt"))=0 then%>
				<a onClick="javascript:return confirm('您确定要将订单转成功吗？');" style="color:#30F" href="adminmydingdanok.asp?id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2" >收<%=trim(rsj("aylxxuid"))%></a>
                &nbsp;&nbsp;&nbsp;&nbsp;
				<a onClick="javascript:return confirm('您确定该订单未提供转变备注，确定将订单状态改为联系客服提供转账备注吗？');" style="color:#F00" href="adminmydingdanok.asp?act=zishoushibai&id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2">错</a>
				<%else
				response.Write "收"&trim(rsj("aylxxuid"))
				end if
			end if
			rsj.close
		response.Write "</span>"
		%>
        </td>
        <td align="center"><%=rs("ayddcontact")%></td>
        <td align="center"><%=rs("aydingdansj")%></td>
  </tr>
<%
rs.movenext
loop
end if
rs.close%>
</table>
    
    
    
    
<table width="100%" border="0" cellpadding="0" cellspacing="0">
       <tr style="background-color:#F0F0F0">
        <th height="20" align="center">总价
        <th align="center">        
        <th align="center">渠道        
        <th align="center">方式        
        <th align="center">时间</tr>
<%
sql="select top 20  * from aydingdan04 "&sqldd&" order by aydingdanid desc" 
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
do while not rs.eof%>
	  <tr>
        <td height="26" align="center" style="color: #FF0000;"><%=Formatnumber(rs("aydigndanyf"),2,true,-1,0)%></td>
        <td align="center">
        <%
		if cint(rs("ayddzffangshi"))=2 then 
		response.Write "A"
		elseif cint(rs("ayddzffangshi"))=4 then 
		response.Write "W"
		elseif cint(rs("ayddzffangshi"))=5 then 
		response.Write "Q"
		elseif cint(rs("ayddzffangshi"))=10 then 
		response.Write "<span style=color:#F3C>A</span>"
		elseif cint(rs("ayddzffangshi"))=13 then 
		response.Write "<span style=color:#F3C>W</span>"
		elseif cint(rs("ayddzffangshi"))=14 then 
		response.Write "<span style=color:#F3C>Q</span>"
		else
		response.Write trim(rs("ayddpid"))
		end if
		%>
        </td>
        <td align="center">
        <%
		response.Write "<span style=color:#30F>"
			rsj.open "select top 1 aylxid,aydddsum,aylxxuid from aybuylx where aydddsum='"&trim(rs("aydingdansum"))&"' order by aylxid desc",conn,1,1
			if not(rsj.bof and rsj.eof) then
				if cint(rs("aydingdanzt"))=0 then%>
				<a onClick="javascript:return confirm('您确定要将订单转成功吗？');" style="color:#30F" href="adminmydingdanok.asp?id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2" >收<%=trim(rsj("aylxxuid"))%></a>
                &nbsp;&nbsp;&nbsp;&nbsp;
				<a onClick="javascript:return confirm('您确定该订单未提供转变备注，确定将订单状态改为联系客服提供转账备注吗？');" style="color:#F00" href="adminmydingdanok.asp?act=zishoushibai&id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2">错</a>
				<%else
				response.Write "收"&trim(rsj("aylxxuid"))
				end if
			end if
			rsj.close
		response.Write "</span>"
		%>
        </td>
        <td align="center"><%=rs("ayddcontact")%></td>
        <td align="center"><%=rs("aydingdansj")%></td>
  </tr>
<%
rs.movenext
loop
end if
rs.close%>
</table>
    
    
    
<table width="100%" border="0" cellpadding="0" cellspacing="0">
       <tr style="background-color:#F0F0F0">
        <th height="20" align="center">总价
        <th align="center">        
        <th align="center">渠道        
        <th align="center">方式        
        <th align="center">时间</tr>
<%
sql="select top 20  * from aydingdan05 "&sqldd&" order by aydingdanid desc" 
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
do while not rs.eof%>
	  <tr>
        <td height="26" align="center" style="color: #FF0000;"><%=Formatnumber(rs("aydigndanyf"),2,true,-1,0)%></td>
        <td align="center">
        <%
		if cint(rs("ayddzffangshi"))=2 then 
		response.Write "A"
		elseif cint(rs("ayddzffangshi"))=4 then 
		response.Write "W"
		elseif cint(rs("ayddzffangshi"))=5 then 
		response.Write "Q"
		elseif cint(rs("ayddzffangshi"))=10 then 
		response.Write "<span style=color:#F3C>A</span>"
		elseif cint(rs("ayddzffangshi"))=13 then 
		response.Write "<span style=color:#F3C>W</span>"
		elseif cint(rs("ayddzffangshi"))=14 then 
		response.Write "<span style=color:#F3C>Q</span>"
		else
		response.Write trim(rs("ayddpid"))
		end if
		%>
        </td>
        <td align="center">
        <%
		response.Write "<span style=color:#30F>"
			rsj.open "select top 1 aylxid,aydddsum,aylxxuid from aybuylx where aydddsum='"&trim(rs("aydingdansum"))&"' order by aylxid desc",conn,1,1
			if not(rsj.bof and rsj.eof) then
				if cint(rs("aydingdanzt"))=0 then%>
				<a onClick="javascript:return confirm('您确定要将订单转成功吗？');" style="color:#30F" href="adminmydingdanok.asp?id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2" >收<%=trim(rsj("aylxxuid"))%></a>
                &nbsp;&nbsp;&nbsp;&nbsp;
				<a onClick="javascript:return confirm('您确定该订单未提供转变备注，确定将订单状态改为联系客服提供转账备注吗？');" style="color:#F00" href="adminmydingdanok.asp?act=zishoushibai&id=<%=trim(rs("aydingdansum"))%>&did=<%=rs("aydingdanid")%>&ddku=<%=adminddku%>&url=shou2">错</a>
				<%else
				response.Write "收"&trim(rsj("aylxxuid"))
				end if
			end if
			rsj.close
		response.Write "</span>"
		%>
        </td>
        <td align="center"><%=rs("ayddcontact")%></td>
        <td align="center"><%=rs("aydingdansj")%></td>
  </tr>
<%
rs.movenext
loop
end if
rs.close%>
</table>
    
    


















<br>