📄 search.asp
字号:
<!--#include File="conndb.asp"-->
<html>
<head>
<link href=style.css rel=STYLESHEET type=text/css>
</head>
<script language="javascript">
function newswin(url) {
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
oth = oth+",width=500,height=400";
var newswin=window.open(url,"newswin",oth);
newswin.focus();
return false;
}
function newOrder(url) {
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
oth = oth+",width=500,height=150";
var newOrder=window.open(url,"newOrder",oth);
newOrder.focus();
return false;
}
//放入购物车
function OpenBask(goodsid){
var url;
url = "/shop/shop/BasketIn.asp?id=" + goodsid;
newOrder(url);
}
</script>
<body>
<%
'取得查询条件
Dim itype, gname, whereTo, tpid
Set rs = Server.CreateObject("ADODB.RECORDSET")
tpid = Request.QueryString("tpid")
'根据不同情况生成WHERE子句whereTo
If tpid<>"" Then
'显示指定分类的所有商品信息，tpid代表分类编号
whereTo = "Where TypeId=" & Cint(tpid)
itype = iflag
Else
'在指定分类中，查询指定商品
itype = Request.QueryString("tid")
gname = Request.QueryString("gname")
If isNull(gname) Or Len(gname)=0 Then
whereTo = "Where TypeId=" & Cint(itype)
Else
whereTo = "Where TypeId=" & Cint(itype) & " And Name Like '%" & gname & "%'"
End If
End If
%>
<center>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr><td colspan="3" height="80"><img src="images/shop.jpg" border="0"></td></tr>
<tr><td colspan="3" bgcolor="#E1F5FF" height="19" valign="middle" align="right">
<a href="/shop/index.asp">主页</a>
<a href="/shop/shop/Basket.asp?pageid=0">去购物车</a>
<a href="/shop/shop/Basket.asp?pageid=1">去收银台</a>
<a href="/shop/shop/Basket.asp?pageid=2">我的订单</a>
</td></tr>
<tr>
<td width="100%" valign="top" align="center">
<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<tr>
<td width="100%" bgcolor="#63CFFF" height="18">
查询商品列表
</td>
</tr>
<tr>
<td width="100%" valign="top" align="left" height="1">
<table border="1" width="760" cellspacing="1" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<%
'处理分页显示，每页显示每种商品
Dim curpage
PERPAGE = 6
If Request.QueryString("page")="" Then
curpage = 1
Else
curpage = Cint(Request.QueryString("page"))
End If
'读取并显示商品信息
Dim n
n = 0
'设置SELECT语句，将满足条件（whereTo）商品数据读取到记录集rs中
sql = "SELECT * FROM Goods " & whereTo & " ORDER BY id DESC"
rs.Open sql, conn, 1, 1
If rs.EOF Then
%>
<tr><td width="100%" valign="top" align="left" colspan="6" bgcolor="#FFFFFF">暂且没有商品</td></tr>
<%
Else
'如果记录集不为空，则显示商品信息
Dim i
rs.PageSize = PERPAGE
rs.AbsolutePage = curpage
For i = 1 To rs.pagesize
'如果设置每页超过6个商品，则每显示6个商品则换行
If (i Mod 6)=1 Then
Response.Write "<tr>"
End If
%>
<td valign="top" align="left" bgcolor="#FFFFFF" width="126"><p align="center">
<%
If isNull(rs("ImageFile")) Or rs("ImageFile")="" Then
'处理无图片的情况
%>
<img border="0" src="/shop/images/noImg.jpg" width="90" height="110">
<%Else%>
<a href="/shop/admin/images/<%=rs("ImageFile")%>" target="blank">
<img border="0" src="/shop/admin/images/<%=rs("imageFile")%>" width="90" height="110"></a>
<%End If%>
</center>
<br>商品名称：<%=rs("name")%><br>
商品编号：<%=rs("Sn_Number")%><br>
商品价格：<%=rs("SalePrice")%>元<br>
浏览次数：<%=rs("ReadCount")%><br>
<center>
<a href="GoodsView.asp?id=<%=rs("id")%>" onclick="return newswin(this.href)">详细资料</a><br>
<a href='javascript:OpenBask(<%=rs("id")%>)'><img border="0" src="/shop/images/order.gif"></a>
</center>
</td>
<center>
<%
If (i Mod 6)=6 Then
Response.Write "</tr>"
End If
rs.MoveNext
If rs.EOF Then
If i<6 Then
For j=i+1 To 6
Response.Write "<td> </td>"
Next
End If
i = i + 1
Exit For
End If
Next
%>
</tr>
</table>
</center>
</td>
</tr>
<tr>
<td width="100%" valign="top" align="left" height="5"></td>
</tr>
<tr>
<td width="100%" valign="top" align="left" height="1"></td>
</tr>
<tr><td width='100%' height=15 colspan=3><center> 第<%=Cstr(curpage)%>页/总<%=Cstr(rs.pagecount) %>页
本页<%=Cstr(i-1)%>条/总<%=Cstr(rs.recordcount) %>条
<%
If curpage = 1 Then
Response.Write "首页 上一页 "
Else
Response.Write "<a href='Search.asp?page=1&flag="&iflag&"&tid="&itype&"&gname="&gname&"'>首页</a> "
Response.Write "<a href='Search.asp?page="&cstr(curpage-1)&"&flag="&iflag&"&tid="&itype&"&gname="&gname&"'>上一页</a> "
End If
If curpage = rs.pagecount then
Response.Write "下一页 尾页"
Else
Response.Write "<a href='Search.asp?page="&cstr(curpage+1)&"&flag="&iflag&"&tid="&itype&"&gname="&gname&"'>下一页</a> "
Response.Write "<a href='Search.asp?page="&cstr(rs.pagecount)&"&flag="&iflag&"&tid="&itype&"&gname="&gname&"''>尾页</a>"
End If
End If
%>
</td></tr>
</table>
<p align=center><a href="javascript:window.close();">[关闭]</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -