showhot1.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
Function showauthor()
response.write"作家访谈"
End Function


Function showauthoradd(Num)
pencat=""
set rs=server.createobject("adodb.recordset")
sql="select top "&Num&" author_id,author_name from [author] where author_addpost=1 order by author_id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
pencat="暂无任何驻站作家！"
else
do while not rs.eof
pencat=pencat&"<a href="&SiteSystemPath&"show_author.asp?id=" & rs("author_id") & " target=_blank>" & unhtmllist(rs("author_name")) & "</a><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
response.write pencat

End Function

Function showuserbooktj(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " Ar_id,Ar_name,Ar_jian from [Article] where Ar_lock=0 and Ar_nolook=0 order by Ar_jian desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="暂无任何排行"
else
For i=1 To scNum
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_jian")
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function

'-------------------------------------------------------------------------------------
Function showuserbookdj(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " Ar_id,Ar_name,Ar_hist from [Article] where Ar_lock=0 and Ar_nolook=0 order by Ar_hist desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="暂无任何排行"
else
For i=1 To scNum
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_hist")
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function

'-------------------------------------------------------------------------------------
Function showuserbookadd(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " Ar_id,Ar_name from [Article] where Ar_lock=0 and Ar_nolook=0 order by Ar_data desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="暂无任何排行"
else
For i=1 To scNum
If rsmake.eof Then Exit For
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function

'-------------------------------------------------------------------------------------
Function showuserbookadds(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " id,NAME,UserGrade from [User] where LockUser=0 order by UserGrade desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
pencat="暂无任何排行"
else
For i=1 To addNum
If rsmake.eof Then Exit For
Tomps=rsmake("UserGrade")
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"show_user.asp?id="&rsmake("id")&" >"&rsmake("NAME")&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function

Function showsc(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name from [list_book] where Lock_book=0 order by id desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
	response.write "<a target=_blank href='look_book.asp?id="&id&"'>"&list_name&"</a><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showpinglun(Num)
	Set rsp = Server.CreateObject("ADODB.Recordset")
	sql = "select top "&Num&" * from [Comment] order by Commentid desc"
	rsp.open sql, conn, 1, 1
	
if rsp.eof and rsp.bof then
pencat="没有数据可查询"
else
pencat="<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
do while not rsp.eof
pencat=pencat&"<tr><td class=t_one>"
bookID=rsp("bookID")
Set rsb = Server.CreateObject("ADODB.Recordset")
sql = "select list_name from [list_book] where id="&bookID&""
rsb.open sql, conn, 1, 1
pencat=pencat&"※ "&htmlencode(rsp("Content"))&"<br>  --　"&unhtmllist(rsp("UserName"))&"　于　"&rsp("WriteTime")&"　评《<a href="&SiteSystemPath&"look_book.asp?id="&bookid&" target=_blank>"&rsb("list_name")&"</a>》"
rsb.close
set rsb=nothing
pencat=pencat&"</td></tr><tr><td colspan=3 bgcolor=#666666 align=center height=1></td></tr>"
rsp.movenext
loop
pencat=pencat&"</tr></table>"
end if
rsp.close
set rsp=nothing
response.write pencat
End Function


Function showadd(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_cang from [list_book] where Lock_book=0 order by list_cang desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_cang")
	response.write "<a target=_blank href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showtj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_jian from [list_book] where Lock_book=0 order by list_jian desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_jian")
	response.write "<a target=_blank href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showytj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_yjian from [list_book] where Lock_book=0 order by list_yjian desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_yjian")
	response.write "<a target=_blank href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showmtj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_mjian from [list_book] where Lock_book=0 order by list_mjian desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_mjian")
	response.write "<a target=_blank href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showztj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_zjian from [list_book] where Lock_book=0 order by list_zjian desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_zjian")
	response.write "<a target=_blank href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showdtj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_djian from [list_book] where Lock_book=0 order by list_djian desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_djian")
	response.write "<a target=_blank href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function

Function showdj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_hit from [list_book] where Lock_book=0 order by list_hit desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_hit")
	response.write "<a target=_blank href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showydj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_yhit from [list_book] where Lock_book=0 order by list_yhit desc"
rsShowHOT.open sql,conn,1,1