?? tongmaoli.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set ObjReference = Server.CreateObject("jxc1.check")
ObjReference.myfilee()
%>
<!--#include file="../../Connections/jxc.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("time1") <> "") Then
Recordset1__MMColParam = Request.QueryString("time1")
End If
%>
<%
Dim Recordset1__MMColParam2
Recordset1__MMColParam2 = "1"
If ("有效" <> "") Then
Recordset1__MMColParam2 = "有效"
End If
%>
<%
Dim Recordset1__MMColParam3
Recordset1__MMColParam3 = "1"
If ("從供貨客戶進貨" <> "") Then
Recordset1__MMColParam3 = "從供貨客戶進貨"
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_jxc_STRING
Recordset1.Source = "SELECT * FROM jin WHERE jidcode LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' AND zhuangtai = '" + Replace(Recordset1__MMColParam2, "'", "''") + "' AND xingzhi = '" + Replace(Recordset1__MMColParam3, "'", "''") + "' ORDER BY jidcode DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
if recordset1.eof and recordset1.bof then
response.write("沒有進庫記錄")
end if
dim jinshu,jinzongjia
jinshu = 0
jinzongjia = 0
do while not recordset1.eof
jinzongjia =jinzongjia + recordset1("shu") * recordset1("jiage")
recordset1.movenext
loop
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.QueryString("time1") <> "") Then
Recordset2__MMColParam = Request.QueryString("time1")
End If
%>
<%
Dim Recordset2__MMColParam2
Recordset2__MMColParam2 = "1"
If ("有效" <> "") Then
Recordset2__MMColParam2 = "有效"
End If
%>
<%
Dim Recordset2__MMColParam3
If ("銷給客戶" <> "") Then
Recordset2__MMColParam3 = "銷給客戶"
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_jxc_STRING
Recordset2.Source = "SELECT * FROM xiao WHERE xidcode LIKE '%" + Replace(Recordset2__MMColParam, "'", "''") + "%' AND zhuangtai = '" + Replace(Recordset2__MMColParam2, "'", "''") + "' AND xingzhi = '" + Replace(Recordset2__MMColParam3, "'", "''") + "' ORDER BY xidcode DESC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
if recordset1.eof and recordset1.bof then
response.write("沒有出庫記錄")
end if
dim jinshu2,jinzongjia2
jinshu2 = 0
jinzongjia2 = 0
do while not recordset2.eof
jinzongjia2 =jinzongjia2 + recordset2("shu") * recordset2("jiage")
recordset2.movenext
loop
Recordset2_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="84%"><p><img src="images/icon-page.gif" width="16" height="15"><font color="#B5B5FF">毛利統計>><br>
</font><font color="#FF0000">統計時間:
<% =now() %>
</font></p>
</td>
<td width="16%"><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><% dim maoli
maoli= jinzongjia2 - jinzongjia
%>
<td><strong>◇</strong>你要統計的時間段是<font color="#FF0000"><%= Recordset1__MMColParam %></font>,<br>
<strong>◇</strong>在這段時間內總的進庫價格是RMB<font color="#FF0000"><%= jinzongjia %></font> <br>
<strong>◇</strong>在這段時間內總的出庫價格是RMB<font color="#FF0000"><%= jinzongjia2 %></font> <br>
<strong>◇</strong>出庫與進庫的差價是RMB<font color="#FF0000"><%=maoli %></font></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -