📄 index.asp
字号:
%>
<tr>
<td height="22">
<a href=listzt.asp?id=<%=rs("newsid")%> title=<%=year(rs("UpdateTime"))%>年<%=month(rs("UpdateTime"))%>月<%=day(rs("UpdateTime"))%>日><img src="images/dot_03.gif" width="9" height="9" border="0">
<%if len(trim(rs("title")))>11 then
response.write left(trim(rs("title")),11)&""
else
response.write trim(rs("title"))
end if%>
</a>
</td>
</tr>
<%
rs.movenext
wend
%>
<%
end if
rs.close
set rs=nothing
%>
</table> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bg1_4color_.jpg"><img src="images/bg1_4color_.jpg" width="1" height="1"></td>
</tr>
<tr>
<td valign="bottom"><form name=form1 method=get action=research.asp>
<TABLE width="98%" border=0 cellPadding=0 cellSpacing=0>
<TR>
<TD width="72%" align=center> <strong>商品快速搜索：</strong> 按分类
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
%>
<select name="anclassid" class="wenbenkuang">
<option value="0">所有分类</option>
<%do while not rs.eof%>
<option value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select>
关键字
<INPUT name="searchkey" type="text" id="searchkey3" style="FONT-SIZE: 9pt; BACKGROUND-COLOR: #ffffff" onmouseover=this.focus(); size=16 maxlength="20">
</TD>
<TD width="11%" align=center valign="middle"><input type=image alt="搜索" src="images/search02.gif" align=absMiddle border=0 name=image2 onFocus="this.blur();">
</TD>
<TD width="17%" align=center><a href="search.asp"><img height=27 src="images/top_low_11.gif" width=60 border=0 alt="高级搜索"></a></TD>
</TR>
</TABLE>
</FORM></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="436" valign="top"><a href="class.asp?lx=tejia"><img src="images/pic_019.gif" alt="最新特价商品" width="436" height="63" border="0"></a> <table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr>
<%
set rs=server.createobject("adodb.recordset")
i=0
MaxShangpinList=2
rs.open "select * from shop_snsn where tejiashop=1 order by sx desc",conn,1,1
%>
<%
do while not rs.eof
i=i+1
%>
<td align=center valign=middle><table width="200" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100" rowspan="4" align="center" valign="middle" background="images/picbj.gif"> <a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>>
<%if rs("shoppic")="" then
response.write "<div align=center><a href=list.asp?id="&rs("shopid")&" ><img src=images/emptyshop.gif width=85 height=85 border=0></a></div>"
else
response.write "<img src="&rs("shoppic")&" alt="&rs("shopname")&" width=85 height=85 border=0>"
end if%>
</a></td>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td width="100" align="center" valign="middle">
<a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><font color="#3366CC">
<%if len(trim(rs("shopname")))>20 then
response.write left(trim(rs("shopname")),20)&""
else
response.write trim(rs("shopname"))
end if%>
</font></a>
</td>
</tr>
<tr>
<td align="center" valign="middle"><font color="#FF0000">会员价：<%=rs("huiyuanjia")%>元</font></td>
</tr>
<tr>
<td align="center" valign="middle"><font color="#FF0000">VIP价：<%=rs("Vipjia")%>元</font></td>
</tr>
</table></td>
<%
if (i mod (MaxShangpinList/2)=0) and i>=(MaxShangpinList/2) then
%>
<%
end if
if i>=MaxShangpinList then exit do
rs.movenext
loop
%>
</tr>
</table></td>
<td width="1" rowspan="2" bgcolor="C9C9C8"><p><img src="images/block.gif" width="1" height="1"></p></td>
<td width="170" height="60" valign="top"><img src="images/pic_020.gif" width="170" height="63">
<table border="0" align="center" cellSpacing="0">
<tr>
<td height="23">
<%=gonggao%>
</td>
</tr>
</table> </td>
</tr>
<tr>
<td width="437" height="2" rowspan="2" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td width="166" rowspan="2" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
</tr>
</table> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="436" height="60" valign="top"><a href="class.asp?lx=cx"><img src="images/pic_021.gif" alt="本月促销商品" width="436" height="63" border="0"><br>
</a>
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr>
<%
set rs=server.createobject("adodb.recordset")
i=0
MaxShangpinList=4
rs.open "select * from shop_snsn where cxiaoshop=1 order by sx desc",conn,1,1
%>
<%
do while not rs.eof
i=i+1
%>
<td align=center valign=middle><table width="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100" align="center" valign="middle" background="images/picbj.gif">
<a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>>
<%if rs("shoppic")="" then
response.write "<img src=images/emptyshop.gif alt="&rs("shopname")&" width=85 height=85 border=0>"
else
response.write "<img src="&rs("shoppic")&" alt="&rs("shopname")&" width=85 height=85 border=0>"
end if%>
</a></td>
</tr>
<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>
<a href="class.asp?lx=cx"><br>
</a> </td>
<td width="1" rowspan="2" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td width="170" height="60" valign="top"><a href="dongtai.asp"><img src="images/pic_022.gif" alt="最新站内新闻" width="170" height="63" border="0"></a>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
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
%>
<%else%>
<%
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
%>
<%
end if
rs.close
set rs=nothing
%>
</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>
</table>
<a href="shoporder.asp"><img src="images/pic_025.gif" alt="商品销售排行榜" width="606" height="63" border="0"></a><br>
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr>
<%
set rs=server.createobject("adodb.recordset")
i=0
MaxShangpinList=6
rs.open "select * from shop_snsn order by chengjiaocount desc",conn,1,1
%>
<%
do while not rs.eof
i=i+1
%>
<td height="133" align=center valign=middle><table width="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100" align="center" valign="middle" background="images/picbj.gif"> <a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>>
<%if rs("shoppic")="" then
response.write "<img src=images/emptyshop.gif alt="&rs("shopname")&" width=85 height=85 border=0>"
else
response.write "<img src="&rs("shoppic")&" alt="&rs("shopname")&" width=85 height=85 border=0>"
end if%>
</a></td>
</tr>
<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>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bg1_4color_.jpg"><img src=images/bg1_4color_.jpg" width="1" height="3"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=3 width=95% border=0 height="25" align="center">
<tr>
<td align=center width="70" height="18"><font color=#333333><a href="fk.asp" class="a2" target="_blank">◇投诉建议</a></font></td>
<td align=center width="70" height="18"><font color=#333333><a href="help.asp?action=feiyong" class="a2">◇配送问题</a></font></td>
<td align=center width="70" height="18"><font color="#FFFFFF"><a href="help.asp?action=fukuan" class="a1">◇支付方式</a></font></td>
<td align=center width="70" height="18"><font color="#FFFFFF"><a href="help.asp?action=jifen" class="a1">◇积分奖励</a></font></td>
<td align=center width="70" height="18"><font color="#FFFFFF"><a href="help.asp?action=vip" class="a1">◇VIP特惠</a></font></td>
<td align=center width="70" height="18"><font color="#FFFFFF"><a href="help.asp?action=shouhoufuwu" class="a1">◇售后服务</a></font></td>
<td align=center width="70" height="18"><font color="#FFFFFF"><a href="about.asp?action=lxwm" class="a1">◇联系我们</a></font></td>
<td align=center width="70" height="18"><font color="#FFFFFF"><a href="about.asp?action=jtcg" class="a1">◇集团采购</a></font></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
</tr>
</table>
<!--#include file="copyright.asp"-->
<map name="Map">
<area shape="rect" coords="291,45,360,108" href="#index.htm">
</map>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -