📄 newbook.inc
字号:
<%
set conn=server.CreateObject("ADODB.connection")
conn.open application("dtbase"),application("user"),application("pwd")
sql="select top 20 bookid,ISBN,bookname,unitprice,introduce from books order by bookid DESC"
set Recnew=server.CreateObject("ADODB.Recordset")
Recnew.open sql,conn,3
%>
<br>
<table width="740" border="0" cellspacing="0" cellpadding="0" bgcolor="0" align="center">
<tr>
<td width="360" bgcolor="#F7F7FF" valign=top>
<table border=0 cellspacing=1 cellpadding=0 width=100% bgcolor="#9999ff">
<tr>
<td><img src="images/newbook.gif"></td>
</tr>
</table>
<br>
<table border=0 callspacing=0 cellpadding=0 width=90% align=center>
<tr>
<td>
<%for i = 1 to 11%>
<a href="display.asp?bookid=<%=Recnew("bookid")%>">《<%=Recnew("bookname")%>》</a><br><br>"
<%=left(Recnew("introduce"),100)%>......<br>
<div align=right><a href="display.asp?bookid=<%=Recnew("bookid")%>">查看详细信息</a></div><br><br>
<%
Recnew.MoveNext
next
%>
</td>
</tr>
</table>
</td>
<td width="20" bgcolor="#ffffff">
<img src="images/line.gif" width="18" height="100%">
</td>
<td width="360" bgcolor="#F7F7FF" valign=top>
<br>
<table border=0 cellpadding=0 cellspacing=0 width=90% align=center>
<tr>
<td>
<%
for i = 12 to 20
%>
<a href="display.asp?bookid=<%=Recnew("bookid")%>"><img src="pages/<%=rtrim(Recnew("ISBN"))%>.jpg" border=0 align=right width="60" height="87"></a><br>
<span class="color3"> ■ </span>
<a href="display.asp?bookid=<%=Recnew("bookid")%>"><%=Recnew("bookname")%></a>
<br><br>
<%
Response.Write left(Recnew("introduce"),100)&"......<br><br><hr size=1 color=blue><br>"
Recnew.MoveNext
next
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
Recnew.close
conn.close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -