📄 checkkcindex.asp
字号:
<%
path=request.ServerVariables("path_info")
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.open application("dsn")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%if request("hsub")="查询" then
session("sel")=request("hsel")
session("tj")=request("htj")
session("qname")=request("hqname")
end if
%>
<%'查询条件判断'
if session("tj")="=" then
sql="select * from tab_kucun where "&session("sel")&" = '"&session("qname")&"'"
end if
if session("tj")="like" then
sql="select * from tab_kucun where "&session("sel")&" like '%"&session("qname")&"%'"
end if
if session("tj")="all" then
sql="select * from tab_kucun"
end if
if (session("tj")=">"and session("sel")="kcsl") then
sql="select * from tab_kucun where "&session("sel")&" > "&session("qname")&""
else if (session("tj")=">") then
sql="select * from tab_kucun where "&session("sel")&" > '"&session("qname")&"'"
end if
end if
if (session("tj")="<" and session("sel")="kcsl") then
sql="select * from tab_kucun where "&session("sel")&" < "&session("qname")&""
else if (session("tj")="<") then
sql="select * from tab_kucun where "&session("sel")&" < '"&session("qname")&"'"
end if
end if
rs.open sql,conn,1,3
%>
<%if rs.eof then
response.write "<div align=center><font color=red>对不起！暂时没有您要找的数据！</font></div>"
response.end
end if%>
<%
'设置分页'
rs.pagesize=3
page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
show rs,page
%>
<%sub show(rs,page)%>
<%rs.absolutepage=page
for i=1 to rs.pagesize
total=total+rs("dj")*rs("kcsl")
%>
<table width="590" height="82" border=1 align="center" cellpadding=-1 cellspacing=0 bordercolor="#ffffff"
bordercolorlight="#9CA6C6" bordercolordark="#ffffff">
<tr bgcolor="#dddddd">
<td height="16" bgcolor="#D9ECFF"><font color="#336699">商品名称：<%=rs("spname")%></font></td>
<td bgcolor="#D9ECFF"><font color="#336699">简称：
<%=rs("jc")%>
</font></td>
<td bgcolor="#D9ECFF" width="185"><font color="#336699">产地：
<%=rs("cd")%>
</font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="208" bgcolor="#D9ECFF" height="17"><font color="#336699">规格：
<%=rs("gg")%>
</font></td>
<td width="189" bgcolor="#D9ECFF" height="17"><font color="#336699">包装：
<%=rs("bz")%>
</font></td>
<td bgcolor="#D9ECFF" width="185" height="17"><font color="#336699">单位：
<%=rs("dw")%>
</font></td>
</tr>
<tr bgcolor="#dddddd">
<td width="208" bgcolor="#D9ECFF"><font color="#336699">单价：
<%=rs("dj")%>
</font></td>
<td width="189" bgcolor="#D9ECFF"><font color="#336699">库存数量：
<%=rs("kcsl") %>
</font></td>
<td bgcolor="#D9ECFF" width="185"><font color="#336699">库存金额：
<%=rs("dj")*rs("kcsl")%>
</font></td>
</tr>
</table>
<br>
<%rs.movenext
if rs.eof then exit for
next%>
<%end sub%>
</p>
<p align="center">
<form action="checkkcindex.asp" method="get">
<div align="center">
<% if page<>1 then%>
<font size="2"> <a href=<%=path%>?page=1>第一页</a>
</font><a href=<%=path%>?page=<%=(page-1)%> >上一页</a>
<%end if
if page<>rs.pagecount then%>
<a href=<%=path%>?page=<%=(page+1)%>>下一页</a>
<a href=<%=path%>?page=<%=rs.pagecount%>>最后一页</a>
<%end if%>
<font color="#336699">输入页次
<input type="text" name="page" size="3">
页次 </font><font color=red><%=page%>/<%=rs.pagecount%></font> [ <a href="kcindex.asp">返回</a> ]</div>
</form>
<p></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -