show_class.asp

起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构

<!--#include file="conn.asp"-->
<!--#include file="request.asp"-->
<%
bid=request("bid")
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"booklist where id="&bid&""
rs.open sql,conn,1,1
title=rs("booktitle")
bookinfo="《"&title&"》<br/>"
bookinfo=bookinfo&"类别:<a href=""lists.asp?tid="&rs("tclassid")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs("tclass")&"</a>-<a href=""lists.asp?nid="&rs("nclassid")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs("nclass")&"</a><br/>"
bookinfo=bookinfo&"作者:"&rs("bookwriter")&"<br/>"
booklen=len(rs("booklen"))
booklen=right(rs("booklen"),booklen-3)
bookinfo=bookinfo&"完成:"&booklen&"千字<br/>"
bookinfo=bookinfo&"点击:"&rs("bookhits")&"推荐:"&rs("bookrecom")&"<br/>"
booksq=array("转载作品","独家授权","特约作品","授权刊载","驻站作品","本站原创")
b_state=array("连载","全本","其他","其他")
bookinfo=bookinfo&booksq(rs("booksq"))&"/"&b_state(rs("bookstate"))&"<br/>"
updatetime=rs("bookupdatetime")
updatetime=year(updatetime)&"-"&month(updatetime)&"-"&day(updatetime)
lastchapter="<a href=""chapter.asp?cid="&rs("bookupdateid")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs("bookupdatetitle")&"</a>"
booksum=replace(rs("booksum"),"<br>","")
booksum=replace(booksum,"<BR>","")
booksum=replace(booksum,"&nbsp;","")
if len(booksum)>50 then
booksum=right(booksum,50)&"<br/><a href=""booksum.asp?bid="&bid&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">更多介绍</a>"
end if




rs.close

%>