📄 tongmaoli.asp

📁 本软件程序是一个基于WEB的进销存管理平台,代码十分完整,无错!
💻 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
Recordset2__MMColParam3 = "1"
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">毛利统计&gt;&gt;<br>
        &nbsp; </font><font color="#FF0000">统计时间: 
        <% =now() %>
        </font></p>
      </td>
    <td width="16%"><strong><font color="#6AB5FF"> 
      <input name="imageonclick=&quot;document.execCommand('print','true','true')&quot;" type=image onClick="document.execCommand('print','true','true')" value="打印" src="images/printpage.gif" width="16" height="16">
      &nbsp;&nbsp; 
      <input name="imageonclick=&quot;document.execCommand('saveas','true','.htm')&quot;" 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 + -