📄 ku_inlist.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．

💻 ASP

字号:

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.asp"-->
<%
Dim ki,i
Dim ki_id,ki_ts,ki_tt
Set ki = Conn.Execute("Select Product,Tui_Shuliang,Time From [Ku_In] Order By Time desc")
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<body text="#000000">
<table width="98%" border="0" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
  <tr height="22" valign="middle" align="center"> 
    <th height="25" align="center" valign="middle">出库商品报表</th>
  </tr>
  <tr height="22" valign="middle" align="center">
    <td><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
        <tr bgcolor="#FFFFFF"> 
          <td width="6%" height="25" class=forumrow>
<div align="center">项目</div></td>
          <td width="18%" class=forumrow><div align="center">商品编号</div></td>
          <td width="31%" class=forumrow><div align="center">商品名称</div></td>
          <td width="27%" class=forumrow><div align="center">出库数量</div></td>
          <td width="18%" class=forumrow><div align="center">出库时间</div></td>
        </tr>
<%
i=1
Do While Not ki.Eof
ki_id = ki(0)
ki_ts = ki(1)
ki_tt = ki(2)
%>
        <tr bgcolor="#FFFFFF"> 
          <td height="25"><div align="center"><%=i%></div></td>
          <td><div align="center"><%=ki_id%></div></td>
          <td><div align="center"><%=Product(ki_id)%></div></td>
          <td><div align="center"><%=ki_ts%></div></td>
          <td><div align="center"><%=ki_tt%></div></td>
        </tr>
<%
i=i+1
ki.Movenext
Loop
ki.Close
Set ki=nothing
%>
      </table></td>
  </tr>
</table>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -