📄 product_search.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" -->
<%
dim cn, rs, sql
'指示当前活动的菜单项
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
pageno = Request.QueryString("pageno")
parentcode = Request.QueryString("parentcode")
price = Request.QueryString("price")
title = fixedReplaceStr(Request.QueryString("title"), 20)
if not isnumeric(parentcode) then parentcode = ""
if not isnumeric(price) then price = 0 else price = cint(price)
search = "select prono, title, protype, intro, price,picflag,picflag2 from product where state='1'"
if parentcode <> "" and parentcode <> 0 then search = search & " and left(classcode,3)='"&parentcode&"'"
select case price
case 1: search = search & " and price < 1000"
case 2: search = search & " and price between 1000 and 2000"
case 3: search = search & " and price between 2000 and 3000"
case 4: search = search & " and price between 3000 and 4000"
case 5: search = search & " and price between 4000 and 5000"
case 6: search = search & " and price > 5000"
end select
if title <> "" then search = search & " and title like '%"&title&"%'"
search = search & " order by sortnum desc"
%>
<!-- #include file="begin.asp" -->
<table width="1002" height="137" border="0" cellpadding="0" cellspacing="0" background="images/top_15.jpg">
<tr>
<td width="779"><img src="images/O2.jpg" width="779" height="137"></td>
<td width="223"> </td>
</tr>
</table>
<table width="1002" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="162" valign="top" bgcolor="#F4F4F4">
<!-- #include file="inc_productclass.asp" -->
</td>
<td width="617" valign="top" background="images/index4_15.jpg">
<table width="617" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="13" height="31" background="images/index4_11.jpg"><img src="images/list2.jpg" width="5" height="31"></td>
<td width="604" valign="bottom" background="images/index4_11.jpg">
<table width="30%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" height="17"><img src="images/list.gif" width="14" height="13"></td>
<td width="88%">产品搜索</td>
</tr>
<tr>
<td height="4" colspan="2"> </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" align="center" valign="top">
<!-- #include file="inc_search2.asp" //-->
<%
rs.Open search,cn,1,1,1
pagesize = 4
rs.PageSize=pagesize
if not isnumeric(pageno) then
pageno = 1
else
pageno = cint(pageno)
end if
if pageno < 1 then pageno = 1
pagecount = rs.PageCount
reccount = rs.RecordCount
if pagecount > 0 then rs.AbsolutePage = pageno
i=1
do while not rs.EOF and i<=pagesize
%>
<table width="586" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6"><img src="images/oeerrre_28.jpg" width="586" height="6"></td>
</tr>
<tr>
<td valign="top">
<table width="586" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="392" height="100" align="center" background="images/oeerrre_30.jpg">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36%" align="center">
<%
if rs("picflag") = "1" then
if rs("picflag2") = "1" then
%>
<a href="admin/pic_displaybig.asp?code=product2&keyno=<%=rs("prono")%>" target="_blank" title="查看大图"><img src="admin/pic_display.asp?code=product&keyno=<%=rs("prono")%>" width="110" border="0"></a>
<%
else
%>
<img src="admin/pic_display.asp?code=product&keyno=<%=rs("prono")%>" width="110" border="0"></a>
<%
end if
else
%>
[暂无图片]
<%
end if
%>
</td>
<td width="64%" align="center">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15">
<img src="images/kk.gif" width="6" height="7"><strong><font color="#006300"> 产品名称：</font></strong><%=rs("title")%>
</td>
</tr>
<tr>
<td height="15">
<img src="images/kk.gif" width="6" height="7"></font><font color="#006300"><strong> 产品型号：</strong></font><%=rs("protype")%>
</td>
</tr>
<tr>
<td height="15">
<img src="images/kk.gif" width="6" height="7"><strong><font color="#006300"> 卖点功能：</font></strong><%=rs("intro")%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="194" align="right" valign="bottom" background="images/oeerrre_31.jpg">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" colspan="2">
<img src="images/kk.gif" width="6" height="9"> <font color="#006300"><strong>产品价格：<%=rs("price")%></strong></font>
</td>
</tr>
<tr>
<td colspan="2" align="center"> <a href="shopcart.asp?prono=<%=rs("prono")%>"><img src="images/tt2.jpg" width="102" height="26" border="0"></a></td>
</tr>
<tr>
<td><img src="images/kk.gif" width="6" height="9"> <a href="product_display.asp?prono=<%=rs("prono")%>" target="_blank" class="A4">点击查看详情</a></td>
<td align="right"><img src="images/oeerrre_35.jpg" width="45" height="33"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="8" background="images/oeerrre_37.jpg"> </td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"> </td>
</tr>
</table>
<%
i = i + 1
rs.MoveNext
loop
rs.Close
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="1" bgcolor="#999999"></td>
</tr>
<tr>
<td height="5" bgcolor="#f5f5f5"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"> <img src="images/jt.gif" width="23" height="11">共有<%=reccount%>个产品 [第<%=pageno%>页, 共<%=pagecount%>页]</td>
<td align="right">
<table width="70%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
if pageno > 1 then
%>
<td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
<td><a href="product.asp?classcode=<%=classcode%>&pageno=<%=pageno-1%>" class="A3">上一页</a></td>
<%
else
%>
<td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
<td>上一页</td>
<%
end if
if pageno < pagecount then
%>
<td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
<td><a href="product.asp?classcode=<%=classcode%>&pageno=<%=pageno+1%>" class="A3">下一页</a></td>
<%
else
%>
<td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
<td>下一页</td>
<%
end if
%>
</tr>
</table>
</td>
</tr>
<tr>
<td height="10" colspan="2" align="right"></td>
</tr>
</table></td>
</tr>
</table>
</td>
<td width="223" valign="top" background="images/list.jpg">
<!-- #include file="inc_hot.asp" //-->
</td>
</tr>
</table>
<!-- #include file="end.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -