showhot1.asp

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

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_yhit")
	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 showmdj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_mhit from [list_book] where Lock_book=0 order by list_mhit 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_mhit")
	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 showzdj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_zhit from [list_book] where Lock_book=0 order by list_zhit 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_zhit")
	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 showddj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_dhit from [list_book] where Lock_book=0 order by list_dhit 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_dhit")
	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 showqltj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name from [list_book] where Lock_book=0 and listvv_good=1 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='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


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

End Function


Function showlztj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name from [list_book] where Lock_book=0 and Islist_Good=1 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='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function shownewadd(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='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a><br>"
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showgongg(Num)
pencat=""
set rs=server.CreateObject("adodb.recordset")
sql="select id,txttitle,txttime,Islink,hits from [news] where Istop=1 and Iscontent=0 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("txtcontent")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
else
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql="select top "&Num&" id,txttitle,txtcontent,txttime,Islink,hits from [news] where Istop=0 and Iscontent=0 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat=pencat&"<a target=_blank href="&rs("txtcontent")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
else
pencat=pencat&"<a target=_blank href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql="select txtcontent from [news] where Iscontent=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
pencat=pencat&""&unhtmllist(rs("txtcontent"))&"<br>"
rs.movenext
loop
end if
rs.close
set rs=nothing
response.write pencat
End Function


Function showzxgx(Num)
response.write "<table width=100% align=center cellspacing=0 border=0 cellspacing=0>"
set rsgx=server.createobject("adodb.recordset")
sqlgx="select top "&Num&" id,list_class,list_name,newviewid,newviewname,list_gxdate,list_user from [list_book] where Lock_book = 0 order by list_gxdate desc"
rsgx.open sqlgx,conn,1,1
if rsgx.eof and rsgx.bof then
response.write "<tr align=center valign=middle><td height=24 colspan=4><b>暂无任何作品列表</b></td></tr>"
else
response.write "<tr valign=middle><td width=28% align=center height=24><b>作品名称</b></td><td width=48% align=center nowrap><b>最新章节</b></td><td width=12% align=center nowrap><b>更新时间</b></td><td width=12% align=center nowrap><b>作&nbsp; 者</b></td></tr>"
do while not rsgx.eof
dim classid2
classid2=rsgx("list_class")
set rsgx1=server.createobject("adodb.recordset")
sqlgx1="select * from list_type where typeid="&classid2
rsgx1.open sqlgx1,conn,1,1
typeid=rsgx1("typeid")
list_tpye=rsgx1("list_tpye")
id=rsgx("id")
list_name=rsgx("list_name")
response.write "<tr valign=middle><td height=22 nowrap>[<a target=_blank href="&SiteSystemPath&"list_book.asp?id="&typeid&"><font color=#000000>"&list_tpye&"</font></a>] <a target=_blank href="&SiteSystemPath&"look_book.asp?id="&id&"><font color=#FF6600>"&list_name&"</font></a></td><td>"

response.write "&nbsp; <a target=_blank href="&SiteSystemPath&"view_book.asp?id="&rsgx("newviewid")&"><font color=#193D4D>"

if rsgx("newviewname")<>"" then
response.write""&unhtmllist(rsgx("newviewname"))&""
else
response.write"暂无更新"
end if
response.write "</font></a></td><td align=center nowrap>"&formatdatetime(rsgx("list_gxdate"),2)&"</td><td align=right nowrap>"&rsgx("list_user")&"</td></tr>"
rsgx.movenext
loop
rsgx.close
set rsgx=nothing
end if
response.write "</table>"
End Function


Function showvipzxgx(Num)
response.write "<table width=100% align=center cellspacing=0 border=0 cellspacing=0>"
set rsvgx=server.createobject("adodb.recordset")
sqlvgx="select top "&Num&" id,list_id,list_name,list_gxdate,list_user from [vip_book] where Lock_book = 0 order by list_gxdate desc"
rsvgx.open sqlvgx,conn,1,1
if rsvgx.eof and rsvgx.bof then
else
do while not rsvgx.eof
response.write "<tr valign=middle><td width=28% height=22 nowrap>[<font color=#FF0000>VIP 作品</font>] <a target=_blank href="&SiteSystemPath&"look_VIPbook.asp?id="&rsvgx("list_id")&">"&rsvgx("list_name")&"</a></td><td width=48% nowrap>"
set rsvclass=server.createobject("adodb.recordset")
	sqlvclass="select id,view_name from [vip_view] where view_id="&rsvgx("id")&" order by view_date desc"
	rsvclass.open sqlvclass,conn,1,1
	if rsvclass.eof and rsvclass.bof then
		response.write "&nbsp;&nbsp;暂无更新"
	else
	response.write "&nbsp; <a target=_blank href="&SiteSystemPath&"vip_view_book.asp?id="&rsvclass("id")&">"&rsvclass("view_name")&"</a>"
	end if
rsvclass.close
set rsvclass=nothing
response.write "</td><td width=12% align=center nowrap>"&formatdatetime(rsvgx("list_gxdate"),2)&"</td><td width=12% align=right nowrap>"&rsvgx("list_user")&"</td></tr>"
rsvgx.movenext
loop
rsvgx.close
set rsvgx=nothing
end if
response.write "</table>"
End Function


Function showsyft(Num)
set rs4=server.CreateObject("adodb.recordset")
sql4="select top 1 id,list_class,list_user,list_name,list_date,pic,list_all from [list_book] where Isweb_good=1 and Lock_book=0 order by id desc"
rs4.open sql4,conn,1,1
if not(rs4.bof and rs4.eof) then
dim classid
classid=rs4("list_class")
set rs5=server.createobject("adodb.recordset")
sql5="select * from list_type where typeid="&classid
rs5.open sql5,conn,1,1
response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height=25 class=xt valign=middle style=padding-right:10>"
response.write "<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><img class=pic1 height=125 src="&rs4("pic")&" width=96 border=0 align=left hspace=15 vspace=15></a>"&left(unhtml(rs4("list_all")),300)&"......<br></td></tr>"
response.write "<tr><td height=25 align=right>[	<a target=_blank href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><font color=red>点击阅读《"&rs4("list_name")&"》 作者："&rs4("list_user")&"</font></a> ]</td></tr></table>"
rs5.close
set rs5=nothing
rs4.close
set rs4=nothing
else
response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td valign=top>对不起,暂时没有作品!</td></tr></table>"
end if
End Function


Function showvipsyft(Num)
set rs4=server.CreateObject("adodb.recordset")
sql4="select list_id,list_class,list_user,list_name,list_date,pic,list_all from [vip_book] where Isweb_good=1 and Lock_book=0 order by id desc"
rs4.open sql4,conn,1,3
pencat="<table border=0 cellpadding=0 cellspacing=0 valign=top width=100% ><tr>"
if not(rs4.bof and rs4.eof) then
dim classid