📄 index.asp
字号:
<tr>
<td align="center" valign="middle"><a href="gouwu.asp?id=<%=rs("shopid")%>&action=add"><img src="images/index_cart.gif" width="76" height="20" border="0"></a></td>
</tr>
</table></td>
<%
if (i mod (MaxShangpinList/4)=0) and i>=(MaxShangpinList/4) then
%>
<%
end if
if i>=MaxShangpinList then exit do
rs.movenext
loop
%>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" rowspan="2" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td height="60" valign="top"><a href="dongtai.asp"><img src="images/pic_022.gif" alt="站内全部新闻" width="170" height="63" border="0"></a>
<table width="100%" border="0" cellspacing="0" ce??llpadding="0">
<tr>
<td height="120" align="left" valign="top">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 6 newsname,adddate,newsid from shop_news order by adddate desc",conn,1,1
if rs.recordcount=0 then
%>
<table width="80%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td height="26" align=center>暂无站内新闻</td>
</tr>
</table>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
while not rs.eof
%>
<tr>
<td height="22"><a href="news.asp?id=<%=rs("newsid")%>" title=<%=year(rs("adddate"))%>年<%=month(rs("adddate"))%>月<%=day(rs("adddate"))%>日发布><img src="images/dot_03.gif" width="9" height="9" border="0">
<%if len(trim(rs("newsname")))>11 then
response.write left(trim(rs("newsname")),11)&""
else
response.write trim(rs("newsname"))
end if%>
</a></td>
</tr>
<%
rs.movenext
wend
%>
</table>
<%
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
</tr>
<tr>
</tr>
</table>
<table width="100%" cellSpacing=0 cellPadding=0 border="0" align="center">
<tr>
<td width="50%" align="center" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><IMG height=5 src="images/block.gif" width=1></td>
</tr>
</table>
<table width="100%" cellspacing=0 cellpadding=0 border="0" align="center">
<tr>
<td height="25" background="images/fl1.gif"><img src="images/fl01.jpg" width="43" height="29"></td>
<td width="500" background="images/fl1.gif"><b><font
color=#ff6600><b>
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_anclass where anclassid="&class1&"",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=big&anid="&class1&"><font color="&trim(rs2("sztys"))&">"&trim(rs2("anclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%></b></font></b></td>
</tr>
<tr>
<td height="50" colspan="2" align="center" bgcolor="#FFFFFF"><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select nclass,nclassid,xsztys from shop_nclass where anclassid="&class1&" order by nclassidorder",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=small&anid="&class1&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<%
set rsx=server.createobject("adodb.recordset")
rsx.open "select Top 3 * from shop_snsn where anclassid="&class1&" order by adddate desc",conn,1,1
if rsx.recordcount=0 then
response.write "<tr><td> 此分类暂无商品，正待添加!</td></tr>"
else
%>
<tr>
<%
while not rsx.eof%>
<td align=center><a href=list.asp?id=<%=rsx("shopid")%> target=_blank>
</a> <table width="90" height="90" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle"><table border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#FFFFFF">
<tr>
<td bordercolor="<%=flshpbj%>"> <div align="center"><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>>
<%if rsx("shoppic")="" then
response.write "<div align=center><a href=list.asp?id="&rsx("shopid")&" ><img src=images/emptyshop.gif width=85 height=85 border=0></a></div>"
else%>
<img src="<%=trim(rsx("shoppic"))%>" width=80 border=0 alt=<%=trim(rsx("shopname"))%>>
<%end if%>
</a></div></td>
</tr>
<tr>
<td bordercolor="<%=flshpbj%>"><div align="center"><a href="gouwu.asp?id=<%=rsx("shopid")%>&action=add"><img src="images/index_cart.gif" width="76" height="20" border="0"></a></div></td>
</tr>
</table></td>
</tr>
</table></td>
<%
rsx.movenext
wend
%>
</tr>
<%
end if
rsx.close
%>
</table></td>
</tr>
</table></td><td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td width="50%" align="center" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><IMG height=5 src="images/block.gif" width=1></td>
</tr>
</table>
<table width="100%" cellspacing=0 cellpadding=0 border="0" align="center">
<tr>
<td height="25" background="images/fl2.gif"><img src="images/fl02.jpg" width="43" height="29"></td>
<td width="500" background="images/fl2.gif"><b><font
color=#ff6600><b>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_anclass where anclassid="&class2&"",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=big&anid="&class2&"><font color="&trim(rs2("sztys"))&">"&trim(rs2("anclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</b></font></b></td>
</tr>
<tr>
<td height="50" colspan="2" align="center" bgcolor="#FFFFFF"><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select nclass,nclassid,xsztys from shop_nclass where anclassid="&class2&" order by nclassidorder",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=small&anid="&class2&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<%
set rsx=server.createobject("adodb.recordset")
rsx.open "select Top 3 * from shop_snsn where anclassid="&class2&" order by adddate desc",conn,1,1
if rsx.recordcount=0 then
response.write "<tr><td> 此分类暂无商品，正待添加!</td></tr>"
else
%>
<tr>
<%
while not rsx.eof%>
<td align=center><a href=list.asp?id=<%=rsx("shopid")%> target=_blank>
</a> <table width="90" height="90" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle"><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>>
</a> <table border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#FFFFFF">
<tr>
<td bordercolor="<%=flshpbj%>"> <div align="center"><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>>
<%if rsx("shoppic")="" then
response.write "<div align=center><a href=list.asp?id="&rsx("shopid")&" ><img src=images/emptyshop.gif width=85 height=85 border=0></a></div>"
else%>
<img src="<%=trim(rsx("shoppic"))%>" width=80 border=0 alt=<%=trim(rsx("shopname"))%>>
<%end if%>
</a></div></td>
</tr>
<tr>
<td bordercolor="<%=flshpbj%>"><div align="center"><a href="gouwu.asp?id=<%=rsx("shopid")%>&action=add"><img src="images/index_cart.gif" width="76" height="20" border="0"></a></div></td>
</tr>
</table></td>
</tr>
</table></td>
<%
rsx.movenext
wend
%>
</tr>
<%
end if
rsx.close
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#CCCCCC"><IMG height=1 src="images/block.gif" width=1></td>
</tr>
</table>
<table width="100%" cellSpacing=0 cellPadding=0 border="0" align="center">
<tr>
<td width="50%" align="center" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><IMG height=5 src="images/block.gif" width=1></td>
</tr>
</table>
<table width="100%" cellspacing=0 cellpadding=0 border="0" align="center">
<tr>
<td height="25" background="images/fl3.gif"><img src="images/fl03.jpg" width="43" height="29"></td>
<td width="500" background="images/fl3.gif"><b><font
color=#ff6600><b>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_anclass where anclassid="&class3&"",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=big&anid="&class3&"><font color="&trim(rs2("sztys"))&">"&trim(rs2("anclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</b></font></b></td>
</tr>
<tr>
<td height="50" colspan="2" align="center" bgcolor="#FFFFFF"><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select nclass,nclassid,xsztys from shop_nclass where anclassid="&class3&" order by nclassidorder",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=small&anid="&class3&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -