📄 tongji.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 ku"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<html>
<head>
<title>www.71base.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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><img src="images/icon-page.gif" width="16" height="15"><font color="#4289F4">报表统计>><strong></strong><font color="#4289F4">（ 以下时间段表示格式范例
年：<font color="#FF0000">2002</font> 月：<font color="#FF0000">200201</font>
日：<font color="#FF0000">20020101</font> ）</font></font></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#0066FF">
<tr>
<td bgcolor="#F2F2F2"><strong> ◇入库统计：</strong>(只统计从客户进货记录)</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <form name="form1" method="get" action="tongjin.asp">
<strong> </strong>货品编号：
<input name="hidcode" type="text" id="hidcode" value="h">
时间段：
<input name="time1" type="text" id="time1" value="j">
<input type="submit" name="Submit2" value="提交">
<br>
</form></td>
</tr>
<tr>
<td bgcolor="#EFEFEF"> <p><strong> ◇出库统计</strong>：(只统计销给用户)</p></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <form name="form2" method="get" action="tongxiao.asp">
<strong> </strong>货品编号：
<input name="hidcode" type="text" id="hidcode" value="h">
时间段：
<input name="time1" type="text" id="time1" value="x">
<input type="submit" name="Submit" value="提交">
<br>
</form></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"><strong> ◇库存金额</strong>：</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="tongkuzongjia.asp"> 按此统计在库货品总金额货品编号</a>（货品价格以最后进库价格为基准）
<br>
</td>
</tr>
<tr>
<td bgcolor="#F2F2F2"><strong> ◇毛利统计：</strong>(统计某时间段的入库金额与出库金额的差额)</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <form name="form3" method="get" action="tongmaoli.asp">
<strong> </strong><strong> </strong>时间段：
<input name="time1" type="text" id="time1" value="2003">
<input type="submit" name="Submit3" value="提交">
(时间段必填,如:<font color="#FF0000">200306<font color="#000000">,即可统计2003年6月的毛利</font></font><font color="#000000">)</font>
</form></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"><strong> ◇作废入库统计</strong>：</td>
</tr>
<tr>
<td height="35" bgcolor="#FFFFFF"> <form name="form4" method="get" action="tongjinfei.asp">
<strong> </strong>时间段：
<input name="time1" type="text" value="j">
<input type="submit" name="Submit7" value="提交">
</form></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"><strong> ◇作废出库统计：</strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <form name="form6" method="get" action="tongxiaofei.asp">
<strong> </strong> <strong> </strong>时间段：
<input name="time1" type="text" value="x">
<input type="submit" name="Submit5" value="提交">
<br>
</form></td>
</tr>
<tr>
<td bgcolor="#F2F2F2"><strong> ◇出库性质统计：</strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <form name="form8" method="get" action="tongxiaoxingzhi.asp">
<strong> </strong> <strong> </strong>库名： 出库性质：
<select name="xingzhi">
<option>……请选择……</option>
<option value="销给客户">销给客户</option>
<option value="退给供货客">退给供货客户</option>
<option value="自耗">自耗</option>
<option value="报废">报废</option>
</select>
时间
<input name="time1" type="text" value="x">
<input type="submit" name="Submit4" value="提交">
<br>
</form></td>
</tr>
<tr>
<td bordercolor="#F2F2F2" bgcolor="#F2F2F2"> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -