📄 listquest.asp
字号:
<%@LANGUAGE="VBSCRIPT"%> <!-- 设置该页的主脚本语言 -->
<!--#include file="../../Connections/sell.asp" -->
<%
'设置查询条件
if Request("cif")<>"" and Request("ccif")<>"" and Request("qvalue")<>"" then
session("MMColParam") = ""
if (Request("qvalue") <> "") then session("MMColParam") = Request("qvalue")
session("varcif")= ""
if (Request("cif") <> "") then session("varcif") = Request("cif")
session("varccif") = "ALL"
if (Request("ccif") <> "") then session("varccif") = Request("ccif")
else
if session("varccif")="" then
session("varccif")="ALL"
end if
end if
%>
<%
'创建Recordset对象实例
set rsspinfo = Server.CreateObject("ADODB.Recordset")
'设置查询字符串
if session("varccif") = "LIKE" then
sql ="SELECT ID,spname,jc,cd,dw,gg,bz,ph,pzwh,gysname,memo FROM dbo.tab_brand WHERE "&_
Replace(session("varcif"), "'", "''") & " " & Replace(session("varccif"), "'", "''") &_
" '%" & Replace(session("MMColParam"), "'", "''") & "%'"
else
if session("varccif") = "ALL" then
sql = "SELECT ID,spname,jc,cd,dw,gg,bz,ph,pzwh,gysname,memo FROM dbo.tab_brand"
else
sql ="SELECT ID,spname,jc,cd,dw,gg,bz,ph,pzwh,gysname,memo FROM dbo.tab_brand WHERE "&_
Replace(session("varcif"), "'", "''") & " " & Replace(session("varccif"), "'", "''") &_
" '" + Replace(session("MMColParam"), "'", "''") & "'"
end if
end if
rsspinfo.open sql,conn,3,3
%>
<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="147">
<tr>
<td valign="top" height="142">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="134">
<tr>
<td height="78">
<%if rsspinfo.eof then
response.Write("<div align='right'>无商品信息！</div>")
else
'分页'
rsspinfo.pagesize=3
page=CLng(Request("page"))
if page<1 then page=1
rsspinfo.absolutepage=page
for i=1 to rsspinfo.pagesize%>
<table width="590" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td> </td>
</tr>
</table>
<table width="590" border=1 bordercolor=#ffffff bordercolordark=#ffffff
bordercolorlight=#0099ff cellpadding=-1 cellspacing=0 height="54" align="center">
<tr bgcolor="#dddddd">
<td width="202" bgcolor="#D9ECFF"><font color="#336699">商品编号：<%=rsspinfo("ID")%></font></td>
<td width="259" bgcolor="#D9ECFF"><font color="#336699">规格： <%=rsspinfo("gg")%></font></td>
<td bgcolor="#D9ECFF" width="121"><font color="#336699">简称： <%=rsspinfo("jc")%></font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="202" bgcolor="#D9ECFF"><font color="#336699">商品名称： <%=rsspinfo("spname")%></font></td>
<td width="259" bgcolor="#D9ECFF"><font color="#336699">包装：
<%=rsspinfo("bz")%></font></td>
<td bgcolor="#D9ECFF" width="121"><font color="#336699">产地： <%=rsspinfo("cd")%></font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="202" bgcolor="#D9ECFF"><font color="#336699">批号：
<%=rsspinfo("ph")%></font></td>
<td bgcolor="#D9ECFF"><font color="#336699">供应商全称：
<%=rsspinfo("gysname")%></font></td>
<td bgcolor="#D9ECFF"><font color="#336699">计量单位： <%=rsspinfo("dw")%></font></td>
</tr>
<tr bgcolor="#dddddd">
<td bgcolor="#D9ECFF"><font color="#336699">批准文号：
<%=rsspinfo("pzwh")%></font></td>
<td colspan="2" bgcolor="#D9ECFF"><font color="#336699">备注：
<%=rsspinfo("memo")%></font></td>
</tr>
</table>
<%
rsspinfo.movenext
if rsspinfo.eof then exit for
next %>
<table width="590" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td width="293">
<% 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<>rsspinfo.pagecount then %>
<a href=<%=path%>?page=<%=(page+1)%> class="l">下一页</a>
<a href=<%=path%>?page=<%=rsspinfo.pagecount%> class="l">最后一页</a>
<%end if %>
<%end if %>
</td>
<td width="297">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -