📄 goods_list.asp
字号:
<%
'****************************************************
' 多多校园 Power by ddtaobao.com
' Email:ddmaster@126.com OICQ:136465584
' Web: http://www.ddtaobao.com 作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="top.asp"-->
<BODY>
<BODY>
<div align="center">
<TABLE width=778 border=0 cellpadding="0" cellspacing="0">
<TBODY>
<TR align="center"> <TD vAlign=top width=182>
<TABLE cellSpacing=0 cellPadding=0 width="182" border=0>
<TBODY>
<TR>
<TD class=right_title_bs06 align=center>会 员 登 陆</TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD >
<% call ShowUserLogin() %>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD class=right_title_bs06 align=center>店 铺 分 类</TD>
</TR>
<TR>
<TD>
<% call showshoptype %>
</TD>
</TR>
<TR>
<TD class=right_title_bs06 align=center>搜 索 宝 贝</TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD > <TABLE width="100%" align=center border=0>
<TBODY>
<TR>
<TD> <form action="search.asp" method="post" name="form" id="form">
<table width="100%" border="0" cellpadding="2">
<tr>
<td>
商品名称:<INPUT size=15 name=keyword></td>
</tr>
<tr>
<td align="center">
<input type="submit" name="Submit" value="搜索看看" class=input2></td>
</tr>
</table>
</form>
</TD>
</TR>
</TABLE><TABLE width="100%" align=center border=0>
<TBODY>
<TR>
<TD> <form action="shopsearch.asp" method="post" name="form1" id="form1">
<table width="100%" border="0" cellpadding="2">
<tr>
<td>
店铺名称:<INPUT size=15 name=keyword></td>
</tr>
<tr>
<td align="center">
<input type="submit" name="Submit" value="搜索看看" class=input2></td>
</tr>
</table>
</form>
</TD>
</TR>
</TABLE></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
</TD><td class=line></td>
<TD vAlign=top>
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>
<%
Dim StrSql,Rs
Set Rs=Server.CreateObject("adodb.recordset")
if CheckNum(trim(request("Seo")))=1 Then
StrSql="select * from dd_goods order by goods_date desc,goods_id desc"
elseif CheckNum(trim(request("Seo")))=2 Then
StrSql="select * from dd_goods order by goods_hits desc,goods_id desc"
elseif CheckNum(trim(request("Seo")))=3 Then
StrSql="select * from dd_goods order by font desc,goods_id desc"
elseif CheckNum(trim(request("Seo")))=4 Then
StrSql="select * from dd_goods order by AlipayStatus desc,goods_id desc"
else
StrSql="select * from dd_goods order by goods_id desc"
end if
Rs.Open StrSql,conn,1,1
%>
<div align="center">
<TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
<TR>
<TD class=main_title_bsf colspan="9">
商品列表 <a href="?Seo=1">[按时间排序]</a> <a href="?Seo=2">[按人气排序]</a> <a href="?Seo=3">[按推荐排序]</a> <a href="?Seo=4">[按支付宝排序]</a></TD>
</TR>
<tr>
<td align="center" height="21" class="tablebody1">
序号</td>
<td align="center" height="21" class="tablebody1">
商品图片</td>
<td align="center" height="21" class="tablebody1">
商品名称</td>
<td align="center" height="21" class="tablebody1">
推荐</td>
<td align="center" height="21" class="tablebody1">
商品价格</td>
<td align="center" height="21" class="tablebody1">
商品数量</td>
<td align="center" height="21" class="tablebody1">
支付宝</td>
<td align="center" height="21" class="tablebody1">
发布时间</td>
<td align="center" height="21" class="tablebody1">
人气</td>
</tr>
<%
IF not rs.eof and not rs.bof then
dim page_size
dim page_no
dim page_total
page_size=10
if request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dim I,J
I=0
J=page_size
do while not rs.eof and J>0
J=J-1
I=I+1
%>
<tr>
<td align="center" class="tablebody1"><%=rs("goods_id")%></td>
<td align="center" class="tablebody1"><a href="goods_info.asp?goods_id=<%=rs("goods_id")%>" target="_blank">
<img src="<%=rs("goods_pic")%>" height=60 width=60 border=0 style="border: 1px solid #C0C0C0; "></a></td>
<td align="center" class="tablebody1"><%=rs("goods_name")%></td>
<td align="center" class="tablebody1"><%
Select Case rs("font")
Case "1"
response.write "<img src=images/good.gif border=0 alt=推荐商品>"
End Select
%></td>
<td align="center" class="tablebody1"><%=rs("goods_price")%>元</td>
<td align="center" class="tablebody1"><%=rs("goods_amount")%>个</td>
<td align="center" class="tablebody1"><%
Select Case rs("AlipayStatus")
Case "1"
response.write "<img src=images/AlipayStatus.gif border=0 alt=支持支付宝>"
End Select
%></TD></td>
<td align="center" class="tablebody1"><%=rs("goods_date")%></td>
<td align="center" class="tablebody1"><%=rs("goods_hits")%></td>
</tr><%
Rs.MoveNext
Loop
End IF
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page">
<tr>
<td><div align="center">[本页是<%=int(page_no)%>/<%=int(page_total)%>] [<a href="?page_no=1">第一页</a>]
<%if int(page_no)>1 then%>
[<a href="?page_no=<%=cstr(int(page_no-1))%>">前一页</a>]
<%elseif int(page_no)<=1 then%>
[<a href="?page_no=1">前一页</a>]
<%end if%>
<%if int(page_no)<int(page_total) then%>
[<a href="?page_no=<%=cstr(int(page_no+1))%>">后一页</a>]
<%elseif int(page_no)>=int(page_total) then%>
[<a href="?page_no=<%=cstr(int(page_total))%>">后一页</a>]
<%end if%>
[<a href="?page_no=<%=page_total%>">最后一页</a>] 转到
<input name="page" type="text" value="<%=page_no%>" size="5">页
<input type="button" class=input name="Submit" value="转到" onclick="GoPage()"></div></td>
</tr>
</table>
</div>
</tr>
</TBODY>
</TABLE>
<!--#include file="bottom.asp"-->
<%
Rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -