📄 index.asp
字号:
<!--#include File="ConnDB.asp"-->
<html>
<head>
<title>网上图书商城</title>
<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="#c2c9e0" 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="#c2c9e0" bordercolordark="#FFFFFF">
<tr><td width="50%" bgcolor="#c2c9e0" height="18">最新加入图书</td></tr>
<tr><td width="100%" valign="top" align="left" height="1">
<table border="1" width="100%" cellspacing="1" bordercolorlight="#c2c9e0" bordercolordark="#FFFFFF">
<tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
'设置SQL语句，查询最新添加的3个图书，读取到记录集rs中
sql = "SELECT Top 3 * FROM Books 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")) or rs("ImageFile")="" Then
%>
<img border="0" src="/shop/images/noImg.jpg" width="100" height="110">
<%
Else
%>
<a href="/shop/admin/images/<%=rs("ImageFile")%>" target="blank">
<img border="0" src="/shop/admin/images/<%=rs("imageFile")%>" width="100" height="110"></a>
<%
End If
%>
</center>
<br>图书名称：<%=rs("BookName")%>
<br>ISBN：<%=rs("ISBN")%>
<br>图书价格：<%=rs("SalePrice")%>元
<br>浏览次数：<%=rs("ReadCount")%>
<br><center>
<a href="BookView.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="#c2c9e0" bordercolordark="#FFFFFF">
<tr>
<td width="100%" bgcolor="#c2c9e0" height="18">
热卖图书
</td>
</tr>
<tr>
<td width="100%" valign="top" align="left" height="1">
<table border="1" width="100%" cellspacing="1" bordercolorlight="#c2c9e0" bordercolordark="#FFFFFF">
<tr>
<%
'设计SQL语句，读取BuyCount值最大的3个图书信息
sql = "SELECT Top 3 * FROM Books 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")) or 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("BookName")%>
<br>ISBN：<%=rs("ISBN")%>
<br>图书价格：<%=rs("SalePrice")%>元
<br>浏览次数：<%=rs("ReadCount")%><br><font color=red>
<br><center><a href="BookView.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 + -