📄 index_mid.asp
字号:
</tr>
</table>
<table width="776" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td 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='#999666'>
<td width='6'><img src='imgside/ss_050910_lll_07.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_08.gif' width='6' height='18' alt=''></td>
</table>
</tr>
<tr>
<td width='100%' background=imgside/bg_cartinfo4.gif valign="top">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select anclassid,anclass,changyong from shop_anclass where changyong=1 order by anclassidorder",conn,1,1
do while not rs.eof
response.write "<table width=100% border=0 cellspacing=0 cellpadding=0>"
response.write "<tr><td colspan=3><div align=center>"
response.write "【"&trim(rs("anclass"))&"】"
response.write "</div></td></tr>"
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select nclassid,nclass,changyong,anclassid from shop_nclass where changyong=1 and anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
do while not rs2.eof
Dim num1 '//判断数字奇偶
num1 = Num1+1
If num1 Mod 2 = 0 Then
response.write "<td width=80><div align=left><a href=class.asp?aid="&rs2("anclassid")&"&nid="&rs2("nclassid")&">"&trim(rs2("nclass"))&"</a></div></td></tr>"
else
response.write "<tr><td width=70><div align=right><a href=class.asp?aid="&rs2("anclassid")&"&nid="&rs2("nclassid")&">"&trim(rs2("nclass"))&"</a></div></td>"
response.write "<td width=12><div align=center><FONT color=#ff6600>|</FONT></div></td>"
end if
rs2.movenext
loop
rs2.close
set rs2=nothing
response.write "<tr><td height=3>"
response.write "</table>"
rs.movenext
loop
rs.close
set rs=nothing%>
<tr><td height=3><img src=imgside/pic_cartinfobottom4.gif width=155 height=3></td></tr>
</tr>
</table>
<td width="468" valign="top">
<table width="460" border="0" bgcolor="#999666" align="center" cellspacing="0" cellpadding="1">
<tr>
<td width="100%" align="center">
<table width="100%" border="0" bgcolor="#ffffff" align="center" cellspacing="1" cellpadding="0">
<tr>
<td><table width="100%" height="18" border="0" bgcolor="#999666" cellspacing="0" cellpadding="0">
<td width="35%" align="left"><font color="#FFFFFF" size="2">
每日新书 </font><font face="方正舒体"><font color="#FFFFFF" size="4"><b>VB</b></font></font></td>
<td width="45%"></td>
<td width="20%" align="right"><a href="bookorder.asp"><font color="#FFFFFF">更多新书>></font></a></td>
</table>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookname,bookid,bookchuban,bookpic,shichangjia,huiyuanjia,dazhe,bookzz from shop_books where bestbook=1 and nclassid=15 order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "<center><font color=red size=4>对不起，请您先到后台添加图书！</font></center>"
response.End
end if%>
<tr>
<td><table cellSpacing=0 cellPadding=0 width="100%" border=0 bgcolor="#FFFFFF">
<tr>
<td width="50%" height=2><table cellSpacing=0 cellPadding=0 width="100%">
<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>
<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>
<%rs.movenext%>
<td vAlign=top width="30%">
<table cellSpacing=0 cellPadding=0 width="100%">
<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>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 12 bookname,bookid,bookchuban,bookpic,shichangjia,huiyuanjia,dazhe,bookzz from shop_books where bestbook<>1 and nclassid=15 order by adddate desc",conn,1,1
rs.absoluteposition=1
i=0
do while not rs.eof%>
<tr>
<td width="50%" style="PADDING-LEFT: 6px">·<a href=book.asp?id=<%=rs("bookid")%> target=_blank>
<%if len(trim(rs("bookname")))>16 then
response.write left(trim(rs("bookname")),13)&"..."
else
response.write trim(rs("bookname"))
end if%></a>
<%response.write "<font color=red>￥</font><font color=#000099>"&rs("huiyuanjia")&"</font>"
rs.movenext%>
<td width="50%" style="PADDING-LEFT: 6px">·<a href=book.asp?id=<%=rs("bookid")%> target=_blank>
<%if len(trim(rs("bookname")))>16 then
response.write left(trim(rs("bookname")),13)&"..."
else
response.write trim(rs("bookname"))
end if%></a>
<%response.write "<font color=red>￥</font><font color=#000099>"&rs("huiyuanjia")&"</font>"
%>
</tr>
<%if i>=6 then exit do
rs.movenext
loop
rs.close
set rs=nothing%>
<tr>
<td height=25 colspan=2><b> <font color=red>提示 </font></b>| <a href=bkzt01.asp target=_blank><font color=blue>用支付宝购买张洪举图书，点击进入->></font></a></td>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<td width="155" valign="top">
<table width="155" border="0" bgcolor="#ff0066" cellpadding="0" cellspacing="1">
<tr>
<td width="155" height="100" valign="top">
<table width="100%" border="0" bgcolor="#ffffff" cellpadding="0" cellspacing="1">
<tr>
<td width="100%" height="18" bgcolor="#ff0066"><font color=blue>->>风景一</font>
</tr>
<tr>
<td width="100%" height="106" bgcolor="#ffffff"><a href=#><img src="images/ly1.gif" width="100%" height="100%" border="0"></a></td>
</tr>
</tr>
</table>
</tr>
<tr>
<td width="155" height="100" valign="top">
<table width="100%" border="0" bgcolor="#ffffff" cellpadding="0" cellspacing="1">
<tr>
<td width="100%" height="18" bgcolor="#ff0066"><font color=blue>->>风景二</font>
</tr>
<tr>
<td width="100%" height="106" bgcolor="#ffffff"><a href=#><img src="images/ly2.gif" width="100%" height="100%" border="0"></a></td>
</tr>
<tr>
<td align="center"> <a href=book.asp?id=168 target=_blank><font color=blue>购买全套，点击进入->></font></a></td>
</tr>
</table>
</tr>
</table>
</tr>
</table>
</body>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -