📄 khystj.asp
字号:
<!--#include file="../../include/Pubconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>商品销售查询</title><link href="../../cread.css" rel="stylesheet" type="text/css">
<%khxh=request("khxh")
if request("currentpage")<>"" then
currentpage=cint(request("currentpage"))
else
currentpage=1
end if
%>
</head>
<body bgcolor="#FFFFFF">
<form method="post" action="khystj.asp" name=myform>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../../pic/it_22.gif">
</font><font size="2">客户信用情况统计</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<%
set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.CursorType = adOpenStatic
sql="select sum(balmoney) as je,skqk from viewpayment where clientnum='"&khxh&"' group by skqk order by sum(balmoney) desc"
'response.write sql
'response.end
rs.open sql,pubconn,1,3
if rs.recordcount>=1 then
rs.pagesize=10
if currentpage>=rs.pagecount then
currentpage=rs.pagecount
else
if currentpage<1 then
currentpage=1
end if
end if
rs.absolutepage=currentpage
pagenum=rs.pagecount
if pagenum<1 then
pagenum=1
end if
zje=0
do while not rs.eof
zje=zje+rs("je")
rs.movenext
loop
rs.movefirst
%>
<div align="center">
<center>
<table border="1" cellspacing="0" width="70%" height="38" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr>
<td width="50%" height="25" align="center" bgcolor="#DDD2C4"><font size="2">
收款情况</font></td>
<td width="30%" height="25" align="center" bgcolor="#DDD2C4"><font size="2">结算金额(元)</font></td>
<td width="30%" height="25" align="center" bgcolor="#DDD2C4"><font size="2">百分比</font></td>
</tr>
<%hzb=""
zzb=""
for i=1 to rs.pagesize %>
<%yse=rs("je")
if i mod 2=1 then%>
<tr bgcolor="#f7f7f7" >
<%else%>
<tr bgcolor="#EDEBEC" >
<%end if%>
<td width="50%" height="20" >
<%hzb=hzb&rs("skqk")&","%>
<p align="center"><font size="2"><%=rs("skqk")%></font></p>
</td>
<%zzb=zzb&yse&","%>
<td width="30%" height="20" align=right>
<p align="center"><font size="2"><%=yse%></font></p>
</td>
<%if zje=0 then
bfb=0
else
bfb=formatpercent((yse/zje),2,-1)
end if
%>
<td width="30%" height="20" align=right>
<p align="center"><font size="2"><%=bfb%></font></p>
</td>
</tr>
<%
rs.MoveNext
if rs.EOF then
exit for
end if
next %>
<%
if currentPage=rs.pagecount then
%>
<tr>
<td width="50%" height="20" align="center">
<p align="center"><font size="2">合计</font></p>
</td>
<td width="30%" height="20" align="right">
<p align="center"><font size="2"><%=zje%></font></p>
</td>
<td width="30%" height="20" align="right">
<p align="center"><font size="2"><%="100.00%"%></font></p>
</td>
</tr>
<%end if%>
</table> </center>
</div>
<br>
共<%=rs.pagecount%>页
<a href="khystj.asp?currentPage=1&khxh=<%=khxh%>">首 页</a>
<%
if currentPage<pagenum then%>
<a href="khystj.asp?currentPage=<%=currentpage+1%>&khxh=<%=khxh%>">下一页</a>
<% else%>
下一页 <%
end if
if currentPage>1 then
%> <a href="khystj.asp?currentPage=<%=currentpage-1%>&khxh=<%=khxh%>">上一页</a>
<% else%>
上一页 <%
end if
%>
<a href="khystj.asp?currentPage=<%=rs.pagecount%>&khxh=<%=khxh%>">尾 页</a>
<select name="currentpage" >
<%
for j=1 to rs.pagecount%>
<option value=<%=j%>><%=j%>
<%next%>
</select>
<input type=hidden name=khxh value="<%=khxh%>">
<input type="submit" value="Go" name="page" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<a href="../khtx.asp?hzb=<%=hzb%>&zzb=<%=zzb%>&bz=1&unit=元&tablename=客户信用情况统计" target="main">图形</a>
<a href="#" onclick="window.print()" >打印</a>
<%else%>
<p align="center">
<font size="2">
经查询，没有记录显示!
<%end if
%> </font><font size="2"><br> <br>
<a href="khsktj.asp?khxh=<%=khxh%>">返回</a>
</form>
<br>
</font>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -