makefunction.asp

小说站源代码文件

<%
if htmlphem=1 then
htmlphe="htm"
elseif htmlphem=2 then
htmlphe="html"
elseif htmlphem=3 then
htmlphe="shtml"
elseif htmlphem=4 then
htmlphe="asp"
else
htmlphe="html"
end if

Function makeshowhits()
showhots=""

if IsSqlDataBase = 2 then

	set rs=server.CreateObject("adodb.recordset")
	sql="select id,txtcontent,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
			showhots1=showhots1&"<a href="&unhtmllists(rs("txtcontent"))&">"&unhtmllists(rs("txttitle"))&"</a><br>"
		else
			showhots1=showhots1&"<a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&unhtmllists(rs("txttitle"))&"</a><br>"
		end if
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing

	set rs=server.CreateObject("adodb.recordset")
	sql="select id,txttitle,txtcontent,txttime,Islink,hits from news where Istop=0 and Iscontent=0 and Ntype=0 order by id desc limit "&gonggaoNum&""
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	else
		do while not rs.eof
			if rs("Islink")=1 then
				showhots2=showhots2&"<a href="&unhtmllists(rs("txtcontent"))&">"&unhtmllists(rs("txttitle"))&"</a><br>"
			else
				showhots2=showhots2&"<a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&unhtmllists(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 and Ntype=0 order by id desc limit "&lgonggaoNum&""
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	else
		do while not rs.eof
			showhots3=showhots3&""&unhtmllists(rs("txtcontent"))&"<br>"
		rs.movenext
		loop
	end if
	rs.close
	set rs=nothing

	showhots=showhots&showhots1&showhots2&showhots3&chr(13)&chr(10)
	showhots1=""
	showhots2=""
	showhots3=""
	showhots=showhots&"<table width=100% border=0 cellspacing=0 cellpadding=0><tr>"

	set rs4=server.CreateObject("adodb.recordset")
	sql4="select id,list_user,list_name,list_pic,list_all from list_book where Isweb_good = 1 and Lock_book = 0 and isvip=0 order by id desc limit "&syftNum&""
	rs4.open sql4,conn,1,3
	if not(rs4.bof and rs4.eof) then
	syfti=1
		do while not rs4.eof
			if OpenInhtml=1 then
				showhots=showhots&"<td height=25 class=xt valign=middle style=padding-right:10><a href="&SiteSystemPath&"html/"&rs4("id")&"."&htmlphe&"><img class=pic1 height=125 src="&unhtmllists(rs4("list_pic"))&" width=96 border=0 align=left hspace=15 vspace=15></a>&nbsp;&nbsp;&nbsp;"
				showhots=showhots&""&unhtmllists(left(htmlencode(rs4("list_all")),300))&"......<br></td></tr><tr><td height=25><table width=90% border=0 align=right cellpadding=0 cellspacing=0><tr><td align=right valign=bottom>"
				showhots=showhots&"[ <a href="&SiteSystemPath&"html/"&rs4("id")&"."&htmlphe&"><font color=red>点击阅读《"&unhtmllists(rs4("list_name"))&"》 作者："&unhtmllists(rs4("list_user"))&"</font></a> ]</td></tr></table></td>"
			else
				showhots=showhots&"<td height=25 class=xt valign=middle style=padding-right:10><a href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><img class=pic1 height=125 src="&unhtmllists(rs4("list_pic"))&" width=96 border=0 align=left hspace=15 vspace=15></a>&nbsp;&nbsp;&nbsp;"
				showhots=showhots&""&unhtmllists(left(htmlencode(rs4("list_all")),300))&"......<br></td></tr><tr><td height=25><table width=90% border=0 align=right cellpadding=0 cellspacing=0><tr><td align=right valign=bottom>"
				showhots=showhots&"[ <a href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><font color=red>点击阅读《"&unhtmllists(rs4("list_name"))&"》 作者："&unhtmllists(rs4("list_user"))&"</font></a> ]</td></tr></table></td>"
			end if
			if syfti mod syftlieNum=0 then 
				showhots=showhots&"</tr><tr>"
			else
			end if
			syfti=syfti+1
		rs4.movenext
		loop
	end if
	rs4.close
	set rs4=nothing
	showhots=showhots&"</tr></table>"&chr(13)&chr(10)
	showhots=showhots&"<table border=0 cellpadding=0 cellspacing=0 valign=top width=100% ><tr>"

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

	showhots1="<table width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white><tr height=26>"

	set rsmake=server.CreateObject("ADODB.Recordset")
	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=0 order by id desc limit " & jptjNum & ""
	rsmake.open sql,conn,1,1
	jptji=1
	do while not rsmake.eof
showhots2=showhots2&"<td height=26 align=left width=33% ><table width=100% border=0 align=center cellpadding=0 cellspacing=2>"
if OpenInhtml=1 then
showhots2=showhots2&"<tr><td width=11% valign=top align=left><a href="&SiteSystemPath&"html/"&rsmake("id")&"."&htmlphe&" ><img src="&unhtmllists(rsmake("list_pic"))&" width=70 height=100 border=0 style='border: 1 solid #000000'></a></td>"
showhots2=showhots2&"<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>"
showhots2=showhots2&"<td><a href="&SiteSystemPath&"html/"&rsmake("id")&"."&htmlphe&"><u><font color=#FF6600>"&unhtmllists(rsmake("list_name"))&"</font></a></u></td>"
else
showhots2=showhots2&"<tr><td width=11% valign=top align=left><a href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" ><img src="&unhtmllists(rsmake("list_pic"))&" width=70 height=100 border=0 style='border: 1 solid #000000'></a></td>"
showhots2=showhots2&"<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>"
showhots2=showhots2&"<td><a href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&"><u><font color=#FF6600>"&unhtmllists(rsmake("list_name"))&"</font></a></u></td>"
end if
showhots2=showhots2&"</tr><tr valign=top><td width=35>作者:</td><td height=20><font color=#000000>"&unhtmllists(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

showhots2=showhots2&"<tr valign=top><td height=20>类型:</td><td>"&unhtmllists(rs5("list_tpye"))&"</td></tr>"

rs5.close
set rs5=nothing

showhots2=showhots2&"<tr valign=top><td height=20>简介:</td><td>"&left(htmlencode(rsmake("list_all")),30)&"</td></tr></table></td></tr></table></td>"
if jptji mod jptjlieNum=0 then 
showhots2=showhots2&"</tr><tr height=26>"
else
end if
jptji=jptji+1
rsmake.movenext
loop
rsmake.close
set rsmake=nothing

showhots=showhots&showhots1&showhots2&"</tr></table>"&chr(13)&chr(10)
showhots1=""
showhots2=""

showhots1="<table width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white><tr height=26>"

set rsmake=server.CreateObject("ADODB.Recordset")
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 "&vipjptjNum&""
rsmake.open sql,conn,1,1
vjptji=1
do while not rsmake.eof
showhots2=showhots2&"<td height=26 align=left width=33% ><table width=100% border=0 align=center cellpadding=0 cellspacing=2>"
showhots2=showhots2&"<tr><td width=11% valign=top align=left><a href="&SiteSystemPath&"look_vipbook.asp?id="&rsmake("id")&" ><img src="&unhtmllists(rsmake("list_pic"))&" width=70 height=100 border=0 style='border: 1 solid #000000'></a></td>"
showhots2=showhots2&"<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>"
showhots2=showhots2&"<td><a href="&SiteSystemPath&"look_vipbook.asp?id="&rsmake("id")&"><u><font color=#FF6600>"&unhtmllists(rsmake("list_name"))&"</font></a></u></td>"
showhots2=showhots2&"</tr><tr valign=top><td width=35>作者:</td><td height=20><font color=#000000>"&unhtmllists(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

showhots2=showhots2&"<tr valign=top><td height=20>类型:</td><td>"&unhtmllists(rs5("list_tpye"))&"</td></tr>"

rs5.close
set rs5=nothing

showhots2=showhots2&"<tr valign=top><td height=20>简介:</td><td>"&left(htmlencode(rsmake("list_all")),30)&"</td></tr></table></td></tr></table></td>"
if vjptji mod vipjptjlieNum=0 then 
showhots2=showhots2&"</tr><tr height=26>"
else
end if
vjptji=vjptji+1
rsmake.movenext
loop
rsmake.close
set rsmake=nothing

showhots=showhots&showhots1&showhots2&"</tr></table>"&chr(13)&chr(10)
showhots1=""
showhots2=""
showhots=showhots&"<table width=100% align=center cellspacing=0 border=0 cellspacing=0>"

set rsgx=server.createobject("adodb.recordset")
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 "&zxgxNum&""
rsgx.open sqlgx,conn,1,1
if rsgx.eof and rsgx.bof then
showhots1="<tr align=center valign=middle><td height=24 colspan=4><b>暂无任何作品列表</b></td></tr>"
else
showhots1="<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
set rsgx1=server.createobject("adodb.recordset")
sqlgx1="select typeid,list_tpye from list_type where typeid="&rsgx("list_class")
rsgx1.open sqlgx1,conn,1,1
typeid=rsgx1("typeid")
list_tpye=unhtmllists(rsgx1("list_tpye"))
id=rsgx("id")
list_name=unhtmllists(rsgx("list_name"))
if OpenInhtml=1 then
showhots1=showhots1&"<tr valign=middle><td height=22 nowrap>[<a href="&SiteSystemPath&"html/listbook_"&typeid&"_1."&htmlphe&"><font color=#000000>"&list_tpye&"</font></a>]</td><td height=22> <a href="&SiteSystemPath&"html/"&id&"."&htmlphe&"><font color=#FF6600>"&list_name&"</font></a> ┊ "

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

showhots1=showhots1&"<a href="&SiteSystemPath&"view_book.asp?id="&rsgx("newviewid")&"><font color=#193D4D>"
end if
if rsgx("newviewname")<>"" then
showhots1=showhots1&""&unhtmllists(rsgx("newviewname"))&""
else
showhots1=showhots1&"暂无更新"
end if
showhots1=showhots1&"</font></a></td><td align=center nowrap>"&unhtmllists(formatdatetime(rsgx("list_gxdate"),2))&"</td><td align=center nowrap>"&unhtmllists(rsgx("list_user"))&"</td></tr>"
rsgx.movenext
loop
end if
rsgx.close
set rsgx=nothing

showhots=showhots&showhots1&"</table>"&chr(13)&chr(10)
showhots1=""
showhots=showhots&"<table width=100% align=center cellspacing=0 border=0 cellspacing=0>"

set rsvgx=server.createobject("adodb.recordset")
sqlvgx="select id,list_name,list_gxdate,list_user from list_book where Lock_book = 0 and IsVip = 1 order by list_gxdate desc limit "&VIPzxgxNum&""
rsvgx.open sqlvgx,conn,1,1
if rsvgx.eof and rsvgx.bof then
else
do while not rsvgx.eof
showhots1=showhots1&"<tr valign=middle><td width=8% height=22 nowrap>[<font color=#FF0000>VIP 作品</font>]</td><td height=22> <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
showhots1=showhots1&"&nbsp;&nbsp;暂无更新"
	else
showhots1=showhots1&"<a href="&SiteSystemPath&"vip_view_book.asp?id="&rsvclass("id")&">"&unhtmllists(rsvclass("view_type"))&"</a>"
	end if
rsvclass.close
set rsvclass=nothing
showhots1=showhots1&"</td><td width=12% align=center nowrap>"&unhtmllists(formatdatetime(rsvgx("list_gxdate"),2))&"</td><td width=12% align=center nowrap>"&unhtmllists(rsvgx("list_user"))&"</td></tr>"
rsvgx.movenext
loop
end if
rsvgx.close
set rsvgx=nothing

showhots=showhots&showhots1&"</table>"&chr(13)&chr(10)
showhots1=""
showhots2=""
showhots3=""
showhots=showhots&""

Set rsp = Server.CreateObject("ADODB.Recordset")
sql = "select type_ID,Content,UserName,WriteTime from Comment where Commenttype=1 order by Commentid desc limit "&newplNum&""
rsp.open sql, conn, 1, 1
	
if rsp.eof and rsp.bof then
showhots1="没有数据可查询"
else
showhots1=showhots1&"<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
do while not rsp.eof
showhots1=showhots1&"<tr><td class=t_one>"
bookID=rsp("type_ID")
Set rsb = Server.CreateObject("ADODB.Recordset")
sql = "select list_name from list_book where id="&bookID&""
rsb.open sql, conn, 1, 1
showhots1=showhots1&"※ "&htmlencode(rsp("Content"))&"<br>  --　"&unhtmllists(rsp("UserName"))&"　于　"&rsp("WriteTime")&"　评"
if OpenInhtml=1 then
showhots1=showhots1&"《<a href="&SiteSystemPath&"html/"&bookid&"."&htmlphe&">"&unhtmllists(rsb("list_name"))&"</a>》"
else
showhots1=showhots1&"《<a href="&SiteSystemPath&"look_book.asp?id="&bookid&">"&unhtmllists(rsb("list_name"))&"</a>》"
end if