<%set rs=server.createobject("adodb.recordset") rs.open "select Top 8 * from shop_books where tejiabook=1 and bestbook=1 order by bookid desc",conn,1,1 if rs.recordcount=0 then response.write "" else For i=1 to 2 %> <% For j=1 to 2 If Rs.eof then exit for %> <% Rs.Movenext Next %> <% If i=8 or Rs.Eof Then Exit For Next End if Rs.Close Set Rs=nothing %>
 暂无推荐特价
<%if rs("bookpic")="" then response.write "
" else%>
target=_blank class="B333333"><%=trim(rs("bookname"))%>
市场价:<%=formatnumber(rs("shichangjia"),2)&"元"%>
会员价:<%=formatnumber(rs("huiyuanjia"),2)&"元"%>
VIP 价:<%if request.cookies("snsn")("username")="" or right(request.cookies("snsn")("username"),6)="2asdda" then%> 请先登录 <%else if Request.Cookies("snsn")("reglx")=2 then response.write ""&(rs("Vipjia"))&"元" else response.write ""&" VIP查看 如何申请VIP" end if end if %>
 &action=add" target="_blank">收藏   &action=add" target="_self">购买
 
<%if len(trim(rs("bookcontent")))>50 then response.write left(nohtml(rs("bookcontent")),50)&"...." else response.write nohtml(rs("bookcontent")) end if%>
 
  新品!
  推荐!
  特价!
<%set rs=server.createobject("adodb.recordset") rs.open "select Top 5 * from shop_books where newsbook=1 order by bookid desc",conn,1,1 if rs.recordcount=0 then response.write "" else while not rs.eof %> <% rs.movenext wend end if rs.close %>
 暂无新品
 -> target=_blank> <%if len(trim(rs("bookname")))>20 then response.write left(nohtml(rs("bookname")),20)&"...." else response.write nohtml(rs("bookname")) end if%>
 
  <%=gonggao%>
 
<%set rs=server.createobject("adodb.recordset") rs.open "select Top 28 * from shop_books where bestbook=1 order by bookid desc",conn,1,1 if rs.recordcount=0 then response.write "" else For i=1 to 12 %> <% For j=1 to 2 If Rs.eof then exit for %> <% Rs.Movenext Next %> <% If i=5 or Rs.Eof Then Exit For Next End if Rs.Close Set Rs=nothing %>
 暂无推荐特价
<%if rs("bookpic")="" then response.write "
" else%>
target=_blank>" width=100 border=0 alt="<%=trim(rs("bookname"))%>">
<%end if%>
target=_blank class="B333333"><%=trim(rs("bookname"))%>
市场价:<%=formatnumber(rs("shichangjia"),2)&"元"%>
会员价:<%=formatnumber(rs("huiyuanjia"),2)&"元"%>
VIP 价: <%if request.cookies("snsn")("username")="" or right(request.cookies("snsn")("username"),6)="2asdda" then%> 请先登录 <%else if Request.Cookies("snsn")("reglx")=2 then response.write ""&(rs("Vipjia"))&"元" else response.write ""&" VIP查看 如何申请VIP" end if end if %>
 &action=add" target="_blank">收藏   &action=add" target="_self">购买
 
<%if len(trim(rs("bookcontent")))>50 then response.write left(nohtml(rs("bookcontent")),50)&"...." else response.write nohtml(rs("bookcontent")) end if%>
 
<%'dim i i=0 set rs=server.CreateObject("adodb.recordset") rs.open "select top 55 newsname,adddate,newsid from shop_news order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有新闻!" else do while not rs.eof if i>55 then exit do i=i+1%> <%rs.movenext loop end if rs.close set rs=nothing%>
  <%if len(trim(rs("newsname")))>12 then response.write "-> "&left(trim(rs("newsname")),15)&"...."&"  " else response.write "-> "&trim(rs("newsname"))&" " end if Response.Write(year(rs("adddate"))&"."&month(rs("adddate"))&"."&day(rs("adddate"))) %>
 
<% set rs=server.createobject("adodb.recordset") rs.open "select Top 50 * from zhuanti order by newsid desc",conn,1,1 if rs.recordcount=0 then response.write "目前还没有新闻!" else while not rs.eof %> <% rs.movenext wend end if rs.close set rs=nothing %>
-> " target="_blank"> <%if len(trim(rs("title")))>12 then response.write left(trim(rs("title")),12)&"...." else response.write trim(rs("title")) end if%>   <%=year(rs("updatetime"))&"."&month(rs("updatetime"))&"."&day(rs("updatetime"))%>
<% CloseConn() %>