📄 class.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%dim nclassid
nclassid=request.querystring("nid")%>
<html>
<head>
<title><%=webname%>--商品分类</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
.pad {
PADDING-LEFT: 2px
}
</style>
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="webtop.asp"-->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/bj.gif">
<table width="748" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/bj_x.gif" height="1"></td>
</tr>
</table>
<table width="748" border="0" cellspacing="0" cellpadding="0" align="center" bordercolor="#6699CC">
<tr>
<td valign="top" width="198">
<div align="center">
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="77" rowspan="2">
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_0.gif" height="28">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td width=5> </td>
<td width=28>
<div align="center"><img src="images/index7.gif" width="14" height="10"></div>
</td>
<td class=hg12 valign=bottom width="83"> <b><font color="#990000">热点商品</font></b></td>
<td width=52><a href="bookorder.asp"><img src="images/more2.gif" width="42" height="13" border="0"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_1.gif">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,liulancount from shop_books order by liulancount desc",conn,1,1
if rs.eof and rs.bof then
response.write "对不起，请您先到程序后台添加商品。"
else
dim i
i=1
do while not rs.eof
%>
<table width="92%" border="0" cellspacing="0" cellpadding="0" height="17" align="center">
<tr>
<td width="13%"><%=i%></td>
<td width="87%">
<%response.write "<a href=book.asp?id="&rs("bookid")&" title=此商品已被浏览过"&rs("liulancount")&"次>"&trim(rs("bookname"))&"</a>"%>
</td>
</tr>
</table>
<%if i>9 then exit do
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
end if%>
</td>
</tr>
<tr>
<td background="images/bj_2.gif"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="57" valign="top">
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_0.gif" height="28">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td width=5> </td>
<td width=28>
<div align="center"><img src="images/index7.gif" width="14" height="10"></div>
</td>
<td class=hg12 valign=bottom width="83"> <b><font color="#990000">销售排行</font></b></td>
<td width=52><a href="bookorder.asp"><img src="images/more2.gif" width="42" height="13" border="0"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_1.gif">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,chengjiaocount from shop_books order by chengjiaocount desc",conn,1,1
if rs.eof and rs.bof then
response.write "还没有商品"
'response.End()
else
i=1
do while not rs.eof
%>
<table width="92%" border="0" cellspacing="0" cellpadding="0" height="17" align="center">
<tr>
<td width="13%"><%=i%></td>
<td width="87%">
<%response.write "<a href=book.asp?id="&rs("bookid")&" title=此商品已成功销售"&rs("chengjiaocount")&"次>"&trim(rs("bookname"))&"</a>"%>
</td>
</tr>
</table>
<%if i>9 then exit do
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
end if%>
</td>
</tr>
<tr>
<td background="images/bj_2.gif"> </td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
<td valign="top" width="1" background="images/bj_x.gif"></td>
<td width="540" valign="top">
<table width="520" border="0" cellspacing="0" cellpadding="0" bordercolor="#6699CC" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<%'开始分页
Const MaxPerPage=8
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
if nclassid="" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -