📄 index.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/BasketIn.asp?id=" + goodsid;
newOrder(url);
}
</Script>
<body>
<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/Basket.asp?pageid=0">去购物车</a>
<a href="shop/Basket.asp?pageid=1">去收银台</a>
<a href="shop/Basket.asp?pageid=2">我的订单</a>
</td></tr>
<tr><td width="25%" valign="top" align="left"><!--#include file="left.asp"--></td>
<td width="50%" valign="top" align="center">
<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<tr><td width="50%" bgcolor="#63CFFF" height="18">最新加入商品</td></tr>
<tr><td width="100%" valign="top" align="left" height="1">
<table border="1" width="100%" cellspacing="1" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
'设置SQL语句，查询最新添加的3个商品，读取到记录集rs中
sql = "SELECT Top 3 * FROM Goods ORDER BY id DESC"
Set rs = Conn.Execute(sql)
'如果没有找到商品，则显示提示信息
If rs.EOF Then
%>
<td width="100%" valign="top" align="left" bgcolor="#FFFFFF">暂且没有商品</td>
<%
End If
'否则使用循环语句，依次显示商品信息
Do While Not rs.EOF
%>
<td valign="top" width="33.33%" align="left" bgcolor="#FFFFFF">
<p align="center">
<%
'显示商品图片
If isNull(rs("ImageFile")) Then
%>
<img border="0" src="images/noImg.jpg" width="100" height="110">
<%
Else
%>
<a href="admin/images/<%=rs("ImageFile")%>" target="blank">
<img border="0" src="admin/images/<%=rs("imageFile")%>" width="100" 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="images/order.gif"></a>
</center></td>
<center>
<%
rs.MoveNext
Loop
rs.Close
%>
</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>
<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="100%" cellspacing="1" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<tr>
<%
'设计SQL语句，读取BuyCount值最大的3个商品信息
sql = "SELECT Top 3 * FROM Goods ORDER BY BuyCount DESC"
rs.Open sql, conn, 3, 3
'如果没有查找到商品，则显示提示信息
If rs.EOF Then
%>
<td valign="top" align="left" height="207" bgcolor="#FFFFFF">暂且没有商品</td>
<%
End If
'依次显示商品详细信息
Do While Not rs.EOF
%>
<td align="center" width="33.33%" bgcolor="#FFFFFF">
<%
'显示商品图片信息
If isNull(rs("ImageFile")) Then
%>
<img border="0" src="images/noImg.jpg" width="100" height="110">
<%
Else
%>
<a href="admin/images/<%=rs("ImageFile")%>" target="blank">
<img border="0" src="admin/images/<%=rs("imageFile")%>" width="100" height="110"></a>
<%
End If
%>
</center><br>商品名称：<%=rs("Name")%>
<br>商品编号：<%=rs("Sn_Number")%>
<br>商品价格：<%=rs("SalePrice")%>元
<br>浏览次数：<%=rs("ReadCount")%><br><font color=red>
<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="images/order.gif"></a></center></td><center>
<%
rs.MoveNext
Loop
rs.Close
%>
</tr></table>
</td>
</tr>
</table>
</td>
<td width="25%" valign="top" align="left">
<!--#include file="right.asp"--></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -