?? searchhot.asp
字號:
<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<%
Response.Expires = 0
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="xcss.css">
<script LANGUAGE="javascript">
<!--
function add_bm(bookid)
{
window.open("add_bookmark.asp?bookid=" + bookid,"_blank","height=430,width=300,status=no,toolbar=no,menubar=no,location=no");
}
function add_comment(bookid)
{
window.open("add_comment2.asp?bookid=" + bookid,"_blank","height=550,width=550,status=no,toolbar=no,menubar=no,location=no,scrollbars=yes,top=0,left=0");
}
//-->
</script></head>
<body background=images/zapsmbknd.gif>
<b>十大熱門</b><br><hr>
<%
set conn = server.CreateObject("adodb.connection")
conn.Open application("dsn")
'sql = "select top 10 name,Author from BookDetail "
sql = "select bookid,name,Author,Times from BookDetail "
sql = sql & " order by Times desc"
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
itemp = 0
while (not rs.EOF) and (itemp < 10)
%>
<nobr><a href="readbook.asp?bookid=<%=rs("bookid")%>" title="作者：<%=rs("Author")%>" target="xbody"><img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19"><%=rs("name")%>(<%=rs("times")%>)</a> <%=rs("Author")%> <a href="#" onclick="add_bm(<%=rs("bookid")%>);">加書簽</a> <a href="#" onclick="add_comment(<%=rs("bookid")%>);">寫書評</a></nobr><br>
<%
itemp = itemp + 1
rs.MoveNext
wend
rs.Close
set rs = nothing
conn.Close
set conn = nothing
%>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -