📄 index.asp
字号:
<%end if%>
<%
if i>=10 then exit do
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%end if%></td>
</tr>
<tr>
<td height="68"><a href=<%=xiao1url%> target="_blank"><img src=<%=xiao1%> border="0"></a></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><br>
<img src="images/jptj.jpg" width="436" height="43" border="0" usemap="#Map2"></div></td>
</tr>
<tr>
<td height="68">
<%set rs=conn.execute("select top 10 bookname,bookid,bookpic,shichangjia,huiyuanjia,tuantijia,queshu,dazhe from shop_books WHERE bestbook=1 order by bookdateorder desc , bookid desc")
if rs.eof and rs.bof then
response.write "<center><font color=red >本站还未添加推荐图书！</font></td></tr>"
else
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<%
i=0
num=0
do while not rs.eof
i=i+1
num = Num+1
If num Mod 2 = 0 Then
%>
<td width="50%" height="23">
<%showbook%>
</td>
</tr>
<%else%>
<tr>
<td width="50%">
<%showbook%>
</td>
<%end if%>
<%
if i>=10 then exit do
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%end if%></td>
</tr>
</table></td>
<td width="157" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="00A2D3">
<tr>
<td height="24" background="images/GZPH.gif"><div align="center"></div></td>
</tr>
<tr>
<td bgcolor="#D4EEFB"> <%dim sql
if paihangkongzhi=0 then
sql="select top 20 bookid,bookname from shop_books order by liulancount desc"
else
sql="select top 20 bookid,bookname from shop_books where guanzhupaihang=1 order by bookdateorder desc"
end if
set rs=conn.execute(sql)
i=0
do while not rs.eof
response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"
if len(trim(rs("bookname")))>12 then
response.write left(trim(rs("bookname")),10)&"..."
else
response.write trim(rs("bookname"))
end if
response.write "</a>"
response.write "<br>"
i=i+1
if i>19 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
<div align=right><a href="bookorder.asp">更多排行>></a> </div></td>
</tr>
</table>
<br> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#969F05">
<tr>
<td height="24" background="images/cxph.gif"><div align="center"></div></td>
</tr>
<tr>
<td bgcolor="#FDFADD">
<%
if paihangkongzhi=0 then
sql="select top 20 bookid,bookname from shop_books order by chengjiaocount desc"
else
sql="select top 20 bookid,bookname from shop_books where changxiao=1 order by bookdateorder desc"
end if
set rs=conn.execute(sql)
i=0
do while not rs.eof
response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"
if len(trim(rs("bookname")))>12 then
response.write left(trim(rs("bookname")),10)&"..."
else
response.write trim(rs("bookname"))
end if
response.write "</a>"
response.write "<br>"
i=i+1
if i>19 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
<div align=right><a href="bookorder.asp">更多排行>></a> </div></td>
</tr>
</table>
<br> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FF0000">
<tr>
<td height="24" background="images/wztj.gif"><div align="center"></div></td>
</tr>
<tr>
<td bgcolor="FFEDED">
<%
if paihangkongzhi=0 then
sql="select top 20 bookid,bookname from shop_books where bestbook=1 order by bookdateorder desc"
else
sql="select top 20 bookid,bookname from shop_books where shouyetuijian=1 order by bookdateorder desc"
end if
set rs=conn.execute(sql)
i=0
do while not rs.eof
response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"
if len(trim(rs("bookname")))>12 then
response.write left(trim(rs("bookname")),10)&"..."
else
response.write trim(rs("bookname"))
end if
response.write "</a>"
response.write "<br>"
i=i+1
if i>19 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%></td>
</tr>
</table>
<div align="center"><a href="<%=tx1url%>" target=_blank><br>
</a>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td><a href="<%=tx1url%>" target=_blank><img src="<%=tx1%>" border="0"></a></td>
</tr>
<tr>
<td><a href="<%=tx4url%>" target=_blank><img src="<%=tx4%>" border="0"></a></td>
</tr>
</table>
</div></td>
</tr>
</table>
<div align="center"><a href=<%=xiao2url%> target="_blank"><img src=<%=xiao2%> border="0"></a>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</div>
<div align="center"><%dim music
set music=server.CreateObject("adodb.recordset")
music.open "select musicurl,musicd from shop_config",conn,1,1
if music("musicd")=1 then%>
<object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="380" height="28">
<param name="SRC" value="<%=trim(music("musicurl"))%>">
<param name="CONTROLS" value="ControlPanel">
<param name="_ExtentX" value="9260">
<param name="_ExtentY" value="953">
<param name="AUTOSTART" value="-1">
<param name="LOOP" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0"></embed>
</object><%end if
music.close
set music=nothing%>
</div>
<%conn.close
set conn=nothing%>
<map name="Map">
<area shape="rect" coords="354,26,429,42" href="newShop.asp" target="_blank" alt="点击查看更多新书">
</map>
<map name="Map2">
<area shape="rect" coords="358,24,429,42" href="newShop.asp?Action=tuijian" target="_blank" alt="">
</map>
</body>
</html>
<%sub showbook()%>
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD vAlign=top width="14%" style="PADDING-LEFT: 6px"><img height=103 hspace=5
src="images/bg_book.gif" width=71 vspace=5 border=0> <P style="MARGIN-TOP: -112px"><A href=book.asp?id=<%=rs("bookid")%> target=_blank><IMG
height=96 alt="点击查看《<%=trim(rs("bookname"))%>》详细资料" hspace=5
src=<%if trim(rs("bookpic"))="" then
response.write "images/emptybook.gif"
else
response.write trim(rs("bookpic"))
end if%> width=65 vspace=3
border=0></A></TD>
<TD width="86%"><A class=a4
href=book.asp?id=<%=rs("bookid")%> target=_blank><font color=#FF6600><%=trim(rs("bookname"))%></font></A><BR>
市场价：<del><%=formatnumber(rs("shichangjia"),2)&"元"%></del><BR>
会员价：<font color=#FF6600><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font> <BR>
<%if request.cookies("bookshop")("grtt")=1 then%>团体价：<font color=#FF6600><%=formatnumber(rs("tuantijia"),2)&"元"%></font><%else%>折 扣：<font color=#FF6600><%=formatnumber((round(rs("dazhe"),2)*10),1)%>折</font><%end if%><br>
<TABLE align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD align=middle width=93 height=22><INPUT style="BORDER-RIGHT: #000000 1px solid; BACKGROUND-POSITION: 0% 50%; BORDER-TOP: #000000 1px solid; FONT-WEIGHT: normal; FONT-SIZE: 12px; BACKGROUND-ATTACHMENT: scroll; BORDER-LEFT: #000000 1px solid; COLOR: #000000; LINE-HEIGHT: normal; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-REPEAT: repeat; FONT-STYLE: normal; HEIGHT: 16px; BACKGROUND-COLOR: #CDD912; FONT-VARIANT: normal" <%if int(rs("queshu"))=0 then
response.write "onClick=""javascript:window.open('shoucang.asp?id="&rs("bookid")&"&action=add ','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" "
else
response.write "onClick=javascript:alert('《"&trim(rs("bookname"))&"》暂时没有库存，请您继续关注！')"
end if%> type=button value=收藏 name=Submit2232>
</TD>
<TD width=68 height=22>
<INPUT style="BORDER-RIGHT: #000000 1px solid; BACKGROUND-POSITION: 0% 50%; BORDER-TOP: #000000 1px solid; FONT-WEIGHT: normal; FONT-SIZE: 12px; BACKGROUND-ATTACHMENT: scroll; BORDER-LEFT: #000000 1px solid; COLOR: #000000; LINE-HEIGHT: normal; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-REPEAT: repeat; FONT-STYLE: normal; HEIGHT: 16px; BACKGROUND-COLOR: #CDD912; FONT-VARIANT: normal" <%if int(rs("queshu"))=0 then
response.write "onClick=""javascript:window.open('shopping.asp?id="&rs("bookid")&" ','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" "
else
response.write "onClick=javascript:alert('《"&trim(rs("bookname"))&"》暂时没有库存，请您继续关注！')"
end if
%> type=button value=购买 name=Submit2232>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<%end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -