showhot1.asp

小说站源代码文件

For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function

Function showuseradd(useraddNum)
pencat1=""
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,NAME from Userinfo where LockUser=0 order by id desc limit "&useraddNum&""
else
	sql="select top "&useraddNum&" id,NAME from [Userinfo] where LockUser=0 order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
pencat1="暂无任何注册会员！"
else
do while not rs.eof
pencat1=pencat1&"<a href="&SiteSystemPath&"show_user.asp?id=" & rs("id") & ">" & unhtmllists(rs("NAME")) & "</a><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
response.write pencat1
End Function

Function showuserjifen(userjifenNum)
pencat1=""
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,NAME,UserPoint from Userinfo where LockUser=0 order by UserPoint desc limit "&userjifenNum&""
else
	sql="select top "&userjifenNum&" id,NAME,UserPoint from [Userinfo] where LockUser=0 order by UserPoint desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
pencat1="暂无任何注册会员！"
else
do while not rs.eof
pencat1=pencat1&"<a href="&SiteSystemPath&"show_user.asp?id=" & rs("id") & ">" & unhtmllists(rs("NAME")) & "</a>&nbsp;&nbsp;<font color=#808080>("&rs("UserPoint")&")</font><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
response.write pencat1
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 and Ntype=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 href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("txtcontent")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
else
pencat=pencat&"<a 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")
if IsSqlDataBase = 2 then
	sql="select id,txttitle,txtcontent,txttime,Islink,hits from news where Istop = 0 and Iscontent = 0 and Ntype=0 order by id desc limit "&Num&""
else
	sql="select top "&Num&" id,txttitle,txtcontent,txttime,Islink,hits from [news] where Istop = 0 and Iscontent = 0 and Ntype=0 order by id desc"
end if
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 href="&rs("txtcontent")&">"&unhtmllist(rs("txttitle"))&"</a><br>"
else
pencat=pencat&"<a 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")
if IsSqlDataBase = 2 then
	sql="select txtcontent from news where Iscontent=1 and Ntype=0 order by id desc limit "&lgonggaoNum&""
else
	sql="select top "&lgonggaoNum&" txtcontent from [news] where Iscontent=1 and Ntype=0 order by id desc"
end if
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")
if IsSqlDataBase = 2 then
	sqlgx="select id,list_class,list_name,newviewid,newviewname,list_gxdate,list_user from list_book where Lock_book = 0 and isvip = 0 order by list_gxdate desc limit "&Num&""
else
	sqlgx="select top "&Num&" id,list_class,list_name,newviewid,newviewname,list_gxdate,list_user from [list_book] where Lock_book = 0 and isvip = 0 order by list_gxdate desc"
end if
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=8% align=center height=24><b>类别</b></td><td width=70% align=left height=24>　　<b>作品名称</b> ┊ <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 typeid,list_tpye 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")
if OpenInhtml=1 then
response.write "<tr valign=middle><td height=22 nowrap>[<a href="&SiteSystemPath&"html/listbook_"&typeid&"_1."&htmlphe&"><font color=#000000>"&list_tpye&"</font></a>]</td><td width=70% align=left height=24><a href="&SiteSystemPath&"html/"&id&"."&htmlphe&"><font color=#FF6600>"&list_name&"</font></a> ┊ "

response.write "<a href="&SiteSystemPath&"html/"
if rsgx("newviewid")<>0 then
response.write ""&id&"/"&rsgx("newviewid")&"."&htmlphe&"><font color=#193D4D>"
else
response.write ""&id&"/index."&htmlphe&"><font color=#193D4D>"
end if
else
response.write "<tr valign=middle><td height=22 nowrap>[<a href="&SiteSystemPath&"list_book.asp?id="&typeid&"><font color=#000000>"&list_tpye&"</font></a>]</td><td width=70% align=left height=24><a href="&SiteSystemPath&"look_book.asp?id="&id&"><font color=#FF6600>"&list_name&"</font></a> ┊ "

response.write "&nbsp; <a href="&SiteSystemPath&"view_book.asp?id="&rsgx("newviewid")&"><font color=#193D4D>"
end if
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")
if IsSqlDataBase = 2 then
	sqlvgx="select id,id,list_name,list_gxdate,list_user from list_book where Lock_book = 0 and IsVip = 1 order by list_gxdate desc limit "&Num&""
else
	sqlvgx="select top "&Num&" id,id,list_name,list_gxdate,list_user from [list_book] where Lock_book = 0 and IsVip = 1 order by list_gxdate desc"
end if
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=8% height=22 nowrap>[<font color=#FF0000>VIP 作品</font>]</td><td width=70% align=left height=24><a href="&SiteSystemPath&"look_VIPbook.asp?id="&rsvgx("id")&"><font color=#FF6600>"&rsvgx("list_name")&"</font></a> ┊ "
set rsvclass=server.createobject("adodb.recordset")
	sqlvclass="select id,view_type from list_view where view_id="&rsvgx("id")&" and view_isvip=1 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 href="&SiteSystemPath&"vip_view_book.asp?id="&rsvclass("id")&"><font color=#193D4D>"&rsvclass("view_type")&"</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")&"</font></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")
if IsSqlDataBase = 2 then
	sql4="select id,list_class,list_user,list_name,list_date,list_pic,list_all from list_book where Lock_book = 0 and Isweb_good = 1 order by id desc limit "&Num&""
else
	sql4="select top "&Num&" id,list_class,list_user,list_name,list_date,list_pic,list_all from [list_book] where Lock_book = 0 and Isweb_good = 1 order by id desc"
end if
rs4.open sql4,conn,1,1
if not(rs4.bof and rs4.eof) then
i=1
do while not rs4.eof
response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height=25 class=xt valign=middle style=padding-right:10>"
if OpenInhtml=1 then
response.write "<a href="&SiteSystemPath&"html/"&rs4("id")&"."&htmlphe&"><img class=pic1 height=125 src="&rs4("list_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 href="&SiteSystemPath&"html/"&rs4("id")&"."&htmlphe&"><font color=red>点击阅读《"&rs4("list_name")&"》 作者："&rs4("list_user")&"</font></a> ]</td></tr></table>"
else
response.write "<a href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><img class=pic1 height=125 src="&rs4("list_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 href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><font color=red>点击阅读《"&rs4("list_name")&"》 作者："&rs4("list_user")&"</font></a> ]</td></tr></table>"
end if
if i mod syftlieNum=0 then 
response.write "</tr><tr>"
else
end if
i=i+1
rs4.movenext
loop
end if
rs4.close
set rs4=nothing
End Function


Function showvipsyft(Num)
set rs4=server.CreateObject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql4="select id,list_class,list_user,list_name,list_date,list_pic,list_all from list_book where Lock_book = 0 and isvip = 1 and Isweb_good = 1 order by id desc limit "&Num&""
else
	sql4="select top "&Num&" id,list_class,list_user,list_name,list_date,list_pic,list_all from [list_book] where Lock_book = 0 and isvip = 1 and Isweb_good = 1 order by id desc"
end if
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
i=1
do while not rs4.eof
dim classid
classid=rs4("list_class")
set rs5=server.createobject("adodb.recordset")
sql5="select list_tpye from list_type where typeid="&classid
rs5.open sql5,conn,1,1
pencat=pencat&"<td width=25% align=center valign=top><img src='"&rs4("list_pic")&"' width=100 height=142 border=0 align=left hspace=15 vspace=15><br></td>"
pencat=pencat&"<td width=75% align=left valign=top style=paddint-top:10;padding-bottom:10;line-height:180% ><table width=100% ><tr><td width=50% >作品名称："&unhtmllist(rs4("list_name"))&"<br></td>"
pencat=pencat&"<td width=50% >作者："&unhtmllist(rs4("list_user"))&"<br></td></tr><tr><td width=50% >作品类型："&rs5("list_tpye")&"<br></td>"
if OpenInhtml=1 then
pencat=pencat&"<td width=50% ><a href="&SiteSystemPath&"html/"&rs4("id")&"."&htmlphe&">点击本书阅读公众版</a><br></td></tr><tr>"
else
pencat=pencat&"<td width=50% ><a href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&">点击本书阅读公众版</a><br></td></tr><tr>"
end if
pencat=pencat&"<td colspan=2 width=100% >内容简介：<br>&nbsp;&nbsp;&nbsp; "&left(htmlencode(rs4("list_all")),300)&"<br><br></td></tr></table>"
pencat=pencat&"<table width=90% border=0 align=right cellpadding=0 cellspacing=0><tr><td align=right valign=bottom>"
pencat=pencat&"[ <a href="&SiteSystemPath&"look_vipbook.asp?id="&rs4("id")&"><font color=red>点击阅读《"&unhtmllist(rs4("list_name"))&"》 作者："&unhtmllist(rs4("list_user"))&" VIP章节</font></a> ]</td></tr></table></td>"
rs5.close
set rs5=nothing
if i mod vipsyftlieNum=0 then 
pencat=pencat&"</tr><tr>"
else
end if
i=i+1
rs4.movenext
loop
end if
rs4.close
set rs4=nothing
pencat=pencat&"</tr></table>"
response.write pencat
End Function


Function showjptj(Num)
set rsShow=server.CreateObject("ADODB.Recordset")
if IsSqlDataBase = 2 then
	sql = "select id,list_class,list_user,list_name,list_all,list_pic from list_book where Isgood = 1 and Lock_book = 0 order by id desc limit "&Num&""
else
	sql = "select top "&Num&" id,list_class,list_user,list_name,list_all,list_pic from [list_book] where Isgood = 1 and Lock_book = 0 order by id desc"
end if
rsShow.open sql,conn,1,1
response.write "<table width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white><tr height=26>"
i=1
do while not rsShow.eof
response.write "<td height=26 align=left width=33% ><table width=100% border=0 align=center cellpadding=0 cellspacing=2><tr>"
response.write "<td width=11% valign=top align=left><a href="&SiteSystemPath&"look_book.asp?id="&rsShow("id")&"><img src="&rsShow("list_pic")&" width=70 height=100 border=0 style=border: 1 solid #000000></a></td>"
response.write "<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>"
if OpenInhtml=1 then
response.write "<td><a href="&SiteSystemPath&"html/"&rsShow("id")&"."&htmlphe&"><u><font color=#FF6600>"&rsShow("list_name")&"</font></a></u></td>"
else
response.write "<td><a href="&SiteSystemPath&"look_book.asp?id="&rsShow("id")&"><u><font color=#FF6600>"&rsShow("list_name")&"</font></a></u></td>"
end if
response.write "</tr><tr valign=top><td width=35>作者:</td><td height=20><font color=#000000>"&rsShow("list_user")&"</a></font></td></tr>"
set rs5=server.createobject("adodb.recordset")
sql5="select list_tpye from list_type where typeid="&rsShow("list_class")&""
rs5.open sql5,conn,1,1
response.write "<tr valign=top><td height=20>类型:</td><td>"&rs5("list_tpye")&"</td></tr>"
rs5.close
set rs5=nothing
response.write "<tr valign=top><td height=20>简介:</td><td>"&left(rsShow("list_all"),30)&"</td></tr></table></td></tr></table></td>"
if i mod 3=0 then response.write "</tr><tr height=26>"
'end if
i=i+1
rsShow.movenext
loop
rsShow.close
set rsShow=nothing
response.write "</tr></table>"
End Function


Function showvipjptj(Num)
pencat2=""
pencat1="<table width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white><tr height=26>"
set rsmake=server.CreateObject("ADODB.Recordset")
if IsSqlDataBase = 2 then
	sql = "select id,list_class,list_user,list_name,list_all,list_pic from list_book where Isgood = 1 and Lock_book = 0 and isvip = 1 order by id desc limit "&Num&""
else
	sql = "select top "&Num&" id,list_class,list_user,list_name,list_all,list_pic from [list_book] where Isgood = 1 and Lock_book = 0 and isvip = 1 order by id desc"
end if
rsmake.open sql,conn,1,1
i=1
do while not rsmake.eof
pencat2=pencat2&"<td height=26 align=left width=33% ><table width=100% border=0 align=center cellpadding=0 cellspacing=2>"
pencat2=pencat2&"<tr><td width=11% valign=top align=left><a href="""&SiteSystemPath&"look_vipbook.asp?id="&rsmake("id")&""" ><img src="""&rsmake("list_pic")&""" width=70 height=100 border=0 style=""border: 1 solid #000000""></a></td>"
pencat2=pencat2&"<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>"
pencat2=pencat2&"<td><a href="&SiteSystemPath&"look_vipbook.asp?id="&rsmake("id")&"><u><font color=#FF6600>"&unhtmllist(rsmake("list_name"))&"</font></a></u></td>"
pencat2=pencat2&"</tr><tr valign=top><td width=35>作者:</td><td height=20><font color=#000000>"&unhtmllist(rsmake("list_user"))&"</a></font></td></tr>"
set rs5=server.createobject("adodb.recordset")
sql5="select list_tpye from list_type where typeid="&rsmake("list_class")&""
rs5.open sql5,conn,1,1
pencat2=pencat2&"<tr valign=top><td height=20>类型:</td><td>"&rs5("list_tpye")&"</td></tr>"
rs5.close
set rs5=nothing
pencat2=pencat2&"<tr valign=top><td height=20>简介:</td><td>"&left(htmlencode(rsmake("list_all")),30)&"</td></tr></table></td></tr></table></td>"