因太多，恐大家看起来吃力所以只附上上半部分。今附上全部。
<!-- #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> 共找到<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")&" "
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
%>
