📄 getorderlist.asp

📁 所在类别：随书资源/T　工业技术/TP 自动化技术、计算机技术/TP31 计算机软件其他题名：作者：夏邦贵, 刘凡馨等编著出版者：机械工业出版社出版年： 2006 I

💻 ASP

字号:

<%@ LANGUAGE="VBScript"  %><% Response.Buffer=true %>
<HTML>
<BODY>
<DIV align="center"><B></B><NOBR><B>今日排行榜</B></NOBR><B></B></DIV>
<BR>
<% 
  '建立数据库连接
  Set cn=Server.CreateObject("ADODB.Connection") 
  cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
              "database=图书销售;Data Source=(local)"
  cn.Open 
  '创建ADO对象
  Set rs=Server.CreateObject("ADODB.Recordset")  
  Set rs.ActiveConnection = cn
  rs.CursorType =1
  rs.LockType = 3
  querystr = "SELECT TOP 5 订购记录.book_id,book_name,sum(book_sum) as sale_total " _ 
             & "from 订购记录,图书信息 where 订购记录.book_id=图书信息.book_id " _ 
             & "group by 订购记录.book_id,book_name " _
             & "order by sale_total DESC"
  rs.Open querystr
  n=1
  while not rs.eof
     response.write "<a target=_Blank href=BooksInfoDetail.asp?BookID="
     response.write rs.fields(0)
     response.write ">"
     response.write n
     response.write "."
     response.write rs.fields(1)
     response.write "</a><br>"
     n=n+1
     rs.movenext
  wend
  rs.close
  cn.close
  set rs=nothing
  set cn=nothing
%>
<P><P>
<DIV align="center"><FONT color="red">
<A href="Registernew.asp" target="_parent" >注册新用户</A>
</FONT></DIV>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -