📄 tongkuzongjia.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set ObjReference = Server.CreateObject("jxc1.check")
ObjReference.myfilee()
%>
<!--#include file="../../Connections/jxc.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_jxc_STRING
Recordset1.Source = "SELECT * FROM cun"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
dim jinshu,jinzongjia
jinzongjia = 0
do while not recordset1.eof
jinzongjia =jinzongjia + recordset1("shu") * recordset1("jiage")
recordset1.movenext
loop
Recordset1_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>www.71base.com</title>
<link href="CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body oncontextmenu="return false" >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="79%"><img src="images/icon-page.gif" width="16" height="15"><font color="#4289F4">库存总金额统计>><br>
</font><font color="#FF0000"> 统计时间:
<% =now() %>
</font><font color="#4289F4"> </font></td>
<td width="21%"><strong><font color="#6AB5FF">
<input name="imageonclick="document.execCommand('print','true','true')"" type=image onClick="document.execCommand('print','true','true')" value="打印" src="images/printpage.gif" width="16" height="16">
<input name="imageonclick="document.execCommand('saveas','true','.htm')"" type=image onClick="document.execCommand('saveas','true','.htm')" value="保存" src="images/saveas.gif" width="16" height="16">
</font></strong></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p>你要统计的的库存总金额是RMB<u><font color="#FF0000"><%= jinzongjia %></font></u>，（货品价格以最后进库价格为基准）<br>
<br>
</p>
</td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -