📄 index0.asp
字号:
</table>
</td>
</tr>
<tr>
<td background="images/bj_2.gif"> </td>
</tr>
</table>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_3.gif" height="28">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td width=5> </td>
<td width=28>
<div align="center"><img src="images/index7.gif" width="14" height="10"></div>
</td>
<td class=hg12 valign=bottom width="123"> <b>最新动态</b></td>
<td width=12> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_4.gif">
<table width="94%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6%"> </td>
<td width="94%"><marquee direction="up" width="100%" height="106" scrollamount="2" id=info onMouseOver=info.stop() onMouseOut=info.start() ><%=gonggao%></marquee></td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_5.gif" height="19"> </td>
</tr>
</table>
<table width="178" border="0" cellspacing="0" cellpadding="0" height="68">
<tr>
<td background="images/tp_bj.gif" height="68">
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="right"><a href="<%=tx3url%>" target=_blank><img src="<%=tx3%>" width="166" height="55" border="0"></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,huiyuanjia from shop_books where bestbook=1 order by adddate desc",conn,1,1
dim icount
icount=rs.recordcount
if rs.eof and rs.bof then
response.write "<center> </center>"
else%>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_0.gif" height="28">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td width=5> </td>
<td width=28>
<div align="center"><img src="images/index7.gif" width="14" height="10"></div>
</td>
<td class=hg12 valign=bottom width="123"> <b><font color="#990000">精品推荐</font></b></td>
<td width=12> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_1.gif">
<table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2"></td>
</tr>
<tr>
<td height="20">
<div align="center"> </div>
</td>
</tr>
<tr>
<td>
<%
i=0
do while not rs.eof
response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"
if len(trim(rs("bookname")))>18 then
response.write left(trim(rs("bookname")),18)&"..."
else
response.write trim(rs("bookname"))
end if
response.write "</a> <font color=#FF6600>"&formatnumber(rs("huiyuanjia"),2)&"元</font><br>"
i=i+1
if i>=5 then exit do
rs.movenext
loop
%>
</td>
</tr>
<tr>
<td height="1"></td>
</tr>
<tr>
<td height="1" ></td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_2.gif"> </td>
</tr>
</table>
<%end if
rs.close
set rs=nothing%>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from pingpai where tuijian=1 order by pingpaiorder",conn,1,1
if rs.eof and rs.bof then
response.write "<center> </center>"
else%>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_0.gif" height="28">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td width=5> </td>
<td width=28>
<div align="center"><img src="images/index7.gif" width="14" height="10"></div>
</td>
<td class=hg12 valign=bottom width="123"> <b><font color="#990000">品牌推荐</font></b></td>
<td width=12> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_1.gif">
<table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2"></td>
</tr>
<tr>
<td height="19">
<div align="center"> </div>
</td>
</tr>
<tr>
<td>
<%
while not rs.eof
response.write "·<a href=research.asp?action=2&searchkey="&trim(rs("pingpainame"))&" target=_blank>"&trim(rs("pingpainame"))&"</a><br>"
rs.movenext
wend
%>
</td>
</tr>
<tr>
<td height="1" ></td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_2.gif" height="19"> </td>
</tr>
</table>
<%end if
rs.close
set rs=nothing%>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_0.gif" height="28">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td width=5> </td>
<td width=28>
<div align="center"><img src="images/index7.gif" width="14" height="10"></div>
</td>
<td class=hg12 valign=bottom width="123"> <b>特价商品</b></td>
<td width=12> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_1.gif">
<table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="20">
<%
set rs=server.CreateObject("adodb.recordset")
i=0
rs.open "select top 8 bookid,dazhe,bookname from shop_books where dazhe<=0.6 order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "<br>目前没有特价商品"
end if
if rs.recordcount>=3 then
rs.absoluteposition=3
do while not rs.eof
i=i+1
if len(trim(rs("bookname")))>14 then
response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"&left(trim(rs("bookname")),12)&"...</a> <font color=#FF6600>"&rs("dazhe")*100&"%</font><br>"
else
response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"&trim(rs("bookname"))&"</a> <font color=#FF6600>"&rs("dazhe")*100&"%</font><br>"
end if
if i>=6 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td height="1"></td>
</tr>
<tr>
<td height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_2.gif"> </td>
</tr>
</table>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_0.gif" height="28">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td width=5> </td>
<td width=28>
<div align="center"><img src="images/index7.gif" width="14" height="10"></div>
</td>
<td class=hg12 valign=bottom width="123"> <b>请投一票</b></td>
<td width=12> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/bj_1.gif">
<!--
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CDDEED">
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="20">
<div align="center">
<script language="javascript" src="admin/vote/votedy.asp"></script>
</div>
</td>
</tr>
<tr>
<td></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -