📄 list.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936 LCID=2052%>
<!--#include file="conn.asp"-->
<!--#include file="newsConvert.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=web_name%></title>
<STYLE type=text/css>TABLE {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
BODY {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
INPUT {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
SELECT {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
A {
COLOR: #000000; FONT-SIZE: 9pt; LINE-HEIGHT: 1.2; TEXT-DECORATION: none
}
A:active {
FONT-SIZE: 9pt; TEXT-DECORATION: none
}
A:hover {
COLOR: #ff0000; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
.tit {
FONT-SIZE: 16px; FONT-STYLE: normal; FONT-WEIGHT: bold; TEXT-DECORATION: none
}
BODY {
background-image: url(img/id02.gif);
}
TABLE {
LINE-HEIGHT: 16px
}
</STYLE>
</head>
<BODY leftMargin=0 topMargin=0>
<table width="759" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width=6 bgcolor="#FFFFFF"></td>
<td width="774" valign="top" bgcolor="#FFFFFF">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="778" height="208">
<param name="movie" value="1.swf">
<param name="quality" value="High">
<embed src="1.swf" quality="High" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="778" height="208"></embed>
</object>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170" valign="top" bgcolor="#FFFFFF">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height=1></TD>
</TR>
<TR>
<TD height=20 vAlign=top width=170><IMG height=20 src="img/left_05.gif" width=170></TD>
</TR>
<TR>
<TD height=128 vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#ffffff height=128 width=170>
<TABLE border=0 cellPadding=0 cellSpacing=0 height=128
width=170>
<TBODY>
<TR>
<TD height=128 vAlign=top width=170><%
sql="select * from class"
res.Open sql,con,1,1
if res.eof or res.bof then
response.write "商品分类不存在！<br>"
else
do while not res.eof
Response.Write(" ")
Response.Write("<a href=Product.asp?Sort_ID="&res("Sort_ID")&">")
Response.Write(""&res("sort")&"</a><br>")
res.movenext
loop
end if
res.close
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=20 vAlign=top><IMG height=20 src="img/left_06.gif" width=170></TD>
</TR>
<TR>
<TD height=90 vAlign=top>
<TABLE bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
width="100%">
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD height=90 width=170>
<FORM action="Product.asp" method=post name="myform">
<DIV align=center>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 height=87
width="88%">
<!--DWLayoutTable-->
<TBODY>
<TR vAlign=bottom>
<TD align=right height=25 width=63>
<DIV align=center><FONT color=#000000>分类:</FONT></DIV></TD>
<TD width=92>
<DIV align=left>
<select name="sort_id">
<option selected value="">选择分类</option>
<% sql="select * from class"
res.open sql,con,1,1
do while not res.eof
%>
<option value="<%=res("sort_id")%>"><%=res("sort")%></option>
<% res.movenext
loop
res.close
%>
</select>
</DIV></TD>
</TR>
<TR vAlign=bottom>
<TD align=right height=31>
<DIV align=center><FONT color=#000000>关键字:</FONT></DIV></TD>
<TD>
<DIV align=left><FONT color=#000000>
<INPUT name=keyword type=text id="keyword" size=12 maxLength=50>
</FONT></DIV></TD>
</TR>
<TR>
<TD align=right></TD>
<TD><input name=B1 type=submit value="搜索"></TD>
</TR>
</TBODY>
</TABLE>
</CENTER>
</DIV>
</FORM></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=20 vAlign=top><IMG height=20
src="img/left_07.gif" width=170></TD>
</TR>
<TR>
<TD height=124 vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD width=170 height=124 valign="top" bgColor=#ffffff><div align="center">
<%
sql="select * from product where audit=1"
res.Open sql,con,1,1
if res.eof or res.bof then
response.write "暂无推荐！<br>"
else
do while not res.eof
Response.Write(" ")
Response.Write("<a target=_blank href=List.asp?shop_ID="&res("Shop_ID")&">")
Response.Write(""&res("shop_name")&"</a><br>")
res.movenext
loop
end if
res.close
%>
</div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></td>
<td width="1" background="img/line_v.gif"></td>
<td><TABLE bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
width="100%">
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD rowSpan=2 vAlign=top width=10>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD bgColor=#ffffff height=447
width=10> </TD>
</TR>
</TBODY>
</TABLE></TD>
<TD bgColor=#ffffff colSpan=2 height=42 vAlign=top><img src="img/PRODUCTS.gif" width="586" height="42" border="0" usemap="#Map"></TD>
<TD width=11> </TD>
</TR>
<TR>
<TD height=405 width=9> </TD>
<TD vAlign=top width=577>
<% sql="select * from product where shop_id="&request("shop_id")
res.open sql,con,1,3
res("click")=res("click")+1
res.update
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center"><strong><%=res("shop_name")%></strong></td>
</tr>
<tr>
<td align="center">加入时间：<%=res("dateandtime")%> 浏览次数：<font color=red><%=res("click")%></font></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border=0 cellpadding=0 cellspacing=1>
<tbody>
<%if res("pic")<>"" or res("pic2")<>"" then%>
<tr>
<td align=middle bgcolor=#ffffff>
<%if res("pic2")<>"" then%>
<a href="pic/<%=res("pic2")%>" target=_blank><img border=0 src="pic/<%=res("pic2")%>"></a>
<%else%>
<a href="pic/<%=res("pic")%>" target=_blank><img border=0 src="pic/<%=res("pic")%>"></a>
<%end if%>
</td>
</tr>
<%end if%>
<tr>
<td> <a href="<%if res("pic")<>"" then response.write "PIC/"&res("pic2")%>" target=_blank><img border=0 height=21 src="img/marke1.gif" width=74></a> <a href="book.asp?title=<%=res("shop_name")%>"><img src="img/marke2.gif" width="74" height="21" border=0></a> </td>
</tr>
</tbody>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><IMG height=22 src="img/mall_10.gif" width=213></TD>
</TR>
</TBODY>
</TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#ffb400 width=150></TD>
<TD bgColor=#e6e6e6></TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=20
width="100%">
<TBODY>
<TR>
<TD align=left vAlign=top class="unnamed1">
<%if res("introduce")<>"" then
response.write newsConvert(res("introduce"))
end if%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
<TD> </TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD height=24 vAlign=top background="img/bottom.gif">
<img src="img/bottom.gif" width="778" height="72"></TD>
</TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#ffffff height=31 width=778><DIV align=center>地址：<%=web_address%> 电话：<%=web_tel%> 传真：<%=web_fax%> E-mail：<%=web_email%></DIV></TD>
</TR>
</TBODY>
</TABLE></td>
<td width=19 bgcolor="#FFFFFF"></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="491,7,581,35" href="product.asp">
</map>
</body>
</html>
<% con.close
set con=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -