?? 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 + -