¹ØÓÚ·ÖÒ³ÏÔʾºóµÄÇóºÍ¡¢Ð¡Ð´×ª´óдÎÊÌ⣡£¡

ÇïÑà×Ó_ƒ¹

ÎÊÌâÖ®Ò»£ººÍÖµÓÀԶΪ¿Õ£¬Ê²Ã´Ò²Ã»ÓС£
ÎÊÌâÖ®¶þ£ºÐ¡Ð´×ª´óдÓÀÔ¶ÊÇ·¡°Û·¡Ê°·¡ÒÚ·¡Çª·¡°Û·¡Ê°·¡Íò·¡Çª·¡°Û·¡Ê°·¡Ôª£¨Ò²¾ÍÊÇ22222222222£©

´úÂëÈçÏ£º
<TD height="25" align="center">Áбí±êÌâ</TD>
<td width="12%" height="25" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">ÄÚÈÝ</td>
¡­¡­
<%
uptime=cstr(trim(request("uptime")))
uptime1=cstr(trim(request("uptime1")))
PageShowSize = 10 'ÿҳÏÔʾ¶àÉÙ¸öÒ³
MyPageSize = 20 'ÿҳÏÔʾ¶àÉÙÌõ
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
Page=1
Else
Page=Int(Abs(Request("page")))
End if
set rs=server.CreateObject("ADODB.RecordSet")
if Request("user_zhuozhe_name")="" and Request("user_dangwei_file")="" and Request("user_fashong_fangshi")="" then
rs.Source="select * from client where kfsj between #"&uptime&"# and #"&uptime1&"# order by id desc"
else
if Request("user_fashong_fangshi")="" then
if Request("user_dangwei_file")="" then
rs.Source="select * from client where zhuozhe_name like '%"&Request("user_zhuozhe_name")&"%' and (kfsj between #"&uptime&"# and #"&uptime1&"#) order by id desc"
else
rs.Source="select * from client where client_adr like '%"&Request("user_dangwei_file")&"%' and (kfsj between #"&uptime&"# and #"&uptime1&"#) order by id desc"
end if
else
rs.Source="select * from client where fashong_fangshi like '%"&request("user_fashong_fangshi")&"%' and (kfsj between #"&uptime&"# and #"&uptime1&"#) order by id desc"
end if
end if
rs.Open rs.Source,conn,1,1
if not rs.EOF then
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
rs.absolutepage = Page
total = rs.RecordCount
for i=1 to rs.PageSize
if not rs.EOF then
%>

<tr>
<td height="18" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><input name="selBigClass" type="checkbox" id="selBigClass" value="<%=rs("ID")%>"><a href="invoice_search03.Asp?id=<%=rs("ID")%>&action=edit"><%=rs("kfsj")%></a></td>
<td height="18" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%for j=1 to 3-len(rs("kfbm_person"))%>0<%next%><%=rs("kfbm_person")%></a></td>
<td height="18" align="left" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%=rs("zhuozhe_name")%></td>
<td height="18" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%=rs("client_adr")%></td>
<td height="18" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%=rs("client_file")%></td>
<td height="18" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%=rs("fashong_fangshi")%></td>
<td height="18" align="right" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%=rs("freight")%></td>
</TR>
<%
rs.MoveNext
end if
next
%>
<% if rs.eof Then
¡¯//ÒÔÏÂÕâÒ»¶ÎÊÇ°´ÉÏÃæµÄ²éѯÌõ¼þ½øÐÐÇóºÍ
set rs=server.CreateObject("ADODB.RecordSet")
if Request("user_zhuozhe_name")="" and Request("user_dangwei_file")="" and Request("user_fashong_fangshi")="" then
rs.Source="select sum(freight) as num from client where kfsj between #"&uptime&"# and #"&uptime1&"# order by id desc"
else
if Request("user_fashong_fangshi")="" then
if Request("user_dangwei_file")="" then
rs.Source="select sum(freight) as num from client where zhuozhe_name like '%"&Request("user_zhuozhe_name")&"%' and (kfsj between #"&uptime&"# and #"&uptime1&"#) order by id desc"
else
rs.Source="select sum(freight) as num from client where client_adr like '%"&Request("user_dangwei_file")&"%' and (kfsj between #"&uptime&"# and #"&uptime1&"#) order by id desc"
end if
else
rs.Source="select sum(freight) as num from client where fashong_fangshi like '%"&request("user_fashong_fangshi")&"%' and (kfsj between #"&uptime&"# and #"&uptime1&"#) order by id desc"
end if
end if
rs.Open rs.Source,conn,1,1
¡¯//ÒÔÏÂÊÇСдת´óд
thenumber=num
call Money(22222222222)
function Money(thenumber)
dim n,String1,String2,length
dim one(),onestr()
String1="ÁãÒ¼·¡ÈþËÁÎé½Æâ°Æ¾Á"
String2="ÍòǪ°ÛÊ°ÒÚǪ°ÛÊ°ÍòǪ°ÛÊ°Ôª"
length=len(thenumber)
redim one(length-1)
redim onestr(length-1)
for n=0 to length-1
one(n)=mid(thenumber,n+1,1)
one(n)=mid(string1,one(n)+1,1)
onestr(n)=mid(string2,14-length+n,1)
one(n)=one(n)&onestr(n)
next
Money=replace(join(one)," ","")
Money=replace(Money,"ÁãÔª","Ôª")
Money=replace(Money,"ÁãÍò","Íò")
Money=replace(Money,"ÁãÒÚ","ÒÚ")
Money=replace(Money,"ÁãǪ","Áã")
Money=replace(Money,"Áã°Û","Áã")
Money=replace(Money,"ÁãÊ°","Áã")
do while not instr(Money,"ÁãÁã")=0
Money=replace(Money,"ÁãÁã","Áã")
loop
end function
%>
¡¯//ÒÔÏÂÊÇÏÔʾºÏ¼ÆÖµ
<tr>
<td width="12%" height="22" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;&nbsp;&nbsp;&nbsp;ºÏ&nbsp;&nbsp;&nbsp;¼Æ</a></td>
<td width="7%" height="18" align="left" class="but" colspan="5" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;&nbsp;´ó&nbsp;д£º&nbsp;<%=rs("Money")%></td>
<td width="8%" height="18" align="right" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%=num%></td>
<%end if %>
</tr>

<%end if%>
&nbsp;¹² <%=total%> Ìõ£¬µ±Ç°µÚ <%=page%>/<%=Maxpages%>Ò³£¬Ã¿Ò³ <%=MyPageSize%> Ìõ

¡­¡­
ÒÔÏÂÊÇÒ³ÂëµÄÏÔʾ£¨Ã»ÎÊÌ⣩

ü\ÔO•þ

call Money(22222222222)
¸Ä³É
<%num=rs("num")%>
call Money(num)
ÊÔÊÔ
ºóÃæµÄfunction²»Òª¸Ä¶¯
ºÏ¼ÆÓÃ<%=rs("num")%>±íʾ

É“ëZ§¥û–Ž›

·ç»¯Ñ©Ò¹

×îºóÒ»Ò³£¬×îºóÒ»ÐУ¬

ľ×Ó

¸öÈ˵Ä˼·ÀûÓÃrs.PageCountÅжÏÊÇ·ñΪ×îºóÒ»Ò³£¬È»ºóÓÃSQLÓï¾äÍê³ÉÇóºÍ¡£

©IÆì½¢…d

Â¥Ö÷ÊÇÏëÔÚ×îºóÒ»Ò³À´ÇóºÍÂð£¿

°®ÇÙº£

¼¸¾­Ë¼¿¼£¬·¢ÏÖÊ×ÏÈÊÇNUMûµÃ¶«Î÷³öÀ´£»È»ºó¾ÍÊÇCALLÕâÀïÓÐÎÊÌâ¡£µ«¾ÍÊDz»ÖªµÀÎÊÌâ¸ÃÔõô½â¾ö¡£

±ùfeng¡êÂäÒ¶

ÎÞÐεÄÌì¿Õ

$Ðdz½

ÖÕÓڵȵ½ÄãÁË