📄 rkbrowse.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/sell.asp" -->
<%
if request.Form("ccif")<>"" then
session("MMColParam") = ""
if (Request("qvalue") <> "") then session("MMColParam") = Request("qvalue")
if (Request("cif") <> "") then session("varcif") = Request("cif")
if (Request("ccif") <> "") then session("varccif") = Request("ccif")
if (Request("andor") <> "") then session("varandor") = Request("andor")
if (Request("sdate") <> "") then session("varsdate") = Request("sdate")
if (Request("edate") <> "") then session("varedate") = Request("edate")
else
if session("varccif")="" then
session("varccif")="ALL"
end if
end if
set rsrkinfo = Server.CreateObject("ADODB.Recordset")
if session("varccif") = "LIKE" then
sql = "SELECT * FROM dbo.tab_ruku WHERE " + Replace(session("varcif"), "'", "''") +_
" " + Replace(session("varccif"), "'", "''") + " '%" +_
Replace(session("MMColParam"), "'", "''") + "%' " + Replace(session("varandor"), "'", "''") +_
" rkdate BETWEEN '" + Replace(session("varsdate"), "'", "''") + "' AND '" +_
Replace(session("varedate"), "'", "''") + "'"
else
if session("varccif") = "ALL" then
sql = "SELECT * FROM dbo.tab_ruku"
else
sql = "SELECT * FROM dbo.tab_ruku WHERE " + Replace(session("varcif"), "'", "''") +_
" " + Replace(session("varccif"), "'", "''") + " '" +_
Replace(session("MMColParam"), "'", "''") + "' " +_
Replace(session("varandor"), "'", "''") + " rkdate BETWEEN '" +_
Replace(session("varsdate"), "'", "''") + "' AND '" +_
Replace(session("varedate"), "'", "''") + "'"
end if
end if
rsrkinfo.open sql,conn,1,3
if (Request("hbz")="1") then message
sub message()
if rsrkinfo.eof then Response.Write "<script language=""" & "javascript""" &_
"> alert(""" & "无符合条件的记录！""" & ");history.back(); </script>"
end sub%>
<html>
<head>
<title>明日企业网上销售管理系统--商品入库查询！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../../images/bg.gif">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="134">
<tr>
<td valign="top">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="124">
<% total=0
rsrkinfo.pagesize=3
page=CLng(Request("page"))
if page<1 then page=1
rsrkinfo.absolutepage=page
for i=1 to rsrkinfo.pagesize %>
<tr>
<td height="10" colspan="2" valign="top">
</td>
</tr>
<tr>
<td width="590">
<table width="590" border=1 bordercolor=#ffffff bordercolordark=#ffffff
bordercolorlight=#0099ff cellpadding=-1 cellspacing=0 height="54" align="center">
<tr bgcolor="#dddddd">
<td width="165" bgcolor="#D9ECFF"><font color="#336699">入库</font><font color="#336699">票号：<%=(rsrkinfo.Fields.Item("ID").Value)%></font></td>
<td width="227" bgcolor="#D9ECFF"><font color="#336699">商品编号：<%=(rsrkinfo.Fields.Item("spid").Value)%></font></td>
<td bgcolor="#D9ECFF" width="190"><font color="#336699">商品名称：<%=(rsrkinfo.Fields.Item("spname").Value)%></font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="165" bgcolor="#D9ECFF" height="19"><font color="#336699">简称：<%=(rsrkinfo.Fields.Item("jc").Value)%></font></td>
<td width="227" bgcolor="#D9ECFF" height="19"><font color="#336699">产地：<%=(rsrkinfo.Fields.Item("cd").Value)%></font></td>
<td bgcolor="#D9ECFF" width="190" height="19"><font color="#336699">规格：<%=(rsrkinfo.Fields.Item("gg").Value)%></font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="165" bgcolor="#D9ECFF"><font color="#336699">包装：<%=(rsrkinfo.Fields.Item("bz").Value)%></font></td>
<td width="227" bgcolor="#D9ECFF"><font color="#336699">单价：<%=(rsrkinfo.Fields.Item("dj").Value)%></font></td>
<td bgcolor="#D9ECFF" width="190"><font color="#336699">数量：<%=(rsrkinfo.Fields.Item("sl").Value)%>( <%=(rsrkinfo.Fields.Item("dw").Value)%>)</font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="165" bgcolor="#D9ECFF"><font color="#336699">金额：<%=(rsrkinfo.Fields.Item("je").Value)%></font></td>
<td width="227" bgcolor="#D9ECFF"><font color="#336699">供应商</font><font color="#336699">全称：<%=(rsrkinfo.Fields.Item("gysname").Value)%></font></td>
<td bgcolor="#D9ECFF" width="190"><font color="#336699">入库日期：<%=(rsrkinfo.Fields.Item("rkdate").Value)%></font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="165" bgcolor="#D9ECFF"><font color="#336699">操作员：<%=(rsrkinfo.Fields.Item("czy").Value)%></font></td>
<td bgcolor="#D9ECFF" width="227"><font color="#336699">经手人：<%=(rsrkinfo.Fields.Item("jsr").Value)%></font></td>
<td bgcolor="#D9ECFF" width="190"><font color="#336699">结算方式：<%=(rsrkinfo.Fields.Item("jsfs").Value)%></font></td>
</tr>
</table>
</td>
</tr>
<% rsrkinfo.movenext
total=total+1
if rsrkinfo.eof then exit for
next %>
<tr>
<td>
<table width="590" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td width="197">
<% if page<>1 then %><a href=<%=path%>?page=1 class="l">第一页</a>
<a href=<%=path%>?page=<%=(page-1)%> class="l">上一页</a>
<%end if
if page<>rsrkinfo.pagecount then %>
<a href=<%=path%>?page=<%=(page+1)%> class="l">下一页</a>
<a href=<%=path%>?page=<%=rsrkinfo.pagecount%> class="l">最后一页</a>
<%end if %>
</td>
<td width="393">
<div align="right">
<% If Not rsrkinfo.EOF Or Not rsrkinfo.BOF Then %>
<font color="#00CCFF">从 <%=(page-1)*3+1%> 到 <%=(page-1)*3+total%> 共
<%=rsrkinfo.recordcount%></font> <font color="#00CCFF">条记录</font>
<% End If %>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -