searchresult.asp

fger th t ytwety w4t qrt 43 q34rt5 q34t3q4t

<!-- #include file="config.inc" -->
<%
' 根据查询表达式在数据库中进行商品检索，并且把检索结果输出到浏览器中
' 检索结果将分页显示，所以需要接收page参数，page参数表明用户需要查看的页面数。另外，检索数据库的SQL语句参数使用searchstr变量来接收
   searchstr=trim(request.querystring("sqlstring"))
   page=request.querystring("page")
' 如果page参数不合法，则将page值设置为1，即首页
   if page="" then
      page=1
   end if
' 连接数据库，根据查询表达式searchstr打开商品信息表
   set conn=server.createobject("adodb.connection")
   conn.open Connstring
   set rs=Server.CreateObject("ADODB.Recordset")
   rs.open searchstr,conn,1,3
' 如果在数据库中没有找到符合条件的商品，则提示用户数据库中暂时没有所需要的商品，并结束当前程序的执行
if rs.eof then
   response.write "<br><font class=class2>您的位置：查询结果</font><hr color=#999933 size=1>"
   response.write "<center><br><br><br>对不起，您要求的商品没有找到.</center>"
   response.end
end if

' 下面分页显示检索结果。在这里可以看到，分页程序使用的非常广泛，读者应当十分熟练的掌握这种方法
 ' pagesize定义在config.inc中，值为5，表明每页显示5条记录
    ipagesize=pagesize 
 ' 定义该记录集每页记录条数为5
    rs.pagesize=ipagesize 
 ' 根据每页显示记录条数计算出总共的页数
    pagetotal=rs.pagecount 
    ipagecurrent=page       ' 当前页面
    rs.movefirst  

' 将记录指针移动到要求页面的开始
for temp=1 to (cint(page)-1)*ipagesize
    rs.movenext
next
' 下面开始使用表格来显示检索结果。
 response.write "<br><font class=class2>您的位置：查询结果</font><BR><BR>&nbsp;&nbsp;共找到<font color=ff0000>"&rs.recordcount&"</font>条记录，分<font color=ff0000>"&pagetotal&"</font>页显示，每页<font color=ff0000>"&ipagesize&"</font>条。当前为第<font color=ff0000>"&ipagecurrent&"</font>页</font>"

' 规范化统一资源位置地址码
searchstr=server.urlencode(searchstr) 
for pagetemp=1 to pagetotal
  ' 如果是当前页面，则不予超级链接
  if cint(pagetemp)=cint(ipagecurrent) then 
     response.write "<font color=#CC00FF>"& pagetemp & "></font>"
  else  ' 给其他页面提供超级链接
 %>
<font color=#009900>
    <A HREF="searchresult.asp?page=<%=pagetemp%>&sqlstring=<%=searchstr%>">
<%=pagetemp%></A>></font>
<%
  end if
next
response.write "<hr color=#999933 size=1>"

ipoint=1 ' 循环变量，描述记录指针的位置 
do while ipoint<=ipagesize
    response.write "<br>"
    Response.Write "<TABLE width= ""450"" BORDER= ""1"" bordercolor=""#339999"" align=""center"" class=class1>" 
    Response.Write "<TR><td width=130>"
	Response.Write "<center>商品名称</center>"
	Response.Write "</td><td width=180>" 
    Response.Write "<center>商品简介</center>"
	Response.Write "</td><td width=80>" 
    Response.Write "<center>商品价格</center>"
	Response.Write "</td><td width=80>"
	Response.Write "<center>商品品牌</center>"
	Response.Write "</td><td width=80>"
	response.write "<center>现在就买</center>"
    Response.Write "</td></TR>"
    Response.Write "<TR align=""center""><td width=150>"
 %>
   <a href="prodetail.asp?productid=<%=rs("productid")%>" title="查看详细介绍"><%=rs("name")%></a>
  <%
	Response.Write "</Td><td width=180>" 
    Response.Write rs("description")&"&nbsp;"
    Response.Write "</TD><td width=80>" 
    Response.Write rs("Price")
    Response.Write "</td><td width=80>"
	Response.Write rs("NameTag")
    Response.Write "</TD><td width=80>" 
  %>
<!-- 用户可以通过单击该图标把当前商品加入到购物车中 -->
	<img src="image/cart.gif" name="cart" style="cursor:hand" onclick="window.open('pushcart.asp?productid=<%=rs("productid")%>&productname=<%=rs("name")%>&price=<%=rs("price")%>&photo=<%=rs("photo")%>','_blank','toolbars=no,scrollbars=no,width=500,height=350')">
  <%
	Response.Write "</td></tr>" 
	Response.Write "</TABLE><br>"
    ipoint=ipoint+1
    rs.movenext
    if rs.eof then  '  记录指针到了表的末尾
	    exit do
    end if
loop

'关闭数据库连接
conn.close
set conn=nothing
set rs=nothing
%>