📄 index_bot.asp
字号:
</tr>
</table>
</td>
</tr>
</table>
</tr>
</table>
<%end if
rs.close
set rs=nothing%>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="776" height="3"></td>
</tr>
</table>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="155" valign="top">
<table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr><td>
<table width='155' border='0' cellspacing='0' cellpadding='0' bgcolor='#009933'>
<td width='6'><img src='imgside/ss_050910_lll_09.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_10.gif' width='6' height='18' alt=''></td>
</table>
</tr>
<tr>
<td width='100%' background=imgside/bg_cartinfo5.gif>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 fklginuser,fkreply,fkdate from shop_fk order by fkdate desc",conn,1,1
do while not rs.eof%>
<tr><td><%if trim(rs("fkreply"))<>"" then
response.write "·"&trim(rs("fkdate"))
end if%></font></td></tr>
<tr><td> 读者 <font color=red><%=trim(rs("fklginuser"))%></font></td></tr>
<%rs.movenext
loop %>
<tr><td><font color=blue> 以上留言，版主已回复</font></td></tr>
<tr>
<td height="8">
</tr>
</tr>
</table>
<tr><td width='100%'><img src=imgside/pic_cartinfobottom5.gif width=155 height=3></td>
</tr>
</table>
<td width="468" valign="top">
<table width="462" border="0" align="center" cellspacing="0" cellpadding="1">
<tr>
<td valign="top">
<table width="100%" bgcolor="#6600ff" border="0" cellspacing="0" cellpadding="1">
<tr>
<td><table width="100%" height="18" border="0" cellspacing="0" cellpadding="1">
<td width="40%" align="left"><font color="#FFFFFF" size="2">
十元图书</font></td>
<td width="25%"></td>
<td width="35%" align="right" ></td>
</table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 2 bookid,bookcontent,dazhe,shichangjia,huiyuanjia,bookname,bookpic from shop_books where dazhe<0.6 order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "<br>目前没有特价图书"
else%>
<tr><td>
<TABLE bgcolor="#ffffff" cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD><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>
<P style="MARGIN-TOP: -50px" align=right> </P></TD>
<TD valign="top"><A href=book.asp?id=<%=rs("bookid")%> target=_blank><%=trim(rs("bookname"))%></A>
<BR>
<%if trim(rs("bookcontent"))<>"" then
if len(trim(rs("bookcontent")))> 58 then
response.write left(trim(rs("bookcontent")),56)&"..."
else
response.write left(trim(rs("bookcontent")))
end if
end if%>
</TD>
</TR>
<TR>
<TD colSpan=2> <DIV align=center>市场价：<%=formatnumber(rs("shichangjia"),2)%> 会员价：<font color=#FF6600><%=formatnumber(rs("huiyuanjia"),2)%></font></div>
<tr>
<td colSpan=2 align=center><%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>
<a href="bookorder.asp">更多十元书>></a></td>
</TR>
</TBODY>
</TABLE>
<%end if%>
</TD></TR>
</TABLE>
<%rs.movenext%>
<td valign="top">
<table width="100%" bgcolor="#6600ff" border="0" cellspacing="0" cellpadding="1">
<tr>
<td><table width="100%" height="18" border="0" cellspacing="1" cellpadding="0">
<td width="40%" align="left"><font color="#FFFFFF" size="2">
半价图书</font></td>
<td width="25%"></td>
<td width="35%" align="right"></td>
</table>
<tr><td>
<TABLE bgcolor="#ffffff" cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD><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>
<P style="MARGIN-TOP: -50px" align=right> </P></TD>
<TD valign="top"><A href=book.asp?id=<%=rs("bookid")%> target=_blank><%=trim(rs("bookname"))%></A>
<BR>
<%if trim(rs("bookcontent"))<>"" then
if len(trim(rs("bookcontent")))> 58 then
response.write left(trim(rs("bookcontent")),56)&"..."
else
response.write trim(rs("bookcontent"))
end if
end if%>
</TD>
</TR>
<TR>
<TD colSpan=2> <DIV align=center>市场价：<%=formatnumber(rs("shichangjia"),2)%> 会员价：<font color=#FF6600><%=formatnumber(rs("huiyuanjia"),2)%></font></div>
<tr>
<td colSpan=2 align=center><%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>
<a href="bookorder.asp">更多半价书>></a></td>
</TR>
</TBODY>
<%rs.close
set rs=nothing%>
</TABLE>
</TD></TR>
</TABLE>
</TR>
</TABLE></td>
<td width="155" valign="top">
<table width="100%" border="0" bgcolor="#3399ff" align="right" cellpadding="0" cellspacing="1">
<tr>
<td width="155" valign="top">
<table width="100%" border="0" bgcolor="#ffffff" align="right" cellpadding="0" cellspacing="1">
<tr>
<td bgcolor="#3399ff" height=18><center><font color="#ffffff" size=2>网友书评荟萃</center><font></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 4 bookid,pingluncontent,pinglunname,pinglundate from shop_pinglun order by pinglundate desc",conn,1,1
do while not rs.eof%>
<tr><td>·<A href=book.asp?id=<%=rs("bookid")%> target=_blank>
<%if trim(rs("pingluncontent"))<>"" then
if len(trim(rs("pingluncontent")))>22 then
response.write left(trim(rs("pingluncontent")),20)&"..."
else
response.write trim(rs("pingluncontent"))
end if
end if%></a></td></tr>
<tr>
<td><font color=red> 发表人:</font><%=rs("pinglunname")%></td>
</tr>
<% rs.movenext
loop %>
<tr>
<td height="8"></td>
</tr>
</table>
</tr>
</table>
</tr>
</table>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -