📄 productsallx.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 width="76%"><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> >
<%
id=trim(request.QueryString("id"))
Str=trim(request.QueryString("Str"))
Pid=trim(request.QueryString("Pid"))
PStr=trim(request.QueryString("PStr"))
Response.Write"<a href='ProductsAllZ.asp?id="&Pid&"&Str="&PStr&"'>"&PStr&"</a> > <a href='ProductsAllX.asp?Pid="&Pid&"&PStr="&PStr&"&id="&id&"&Str="&Str&"'>"&Str&"</a>"
%></span></td>
<td width="24%"><span class="ABOUT_01">
<%
if Request.ServerVariables("QUERY_STRING")="" then
Vcome=Request.ServerVariables("PATH_INFO")
else
Vcome=Request.ServerVariables("PATH_INFO")+"?"+Request.ServerVariables("QUERY_STRING")
end if
Response.Write"<table width='100%' height='18' border='0' cellpadding='0' cellspacing='0' >"
Response.Write"<tr>"
Response.Write"<td width='100%' align='right' ><select onchange=""if(value!='')window.location.href=value""> "
Response.Write"<option>-产品显示风格-</option>"
Response.Write"<option value='Style.asp?StyleD=1&vcome="&Vcome&"'>大图预览</option>"
Response.Write"<option value='Style.asp?StyleD=2&vcome="&Vcome&"'>中图预览</option>"
Response.Write"<option value='Style.asp?StyleD=3&vcome="&Vcome&"'>列表预览</option>"
Response.Write"</select></td>"
Response.Write"</tr>"
Response.Write"</table>"
'=========产品展示样式==================
%>
</span></td>
</tr>
</table></td>
<td width="20" background="images/BGline04.gif"> </td>
</tr>
<tr>
<td width="20" height="24" background="images/BGline04.gif"> </td>
<td background="images/BGline04.gif"><!--#include file="menu3.asp"--></td>
<td width="20" background="images/BGline04.gif"> </td>
</tr>
<tr>
<td height="20"> </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" background="images/xc_4_bj.jpg"><%
ddd=Pid+"-"+id
sql = "SELECT id,LPattern,LName,LPrice,LPH,LManufacturer,LAddtime FROM Products where LSort like '%"&ddd&"%' and LPutout=true ORDER BY id DESC"
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='ProductsAllX.asp?page=1&Pid="&Pid&"&PStr="&PStr&"&id="&id&"&Str="&Str&"'>首页</a> | </a>"
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='ProductsAllX.asp?page="&ipagecurrent-1&"&Pid="&Pid&"&PStr="&PStr&"&id="&id&"&Str="&Str&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write" <a href='ProductsAllX.asp?page="&ipagecurrent+1&"&Pid="&Pid&"&PStr="&PStr&"&id="&id&"&Str="&Str&"'>下一页</a> "
else
Response.Write" 下一页 "
end if
if ipagecount>ipagecurrent then
Response.Write"| <a href='ProductsAllX.asp?page="&ipagecount&"&Pid="&Pid&"&PStr="&PStr&"&id="&id&"&Str="&Str&"'>未页</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="ProductsAllX.asp?page=<%=i%>&Pid=<%=Pid%>&PStr=<%=PStr%>&id=<%=id%>&Str=<%=Str%>" selected><%=i%></option>
<%else%>
<option value="ProductsAllX.asp?page=<%=i%>&Pid=<%=Pid%>&PStr=<%=PStr%>&id=<%=id%>&Str=<%=Str%>"><%=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>
<!--#include file="bot.asp" -->
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -