index_class.asp

来自「起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构」· ASP 代码 · 共 30 行

<!--#include file="conn.asp"-->
<!--#include file="request.asp"--><%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 5  * from "&prefix&"bookrecomm where brmtitle='强烈推荐' order by bookorder asc"
rs.open sql,conn,1,1
i=1
do  while not rs.eof

recomm=recomm&i&".<a href=""show.asp?bid="&rs("bookid")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs("booktitle")&"</a><br/>"
i=i+1
if i>5 then exit do
rs.movenext
loop
'end if
rs.close

set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 5  * from "&prefix&"booklist order by bookhits desc"
rs.open sql,conn,1,1
i=1
do  while not rs.eof

hotlist=hotlist&i&".<a href=""show.asp?bid="&rs("id")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs("booktitle")&"</a><br/>"
i=i+1
if i>5 then exit do
rs.movenext
loop
'end if
rs.close
%>