searchhot.asp
上传用户:llrg7406
上传日期:2007-03-02
资源大小:654k
文件大小:2k
源码类别:

教育系统应用

开发平台:

Delphi

  1. <%@ Language=VBScript %>
  2. <!--#include file ="identify.asp"-->
  3. <%
  4. Response.Expires = 0
  5. %>
  6. <html>
  7. <head>
  8. <meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  9. <link rel="stylesheet" type="text/css" href="xcss.css">
  10. <script LANGUAGE="javascript">
  11. <!--
  12. function add_bm(bookid)
  13. {
  14. window.open("add_bookmark.asp?bookid=" + bookid,"_blank","height=430,width=300,status=no,toolbar=no,menubar=no,location=no");
  15. }
  16. function add_comment(bookid)
  17. {
  18. 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");
  19. }
  20. //-->
  21. </script></head>
  22. <body background=images/zapsmbknd.gif>
  23. <b>十大热门</b><br><hr>
  24. <%
  25. set conn = server.CreateObject("adodb.connection")
  26. conn.Open application("dsn")
  27. 'sql = "select top 10 name,Author from BookDetail " 
  28. sql = "select bookid,name,Author,Times from BookDetail " 
  29. sql = sql & " order by Times desc" 
  30. set rs = server.CreateObject("adodb.recordset")
  31. rs.Open sql,conn
  32. itemp = 0
  33. while (not rs.EOF) and (itemp < 10)
  34. %>
  35. <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> &nbsp;<%=rs("Author")%>  &nbsp;<a href="#" onclick="add_bm(<%=rs("bookid")%>);">加书签</a>  &nbsp;<a href="#" onclick="add_comment(<%=rs("bookid")%>);">写书评</a></nobr><br>
  36. <%
  37. itemp = itemp + 1
  38. rs.MoveNext
  39. wend
  40. rs.Close
  41. set rs = nothing
  42. conn.Close
  43. set conn = nothing
  44. %>
  45. </table>
  46. </body>
  47. </html>