searchshop.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="top.asp"-->
<%product_name=trim(request("product_name"))%>
<%
sql="select * from search where gjc='"&product_name&"'"
Set RS1 = Server.CreateObject("ADODB.RecordSet") 
rs1.Open sql, Conn,3,3
if not rs1.eof then
		a=rs1("cs")
		b=a+1
conn.execute "update search set cs='"&b&"' where gjc='"&product_name&"'"
else
      Set rs2 = Server.CreateObject("ADODB.Recordset")
       rs2.Open "search",conn,1,2
	   rs2.addnew
       rs2("gjc")=product_name
       rs2("cs")=1
		rs2.update
 end if
 %>
<title><%=sitename%>--平价商品--商品搜索</title>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TBODY> 
    <TR> 
    <TD width=180 valign="top" bgcolor="#F2F2F2"> 
<!--#include file="include/56770_mlsmall.asp"-->
    </TD>
 <td width="10" valign="top"></td>
    <TD valign="top"> 
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" background="IMAGES/pics/tile_bg.gif" style="margin-bottom: 6">
          <tr bgcolor="#FFFFFF"> 
            
          <td height="100" colspan="2">
            <table border="0" width="80%" cellspacing="0" cellpadding="0" height="5" align="center">
  <%
   if request("sort_name")="" then
   sql="select * from 56770_product where product_name like '%"&product_name&"%' order by id DESC"
   else
  sql="select * from 56770_product where sort_name='"&request("sort_name")&"' and product_name like '%"&product_name&"%'  order by id DESC"
   end if
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,3,3
    if rs.eof then
  %>
     <tr> 
                <td width="380">没有你要找的商品，请缩短关键词长度</td>
              </tr>
              <%else%>
              <tr> 
                <td>&nbsp;</td>
              </tr>
          
<%
n=0
if not isempty(request("page")) then   
pagecount=cint(request("page"))   
else   
pagecount=1
end if

rs.pagesize=5
rs.AbsolutePage=pagecount

do while not rs.eof  %>
              <tr> 
                <td  valign="top" width="50%" align="center"> 
                  <table  border="0" cellspacing="0" cellpadding="0" align="center" width="100%">
                    <tr> 
                      <td colspan="3" height="25">&nbsp; 
                        <%
name=rs("product_name")
name=replace(name,product_name,"<font color=red>"&product_name&"</font>")
response.write name
%>
                      </td>
                    </tr>
                    <tr> 
                      <td rowspan="5" width="70" valign="top" align="center"> 
                        <a href="showproduct.asp?id=<%=rs("id")%>"><img border="0" src="pic/<%=rs("pic")%>" width="60" height="70" vspace="2" hspace="2"></a> 
                      </td>
                      <td height="20" width="124"> 市场价:<s><%=rs("sprice")%>元</s></td>
                    </tr>
                    <tr> 
                      <td colspan="3" height="20">
                        <%if rs("cx")=true  then %>
                         特价: <%=rs("cprice")%>.00<img src="images/tejia.gif">
                         <%else%>
                         商城价: <%=rs("price")%>.00
                       <%end if%>
                    </tr>
                  <tr> <td>
               <table  border="0" cellspacing="0" cellpadding="0" align="center" width="100%">
                    </tr>
                      <td width="200" colspan="2" height="20"><a href="showproduct.asp?id=<%=rs("id")%>" class=a2>详细资料</a>　　 
                        <a href="basket.asp?id=<%=rs("id")%>"><img src="IMAGES/in54_r44_c43.gif" border="0"></a></td>
                    </tr>
                  </table>
                   </td></tr>
                    <tr> 
                      <td colspan="3">&nbsp; </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td colspan="3" height="1" background="images/chanpin_x.gif"></td>
              </tr>
<%
n=n+1
rs.movenext
if n>=rs.pagesize then exit do
loop
%> 
            </table>
              </td>
          </tr>
        </table>
     <table width="560" border="0" cellspacing="0" cellpadding="0" align="center">
        <form action="searchshop.asp" method="post">
          <tr> 
            <td height="22"> 
              <div align="center">页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b> 
                <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
                <a href="searchshop.asp?product_name=<%=request("product_name")%>&page=<%=cstr(pagecount+1)%>"> 
                下一页</a> 
                <% end if %>
                <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
                <a href="searchshop.asp?product_name=<%=request("product_name")%>&page=<%=cstr(pagecount-1)%>"> 
                上一页</a> 
                <%end if%>
                <% if pagecount<>1 and rs.pagecount<>pagecount then%>
                <a href="searchshop.asp?product_name=<%=request("product_name")%>&page=<%=cstr(pagecount-1)%>"> 
                上一页</a> <a href="searchshop.asp?product_name=<%=request("product_name")%>&page=<%=cstr(pagecount+1)%>"> 
                下一页</a> 
                <% end if%>
                &nbsp; 直接到第 
                <select name="page">
                  <%for i=1 to rs.pagecount%>
                  <option value="<%=i%>"><%=i%></option>
                  <%next%>
                </select>
                页 
                <input type="submit" name="go" value="Go">
   <input type="hidden" name="product_name" value="<%=request("product_name")%>">
              </div>
            </td>
          </tr>
        </form>
        <%
end if
rs.close
set rs=nothing
%>
      </table>
    </TD>
    </TR>
    <TR> 
      <TD colSpan=5 height=2></TD>
    </TR>
  </TBODY>
</TABLE>
            </table>
              </td>
          </tr>
        </table>
<!--#include file="footer.asp"-->