📄 index.asp
字号:
<%
set rsx=server.createobject("adodb.recordset")
rsx.open "select Top 3 * from shop_snsn where anclassid="&class3&" 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
%><tr>
</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/fl4.gif"><img src="images/fl04.jpg" width="43" height="29"></td>
<td width="500" background="images/fl4.gif"><b><font
color=#ff6600><b><font
color=#ff6600><b>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_anclass where anclassid="&class4&"",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=big&anid="&class4&"><font color="&trim(rs2("sztys"))&">"&trim(rs2("anclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</b></font></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="&class4&" order by nclassidorder",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=small&anid="&class4&"&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="&class4&" 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>
</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>
<a href="shoporder.asp"><img src="images/pic_025.gif" alt="商品销售排行榜" width="606" 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=6
rs.open "select * from shop_snsn order by chengjiaocount 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>
<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><IMG height=5 src="images/block.gif" width=1></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>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><IMG height=5 src="images/block.gif" width=1></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
</tr>
</table>
</BODY></HTML>
<%if pfdy=1 then %>
<div id="pf" style="position:absolute; left:297px; top:114px; width:100px; height:100px; z-index:1"><a href="<%=pfurl%>" target="_blank"><img src="<%=pf%>" width="<%=pfw%>" height="<%=pfh%>" border="0"></a></div>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var xPos = 20;
var yPos = document.body.clientHeight;
var step = 1;
var delay = 30;
var height = 0;
var Hoffset = 0;
var Woffset = 0;
var yon = 0;
var xon = 0;
var pause = true;
var interval;
pf.style.top = yPos;
function changePos() {
width = document.body.clientWidth;
height = document.body.clientHeight;
Hoffset = pf.offsetHeight;
Woffset = pf.offsetWidth;
pf.style.left = xPos + document.body.scrollLeft;
pf.style.top = yPos + document.body.scrollTop;
if (yon) {
yPos = yPos + step;
}
else {
yPos = yPos - step;
}
if (yPos < 0) {
yon = 1;
yPos = 0;
}
if (yPos >= (height - Hoffset)) {
yon = 0;
yPos = (height - Hoffset);
}
if (xon) {
xPos = xPos + step;
}
else {
xPos = xPos - step;
}
if (xPos < 0) {
xon = 1;
xPos = 0;
}
if (xPos >= (width - Woffset)) {
xon = 0;
xPos = (width - Woffset);
}
}
function start() {
pf.visibility = "visible";
interval = setInterval('changePos()', delay);
}
function pause_resume() {
if(pause) {
clearInterval(interval);
pause = false;
}
else {
interval = setInterval('changePos()',delay);
pause = true;
}
}
start();
// End -->
</script>
<%end if%>
<!--#include file="copyright.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -