📄 product.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="209">
<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="209"></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><p align="center">
<%
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=?Sort_ID="&res("Sort_ID")&">")
Response.Write(""&res("sort")&"</a><br>")
res.movenext
loop
end if
res.close
%>
</p>
</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><%
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
%></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"></TD>
<TD width=11> </TD>
</TR>
<TR>
<TD height=405 width=9> </TD>
<TD vAlign=top width=577><%
dim keyword
dim sort_id
keyword=request("keyword")
sort_id=request("sort_id")
if sort_id<>"" then sqlwhere=sqlwhere &" and sort_id="&sort_id&""
if keyword<>"" then sqlwhere=sqlwher &" and shop_name like '%"&keyword&"%'"
Set rs=Server.CreateObject("ADODB.RecordSet")
strsql="select * from Product where shop_id<>0 "&sqlwhere&" order by dateandtime desc"
rs.Open strsql,con,1,1
if rs.eof then
response.write "<script language=javascript>alert('没有找到你搜索的产品');window.history.back();</script>"
else
rs.movefirst
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=9
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FF9900">
<%
j=1
do while not (rs.eof or err)
if (j mod 3)=1 then
response.write "<tr>"
end if
%>
<td align="center" valign="top">
<table width="100%" height="125" border="0" align="center" cellpadding="4" cellspacing="0">
<tr>
<td width="150" align="center" valign="middle"><table width="120" border="0" cellpadding="1" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="middle">
<%If rs("Pic")<>"" then%>
<a href='List.asp?Shop_ID=<%=rs("Shop_ID")%>' target=_blank><img border='0' width='120' height='120' src="Pic/<%=rs("pic")%>" align='center'></a>
<%Else%>
<a href='List.asp?Shop_ID=<%=rs("Shop_ID")%>' target=_blank><img border='0' width='120' height='120' src='Pic/no.jpg' align='center'></a>
<%End If%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="22" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a class=a4 href="List.asp?Shop_id=<%=rs("shop_id")%>" target=_blank><strong>[<%=left(rs("shop_name"),12)%>]</strong></a></td>
</tr>
</table></td>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td colspan="2" height="1" background="img/dot_02.gif"> </td>
</tr>
</table></td>
<%
if (j mod 3)=0 then
response.write "</tr>"
end if
j=j+1
rs.moveNext
if j>9 then exit do
loop
end if
%>
</table>
<br>
<table width="95%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="18" colspan="4" align="center" valign="middle" class="unnamed1">
<%
if rs.pagecount>1 then
response.Write "第"&pagecount&"页/共"&rs.pagecount&"页 "
if pagecount>=10 then
response.write"<a href=?Sort_ID="&sort_id&"&keyword="&keyword&"&page="&(((cstr(pagecount)\10)-1)*10)+1&"><<</a> "
end if
q=(cstr(pagecount)-1)\10
if q<0 then
q=1
end if
p=(q*10)+1
do while p<((q*10)+11)
If p=pagecount Then
Response.Write p&" "
Elseif p<=rs.pagecount then
Response.Write "<a href='?Sort_ID="&sort_id&"&keyword="&keyword&"&page="&p&"'>"& p &"</a> "
End If
p=p+1
loop
A=rs.pagecount
if (A mod 10)=0 then
A=rs.pagecount-1
end if
if pagecount<(A\10)*10 then
response.write"<a href=?Sort_id="&Sort_id&"&keyword="&keyword&"&page="&((((cstr(pagecount)-1)\10)+1)*10)+1&">>></a>"
end if
End If%>
</td>
</tr>
</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>
</body>
</html>
<% con.close
set con=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -