📄 index_bot.asp
字号:
<html>
<head>
<title>index_bot</title>
</head>
<body>
<table width=776 align="center" border="0" cellspacing="0" cellpadding="1">
<tr>
<%
set rs_gg_C=server.CreateObject("adodb.recordset")
rs_gg_C.Open "select * from shop_ggpic where ggpicposi='C' order by picaddate desc",conn,1,1
do while not rs_gg_C.eof
%>
<td><div align="center"><a href=<%=trim(rs_gg_C("ggpicurl"))%> target=_blank><img src="<%=trim(rs_gg_C("ggpicpath"))%>" width="258" height="50" border="0"></a></div></td>
<%
rs_gg_C.movenext
loop
rs_gg_C.close
set rs_gg_C=nothing
%>
</tr>
</table>
<table width=776>
<tr>
<td width="100%" height="3">
</tr>
</table>
<%Dim rsc,numc
set rsc=server.CreateObject("adodb.recordset")
rsc.open "select top 10 pubid,bookchuban,pubjian from shop_publish order by pubid ",conn,1,1
%>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td width="155" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td>
<table width='155' border='0' cellspacing='0' cellpadding='0' bgcolor='#800000'>
<td width='6'><img src='imgside/ss_050910_lll_03.gif' width='6' height='18' alt=''></td>
<td align=center><font color='#ffffff' size=2>出版社推荐</font></td>
<td width='6'><img src='imgside/ss_050910_lll_04.gif' width='6' height='18' alt=''></td>
</table>
<tr><td width='100%' background=imgside/bg_cartinfo2.gif>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td height=5>
<% do while not rsc.eof
numc = Numc+1
If numc Mod 2 = 0 Then '//判断数字奇偶
response.write "<td width=80><div align=left><a href=publish.asp?pid="&rsc("pubid")&" target=_blank>"&left(rsc("bookchuban"),4)&"</a></div></td>"
else
response.write "<tr><td width=70><div align=right><a href=publish.asp?pid="&rsc("pubid")&" target=_blank>"&left(rsc("bookchuban"),4)&"</a></td>"
response.write "<td width=12><div align=center><FONT color=#ff6600>|</FONT></div></td>"
end if
rsc.movenext
loop
rsc.close
set rsc=nothing%>
<tr>
<td colspan=3 width="20%" align="right"><a href=#>更多出版社>></a> </td>
</tr>
<tr>
<td height="5">
</tr>
</table>
<tr><td width='100%'><img src=imgside/pic_cartinfobottom2.gif width=155 height=3></td>
</tr>
</table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookname,bookid,bookchuban,bookpic,shichangjia,huiyuanjia,dazhe,bookzz from shop_books where bbestbook=1 order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "<center> </center>"
else%>
<td width="468" valign="top">
<table width="460" border="0" bgcolor="#6600ff" align="center" cellspacing="0" cellpadding="1">
<tr>
<td><table width="100%" height="18" border="0" cellspacing="0" cellpadding="1">
<td width="25%" align="left"><font color="#FFFFFF" size="2">
编辑主荐</font></td>
<td width="55%"></td>
<td width="20%" align="right"><a href="bookorder.asp"><font color="#FFFFFF">更多新书>></font></a></td>
</table></tr>
<tr>
<td><table width="100%" border=0 bgcolor="#FFFFFF" align="center" cellSpacing=0 cellPadding=1 >
<tr>
<td width="50%" vAlign=top>
<table width="100%" border=0 cellSpacing=0 cellPadding=0 >
<tr>
<td vAlign=top width="41%" 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=图书封面 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 vAlign=top width="59%"><A class=a4
href=book.asp?id=<%=rs("bookid")%> target=_blank><%if len(trim(rs("bookname")))>21 then
response.write left(trim(rs("bookname")),21)
else
response.write trim(rs("bookname"))
end if%></A><BR>
<%if len(trim(rs("bookname")))<8 then response.write "<br>"%>
市场价：<%=formatnumber(rs("shichangjia"),2)&"元"%><BR>
会员价：<font color=#FF6600><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><BR>
可节省：<%=formatnumber(round(rs("shichangjia")-rs("huiyuanjia"),2),2)%>元<br>
<%response.write "<a href=# onClick=""javascript:window.open('add_bk.asp?bookid="&rs("bookid")&"&purchase=1','','width=730,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;""><img src=images/ind_gw.gif width=43 height=12 border=0 align='middle'></a>"%>
<a href="shoucang.asp?action=add&id=<%=rs("bookid")%>" target=_blank><img src="images/ind_sc.gif" width="43" height="12" border="0" align="middle"></a></td>
</tr>
</table>
<%rs.movenext%>
<td width="50%" vAlign=top>
<table width="100%" border=0 cellSpacing=0 cellPadding=0 >
<tr>
<td vAlign=top width="41%" 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=图书封面 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 vAlign=top width="59%"><A class=a4
href=book.asp?id=<%=rs("bookid")%> target=_blank><%=trim(rs("bookname"))%></A><BR>
<%if len(trim(rs("bookname")))<14 then response.write "<br>"%>
市场价：<%=formatnumber(rs("shichangjia"),2)&"元"%><BR>
会员价：<font color=#FF6600><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><BR>
可节省：<%=formatnumber(round(rs("shichangjia")-rs("huiyuanjia"),2),2)%>元<br>
<%response.write "<a href=# onClick=""javascript:window.open('add_bk.asp?bookid="&rs("bookid")&"&purchase=1','','width=730,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;""><img src=images/ind_gw.gif width=43 height=12 border=0 align='middle'></a>"%>
<a href="shoucang.asp?action=add&id=<%=rs("bookid")%>" target=_blank><img src="images/ind_sc.gif" width="43" height="12" border="0" align="middle"></a></td>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<td width="155" valign="top">
<table width="100%" border="0" align="right" bgcolor="#ff9933" cellpadding="0" cellspacing="1">
<tr>
<td>
<table width="100%" height="18" align="right" border="0" cellpadding="0" cellspacing="1">
<tr><td>
<%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="155" height="25">
<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>
<%else
response.write "<center><font size=2>目前还没有音乐播放!</font></center>"
end if
music.close
set music=nothing%>
</tr>
</table>
</td>
</tr>
<tr>
<td width="155" valign="top">
<table width="100%" border="0" bgcolor="#FFFFFF" align="right" cellpadding="0" cellspacing="1">
<tr><td>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="100%" height="114">
<param name="movie" value="images/flsh.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="images/3dquan.swf" width="100%" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed></object>
</td>
</tr>
<tr>
<td height="5" bgcolor="#FFFFFF">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -