pahang.asp

来自「都乐电子书店!!! !!! !!! !1」· ASP 代码 · 共 23 行

<%
set conn = server.CreateObject ("ADODB.Connection")
    conn.open application("dtbase"),application("user"),application("pwd") 
    
set rs_num = server.CreateObject ("ADODB.Recordset")
    rs_num.Open "select top 10 bookid,bookid from goodbook order by num",conn,3

while not rs_num.EOF  
 for i = 1 to 10
     set rs_bookname = server.CreateObject ("ADODB.Recordset")
         rs_bookname.Open "select bookname from books where bookid = '"&rs_num("bookid")&"'",conn,3
         Response.Write i&". <a href='display.asp?bookid="&rs_num("bookid")&"'>"&rs_bookname("bookname")&"</a><br>"
    
     rs_bookname.Close 
    
    rs_num.MoveNext 
    if rs_num.EOF then exit for 
 next    
    
wend
 rs_num.Close 
 conn.close   
%>