bkorder_xis.asp

创建和运行动态、交互的Web服务器应用程序

<%
response.write"<table width=155 border='0' align='center'  cellpadding='0' cellspacing='0'>"
 response.write"<tr><td width='100%'  valign='top'>"
          dim xis                          
          set xis=server.CreateObject("adodb.recordset")
              xis.open "select * from shop_books where nclassid=14 order by sumxs desc",conn,1,1

 response.write "<table width='155' border='0' cellspacing='0' cellpadding='0' bgcolor='#6699ff'>"
 response.write "<td width='6'><img src='imgside/ss_050910_lll_05.gif' width='6' height='18' alt=''></td>"
 response.write "<td align=center><font color='#ffffff' size=2>SQL类图书排行榜</font></td>"
 response.write "<td width='6'><img src='imgside/ss_050910_lll_06.gif' width='6' height='18' alt=''></td>"
 response.write "</tr></table>"
 
 response.write "<tr><td width='100%' height=41 background=imgside/bg_cartinfo3.gif>"
 response.write "<table width='155' border='0' cellspacing='0' >" 
                                  i=1
			            do while not xis.eof
                                           select case i           
                                                  case 2,4,7 
                                                  response.write"<tr><td><font color=red>↑</font><a href=book.asp?id="&xis("bookid")&" title=此图书已被浏览"&xis("liulancount")&"次>"
				                           if len(trim(xis("bookname")))>15 then
                                                            response.write left(trim(xis("bookname")),12)&"..."
				                            else
                                                            response.write trim(xis("bookname"))
				                            end if
                                                            response.write "</a></td></tr>"
                                                  
                                                   case 6,9,11 
                                                   response.write"<tr><td><font color=green>↓</font><a href=book.asp?id="&xis("bookid")&" title=此图书已被浏览"&xis("liulancount")&"次>"
				                           if len(trim(xis("bookname")))>15 then
				                            response.write left(trim(xis("bookname")),12)&"..."
				                            else
				                            response.write trim(xis("bookname"))
				                            end if
				                            response.write "</a></td></tr>"
                                                   
                                                   case else 
                                                   response.write"<tr><td><font color=black>·</font><a href=book.asp?id="&xis("bookid")&" title=此图书已被浏览"&xis("liulancount")&"次>"
				                           if len(trim(xis("bookname")))>15 then
				                            response.write left(trim(xis("bookname")),12)&"..."
				                            else
				                            response.write trim(xis("bookname"))
				                            end if
				                            response.write "</a></td></tr>"
                                                   end select 
                                                   i=i+1
                                                       if i>10 then exit do
                                                          xis.movenext
                                                          loop
                                                          xis.close
			                                  set xis=nothing
                                                   response.write"<tr><td align=right><a href='bookorder.asp?action=sql_pk'>更多排行&gt;&gt;</a></td>"
 response.write"<tr><td height=5>"
 response.write"</table>"
 response.write "<tr><td height=3><img src=imgside/pic_cartinfobottom3.gif width=155 height=3></td></tr>"
response.write"</table>"
%>