📄 list.asp
字号:
<!--#include file="nt80.inc"--><html>
<head>
<title><%=name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=Stylesheet type=text/css>
</head>
<body bgcolor="#F3F3F3" text="#000000">
<!--#include file="top.asp"-->
<table width="759" border="0" cellspacing="0" cellpadding="0" align="center" height="447" bgcolor="#FFFFFF">
<tr>
<td height="34" colspan="3">
<!--#include file="gun.asp"--></td>
</tr>
<tr>
<td width="1" bgcolor="#CCCCCC"></td>
<td width="749">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="412">
<tr>
<td width="27%">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="50%">
<tr>
<td> <!--#include file="indexuse.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="235">
<tr>
<td bgcolor="#EBEBEB" height="7"></td>
</tr>
<tr>
<td bgcolor="#990000" height="32"><b><font color="#FFFFFF">本类商品排行</font></b></td>
</tr>
<tr>
<td bgcolor="#EBEBEB" height="7"></td>
</tr>
<tr>
<td><% set rs=server.createobject("adodb.recordset")
sql="SELECT top 10 stime,* from sp where ssid='"&request("lname")&"' and slei=1 "
sql=sql&"order by dian desc "
rs.open sql,conn,1,3
for x=1 to int(rs.recordcount)
%><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%">
<div align="center"><img src="img/go.gif" width="13" height="13"></div>
</td>
<td width="68%"><a href="voo.asp?id=<%=rs("id")%>"><%=rs("sname")%></a></td>
<td width="16%"><%=rs("dian")%></td>
</tr>
<%
rs.movenext
next
%>
</table>
</td>
</tr>
<tr>
<td><!--#include file="indexbz.asp"--></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="73%">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="420">
<tr>
<td><br>
<%
'可洛的分页
Dim PageSizer '// 每页显示数量
Dim TotalNumber '// 记录总数
Dim TotalPage '// 总页数
Dim CurrentPage '// 当前页码
Dim LName '// lname
Dim SQL '// SQL 语句
LName = Replace(Request("lname"),"'","''")
PageSizer = 6 '// 每页显示5个记录
if Request("Page")<1 Or Not IsNumeric(Request("Page")) Then
CurrentPage = 1
Else
CurrentPage = Cint(Request("Page"))
End if
TotalNumber = Conn.Execute("Select Count(id) From [sp] Where ssid='"&LName&"' and slei=1 ")(0)
if TotalNumber Mod PageSizer = 0 then
TotalPage = TotalNumber \ PageSizer
Else
TotalPage = TotalNumber \ PageSizer + 1
End if
if CurrentPage=1 Then
SQL = "Select top "&PageSizer&" * From [sp] Where ssid='"&LName&"'and slei=1 Order By stime desc"
Else
SQL = "Select * From [sp] Where ssid='"&LName&"' and slei=1 And id In (Select Top "&CurrentPage * PageSizer&" id From [sp] Where ssid='"&LName&"'and slei=1 Order By stime desc) And id Not In (Select Top "&CurrentPage * PageSizer - PageSizer&" id From [sp] Where ssid='"&LName&"' and slei=1 Order By stime desc) Order By stime desc"
End if
Set rs = Conn.Execute(SQL)
if Not rs.Eof Then
Do Until rs.Eof
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" height="75" bordercolor="#F3F3F3">
<tr>
<td width="30%" rowspan="4">
<% if rs("img")<>"" then %>
<div align="center"><a href="voo.asp?id=<%=rs("id")%>"><img src="<%=rs("img")%>" border="0" width="100"></a></div>
<% end if %>
</td>
<td width="44%"><img src="img/image001.gif" width="15" height="15">名称：<a href="voo.asp?id=<%=rs("id")%>"><%=rs("sname")%></a></td>
<td width="26%"><a href="voo.asp?id=<%=rs("id")%>"><img src="img/more2.gif" width="42" height="13" border="0" alt="查看本商品详细情况"></a></td>
</tr>
<tr>
<td colspan="2">简介：<%=server.htmlencode(left(rs("jianjie"),100))%><%if len(rs("jianjie"))>100 then response.write "……"%></td>
</tr>
<tr>
<td colspan="2"><img src="img/2.gif" width="12" height="11">价格：<%=rs("scun1")%>/元</td>
</tr>
<tr>
<td width="44%"><img src="img/0.gif" width="12" height="11">会员价：
<%if session("daili")>1 then %>
<%=rs("scun2")%>/元
<%else%>
会员可见
<%end if %>
</td>
<td width="26%"><a href="shop.asp?id=<%=rs("id")%>"><img src="img/gwc.gif" width="70" height="19" border="0" alt="开始购买！"></a></td>
</tr>
</table>
<br>
<%rs.movenext
Loop
End if%>
</td>
</tr>
<tr>
<td>
<div align="right"><%if request("page")>1 then%>
<a Href="list.asp?Page=<% = 1%>&lname=<%=LName%>">首页</a>
<a Href="list.asp?lname=<%=LName%>&Page=<% =CurrentPage -1 %>">上一页</a>
<%end if %>
<%if CurrentPage<>TotalPage then %>
<a Href="list.asp?lname=<%=LName%>&Page=<% =CurrentPage + 1%>">下一页</a>
<a Href="list.asp?Page=<% = TotalPage%>&lname=<%=LName%>">尾页</a>
<% end if %><% rs.close %>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="7" background="img/b2.jpg"></td>
</tr>
</table><!--#include file="di.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -