📄 productssort.asp
字号:
<!--#include file="siteinfo.asp"-->
<HTML>
<HEAD>
<TITLE><%=sitename%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="images/CSS.css" type=text/css rel=stylesheet>
</HEAD>
<BODY ><!--#include file="top.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="179" valign="top" background="images/BGline01.gif"><!--#include file="Productsleft.asp" --></td>
<td width="598" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr background="images/BGline04.gif">
<td width="20" height="24" background="images/BGline04.gif"> </td>
<td background="images/BGline04.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="ABOUT_01"><img src="images/GO_03.gif" width="11" height="11" align="absmiddle"> 当前位置：<a href="index.asp">首页</a> > <a href="productsall.asp">产品展厅</a> > <%
kingation=trim(request.QueryString("kingation"))
select case kingation
case "Preco"
sql= "SELECT id,LPattern,LName,LPrice,LPH,LManufacturer,LAddtime FROM Products where LCommend=true and LPutout=true ORDER BY id DESC"
kingstr="推荐产品"
case "Phot"
sql= "SELECT id,LPattern,LName,LPrice,LPH,LManufacturer,LAddtime FROM Products where LHot=true and LPutout=true ORDER BY id DESC"
kingstr="热门产品"
case "Pnew"
sql= "SELECT id,LPattern,LName,LPrice,LPH,LManufacturer,LAddtime FROM Products where LNewProduct=true and LPutout=true ORDER BY id DESC"
kingstr="新出产品"
end select
Response.Write""&kingstr&""
'=========产品展示样式==================
%>
</span></td>
</tr>
</table></td>
<td width="20" background="images/BGline04.gif"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td width="20" height="20"> </td>
<td><TABLE id=AutoNumber6 style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<td width="100%" align="center"><%
StyleDD=Request.cookies("ProStyle")
select case StyleDD
%>
<% case "StyleA" %>
<!--#include file="Style/StyleA.asp"-->
<% case "StyleB" %>
<!--#include file="Style/StyleB.asp"-->
<% case "StyleC" %>
<!--#include file="Style/StyleC.asp"-->
<% case else %>
<!--#include file="Style/StyleC.asp"-->
<% end select %>
<%
'=========产品展示样式==============
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='1' ><tr ><td height='18' background='images/BGline03.gif'></td></tr><tr><td height='18'align='center' >共有"&irecordcount&"个产品 每页显示"&ProductsShu&"个 当前页" &ipagecurrent& "/"&ipagecount&""
if ipagecurrent=1 then
Response.Write" 首页 | "
else
Response.Write" <a href='ProductsSort.asp?page=1&kingation="&kingation&"'>首页</a> | </a>"
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='ProductsSort.asp?page="&ipagecurrent-1&"&kingation="&kingation&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write" <a href='ProductsSort.asp?page="&ipagecurrent+1&"&kingation="&kingation&"'>下一页</a> "
else
Response.Write" 下一页 "
end if
if ipagecount>ipagecurrent then
Response.Write"| <a href='ProductsSort.asp?page="&ipagecount&"&kingation="&kingation&"'>未页</a> "
else
Response.Write"| 未页"
end if
%>
转到第
<select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to ipagecount
if i = ipagecurrent then%>
<option value="ProductsSort.asp?page=<%=i%>&kingation=<%=kingation%>" selected><%=i%></option>
<%else%>
<option value="ProductsSort.asp?page=<%=i%>&kingation=<%=kingation%>"><%=i%></option>
<%
end if
next
%>
</select>
页 </td>
</tr>
</table></td>
<td width="20"> </td>
</tr>
<tr>
<td width="20" height="40"> </td>
<td> </td>
<td width="20"> </td>
</tr>
</table>
<TABLE id=AutoNumber6 style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR></tr>
</table></td>
<td width="1" valign="top" background="images/BGline02.gif"></td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<!--#include file="bot.asp" -->
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -