kcbb.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 135 行

ASP
135 行
字号 
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<!--#include file="../my_lib/pages.asp"-->
<%
  Set rs= Server.CreateObject("ADODB.Recordset")
  sql = "Select * From yqj_product where p_nums>0 Order By p_nums Desc"
  rs.open sql,conn,1,1

  '求出数
  For I = 1 To rs.RecordCount
    Amount = Amount + rs("sl")
    rs.MoveNext
  Next

  '将数据移到第一条
  rs.MoveFirst
%> <%
 rs.pagesize = 15
if request("page")=""  or isempty(request("page")) then
page = 1
else
page=int(request("page"))
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if not rs.BOF then
Rs.Move Rs.PageSize*(page-1)
end if%>
<html>
<head>
<title>库存图表</title>
<LINK href="style.css" rel=stylesheet type=text/css></head>
  <body>
<div align="center">
<table width="760" cellspacing="1">
  <tr> 
    <td align="center" height="20">　</td>
    <td align="center" height="20">　</td>
    <td align="center" height="20">　</td>
    <td align="right" height="20"><a href="#" onClick="window.print();return false">&gt;&gt;打印该页报表</a> 
    </td>
  </tr>
  <tr> 
    <td align="center" bgcolor="#EFEFEF" height="20">ID</td>
    <td align="center" bgcolor="#EFEFEF" height="20">产品名称</td>
    <td align="center" bgcolor="#EFEFEF" height="20">库存数</td>
    <td align="center" bgcolor="#EFEFEF" height="20">直方图</td>
  </tr>
<%
set rs=server.createobject("adodb.recordset")
sql = "Select * from yqj_product where p_nums>0 Order By p_nums Desc" 
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=500 colspan=4><font color=#FF0000>没有相应的数据</font></td>"
    response.write "</tr>"
    else
    
    For iii = 1 To rs.RecordCount
    Amount = Amount + rs("p_nums")
    rs.MoveNext
    Next
    
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
						  set id=rs("id")
						  set p_name=rs("p_name")
						  set p_nums=rs("p_nums")
						  Percent = Round((p_nums/Amount)*100,2)

%>
  <tr> 
    <td align="center" bgcolor="#FFFFFF" height="20"><%=(page-1)*19+ii%></td>
    <td bgcolor="#FFFFFF" height="20"> 
      <a href=edit_product.asp?id=<%=id%>><% =p_name%></a></td>
    <td align="center" bgcolor="#FFFFFF" height="20"> 
      <% =p_nums%> </td>
    <td bgcolor="#FFFFFF" height="20"><img src="image/poll.gif" width="<%= Percent * 3 %>" height="10"> 
      <% = Percent %>
      %</td>
  </tr>
<%
rs.movenext
ii=ii+1
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
  <tr> 
    <td colspan="4" bgcolor="#FFFFFF" height="20"> 
      <div align="right">总库总存：<font color="#FF3333"> 
        <% = formatNumber(Amount,0)%>
        </font></div></td>
  </tr>
  <tr> 
    <form name=form method=get action=?>
      <td colspan="4" align="center" bgcolor="#FFFFFF" height="20"> 
<%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=center>")%></td>
    </form>
  </tr>
</table>
    </div>
    </body>
</html>

kcbb.asp - 源码说明

本页面展示了「非常有商业价值的软件」中的 kcbb.asp 源码文件，采用 ASP 编程语言编写，共 135 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与商相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?