📄 index_mid.asp
字号:
<html>
<head>
<title>index_mid</title>
</head>
<body>
<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><!--#include file="bkorder_guz.asp"--></td>
</tr>
</table>
<td width="468" valign="top">
<table width="460" border="0" bgcolor="#6600ff" 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="#6600ff" cellspacing="0" cellpadding="0">
<td width="25%" align="left"><font color="#FFFFFF" size="2">
每日新书 </font><font face="方正舒体"><font color="#FFFFFF" size="4"><b>VFP</b></font></font></td>
<td width="55%"></td>
<td width="20%" align="right"><a href="bookorder.asp"><font color="#FFFFFF">更多新书>></font></a></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 bestbook=1 and nclassid=13 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>
<tr><td><b> 专题 </b>| <a href=bkzt01.asp target=_blank>张洪举</a>
· <a href=bkzt02.asp target=_blank>章立民</a>
· <a href=bkzt07.asp target=_blank><font color=red>经典旅游</font></a>
<td><b> 时尚 </b>| <a href=bkzt05.asp target=_blank><font color=red>流行小说6折</font></a>
· <a href=bkzt06.asp target=_blank><font color=red>最新等考用书</font></a>
</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 isbn<>'0' and nclassid=13 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>5 then exit do
rs.movenext
loop
rs.close
set rs=nothing%>
<tr>
<td height=5 colspan=2></td>
</tr>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<td width="155" valign="top">
<table width="155" border="0" bgcolor="#6699ff" 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%" align=center height="18" background="images/bg1.gif"><font color='#ffffff' size=2>网站新闻</font></td>
</tr>
<td><%
new_i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 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
new_i=new_i+1
response.write "·<a href=# onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=no, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"
if len(trim(rs("newsname")))>10 then
response.write left(trim(rs("newsname")),11)&"</a><br>"
else
response.write trim(rs("newsname"))&"</a><br>"
end if
if i>5 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing%>
<tr>
<td height="3">
</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%" align=center height="18" background="images/bg1.gif"><font color='#ffffff' size=2>网站调查</font></td>
</tr>
<tr>
<td align=center><font color=blue>建议网站从以下方面改进</font>
<tr><td>
<p style="margin-bottom: -14">
<FORM method=post action=adds.asp name=Research>
<INPUT type=radio value=a name=Options checked>图书品种及网站功能<BR>
<INPUT type=radio value=b name=Options>产品物流和售后服务<BR>
<INPUT type=radio value=c name=Options>网站推广及媒介合作<BR><BR>
<center><INPUT type=submit value=提交>
<INPUT type=button value=查看 name=SubmitSearch onClick="javascript:window.open('display.asp','','width=380,height=180,toolbar=no, status=no, menubar=no, resizable=no, scrollbars=no');return false;">
<p style="margin-bottom: -14">
</center></FORM></td>
</tr>
</table>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -