📄 index.asp
字号:
response.write trim(rs("shopcontent"))
end if%>
</font></a></td>
</tr>
</table></td>
</tr>
<%
if (i mod (MaxList/2)=0) and i>=(MaxList/2) then
%>
<%
end if
if i>=MaxList then exit do
rs.movenext
loop
%>
</table></TD>
</TR>
</TBODY>
</TABLE>
</SPAN></TD>
</TR>
</TBODY>
</TABLE>
<SCRIPT>
marqueesHeight=125;
stopscroll=false;
with(icefable1){
style.width=0;
style.height=marqueesHeight;
style.overflowX="visible";
style.overflowY="hidden";
noWrap=true;
onmouseover=new Function("stopscroll=true");
onmouseout=new Function("stopscroll=false");
}
preTop=0; currentTop=125; stoptime=0;
icefable1.innerHTML+=icefable1.innerHTML;
function init_srolltext(){
icefable1.scrollTop=0;
setInterval("scrollUp()",10);
}
init_srolltext();
function scrollUp(){
if(stopscroll==true) return;
currentTop+=1;
if(currentTop==127)
{
stoptime+=1;
currentTop-=1;
if(stoptime==800)
{
currentTop=0;
stoptime=0;
}
}
else {
preTop=icefable1.scrollTop;
icefable1.scrollTop+=1;
if(preTop==icefable1.scrollTop){
icefable1.scrollTop=125;
icefable1.scrollTop+=1;
}
}
}
</SCRIPT> </td>
</tr>
</table></td>
<td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td align="center" valign="top"><a href="zhuanti.asp"><img src="images/pic_010.gif" alt="全部商品专题" width="170" height="63" border="0"></a>
<table width="100%" height="250" 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 12 * From shop_zhuanti order by newsid 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=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
%>
</table>
<%
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3" align="left" valign="top"><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 width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"><IMG height=5 src="images/block.gif" width=1><font color="<%=tzh%>"> 品牌推荐:</font>
<font color="<%=tsh%>">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 20 * From shop_pingpai where tuijian=1 order by pingpaiorder",conn,1,1
if rs.eof and rs.bof then
response.write ""
else%>
<%
while not rs.eof
response.write "·<a href=research.asp?action=0&searchkey="&trim(rs("pingpainame"))&" target=_blank><font color="&tsh&">"&trim(rs("pingpainame"))&"</font></a>"
rs.movenext
wend
%>
<%end if
rs.close
set rs=nothing%>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8"><IMG height=1 src="images/block.gif" width=1></td>
<td background="images/dot_02.gif"><IMG height=1 src="images/block.gif" width=1></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><a href="class.asp?lx=tejia"><img src="images/pic_019.gif" alt="全部特价商品" width="436" height="63" border="0"></a>
<table width="100%" height="110" align='center' cellspacing='5'>
<tr>
<td align='center' valign='top'> <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 tejiashop=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></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"><img src="images/pic_020.gif" width="170" height="63">
<table width="100%" border="0" cellspacing="0" ce??llpadding="0">
<tr>
<td align="left" valign="top"> <table border="0" align="center" cellSpacing="0">
<tr>
<td height="23"><marquee direction="up" width="150" height="120" scrollamount="2" id=info onMouseOver=info.stop() onMouseOut=info.start() >
<%=gonggao%> </marquee> </td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="1" rowspan="2" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td width="1" rowspan="2" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
</tr>
<tr> </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8" rowspan="2"><IMG height=1 src="images/block.gif" width=1></td>
<td background="images/dot_02.gif"><IMG height=1 src="images/block.gif" width=1></td>
</tr>
<tr>
<td height="30"><TABLE width="98%" border=0 cellPadding=0 cellSpacing=0>
<TR>
<form name=form1 method=get action=research.asp>
<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="searchkey" 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>
</FORM>
</TR>
</TABLE></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="60" valign="top"><a href="class.asp?lx=cx"><img src="images/pic_021.gif" alt="全部促销商品" width="436" height="63" border="0"></a>
<table width="96%" height="110" align='center' cellspacing='3'>
<tr>
<td align='center'> <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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -