📄 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 + -