makefunction.asp

小说站源代码文件

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 top "&VIPzxgxNum&" id,id,list_name,list_gxdate,list_user from [list_book] where Lock_book = 0 and IsVip = 1 order by list_gxdate desc"
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 top "&newplNum&" type_ID,Content,UserName,WriteTime from [Comment] where Commenttype=1 order by Commentid desc"
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
rsb.close
set rsb=nothing
showhots1=showhots1&"</td></tr><tr><td colspan=3 bgcolor=#666666 align=center height=1></td></tr>"
rsp.movenext
loop
showhots1=showhots1&"</tr></table>"
end if
rsp.close
set rsp=nothing

showhots=showhots&showhots1&chr(13)&chr(10)
showhots1=""
showhots=showhots&""

set rs=server.createobject("adodb.recordset")
sql="select top "&LOGONum&" web_link,content_link,logo_link from link where class_link=1 and ok_link=1 order by id_link desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
showhots1="暂无任何LOGO连接！"
else
do while not rs.eof
showhots1=showhots1&"<a href=" & unhtmllists(rs("web_link")) & " title=" & unhtmllists(htmlencode(rs("content_link"))) & " target=_blank><img src=" & unhtmllists(rs("logo_link")) & " width=88 height=31 border=0></a><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing

showhots=showhots&showhots1&chr(13)&chr(10)
showhots1=""

showhots=showhots&"<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>"
set rs=server.createobject("adodb.recordset")
sql="select top "&LOGONum&" web_link,content_link,logo_link from link where class_link=1 and ok_link=1 order by id_link desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
showhots1="<tr align=center><td colspan=2>暂无任何LOGO连接！</td></tr>"
else
showhots1=showhots1&"<tr>"
LOGOi=1
do while not rs.eof
showhots1=showhots1&"<td align=left height=20><a href=" & unhtmllists(rs("web_link")) & " title=" & unhtmllists(htmlencode(rs("content_link"))) & " target=_blank><img src=" & unhtmllists(rs("logo_link")) & " width=88 height=31 border=0></a></td>"
	if LOGOi mod 10=0 then showhots1=showhots1&"</tr><tr>"
	LOGOi=LOGOi+1
	rs.movenext
	loop
end if
rs.close
set rs=nothing
showhots=showhots&showhots1&"</tr></table>"&chr(13)&chr(10)
showhots1=""
showhots=showhots&""

set rs=server.createobject("adodb.recordset")
sql="select top "&TXTNum&" web_link,content_link,name_link from link where class_link=2 and ok_link=1 order by id_link desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
showhots1="暂无任何文字连接！"
else
do while not rs.eof
showhots1=showhots1&"<a href=" & unhtmllists(rs("web_link")) & " title=" & unhtmllists(htmlencode(rs("content_link"))) & " target=_blank>" & unhtmllists(rs("name_link")) & "</a><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing

showhots=showhots&showhots1&chr(13)&chr(10)
showhots1=""

showhots=showhots&"<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>"
set rs=server.createobject("adodb.recordset")
sql="select top "&TXTNum&" web_link,content_link,name_link from link where class_link=2 and ok_link=1 order by id_link desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
showhots1="<tr align=center><td colspan=2>暂无任何文字连接！</td></tr>"
else
showhots1=showhots1&"<tr>"
TXTi=1
do while not rs.eof
showhots1=showhots1&"<td align=left height=20><a href=" & unhtmllists(rs("web_link")) & " title=" & unhtmllists(htmlencode(rs("content_link"))) & " target=_blank>" & unhtmllists(rs("name_link")) & "</a></td>"
	if TXTi mod 12=0 then showhots1=showhots1&"</tr><tr>"
	TXTi=TXTi+1
	rs.movenext
	loop
end if
rs.close
set rs=nothing

end if

showhots=showhots&showhots1&"</tr></table>"&chr(13)&chr(10)
showhots1=""
file=server.mappath( ""&SiteSystemPath&"inc/showhots.inc" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file,true)
fout.writeline showhots
fout.close
set fout=nothing
set fso=nothing
showhots=""
end function 

'========================================================================================================

Function makeshowhots()

showhots="<"&"%"&chr(13)&chr(10)

if IsSqlDataBase = 2 then

showhots=showhots&"topsqltj="""
set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name from list_book where Lock_book=0 and listvv_good=1 and isvip=0 order by id desc limit " & qltjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To qltjNum
If rsmake.eof Then Exit For
if OpenInhtml=1 then
showhots1=showhots1&"<a href="&SiteSystemPath&"html/"&rsmake("id")&"."&htmlphe&" >"&unhtmllists(rsmake("list_name"))&"</a><br>"
else
showhots1=showhots1&"<a href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllists(rsmake("list_name"))&"</a><br>"
end if
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
showhots=showhots&showhots1&""""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topsvipqltj="""
set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name from list_book where Lock_book=0 and IsGood=1 and isvip=1 order by id desc limit " & qltjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To qltjNum
If rsmake.eof Then Exit For
showhots1=showhots1&"<a href="&SiteSystemPath&"look_vipbook.asp?id="&rsmake("id")&" >"&unhtmllists(rsmake("list_name"))&"</a><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

showhots=showhots&showhots1&""""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topslztj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name from list_book where Lock_book=0 and Islist_Good=1 and isvip=0 order by id desc limit " & lztjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To lztjNum
If rsmake.eof Then Exit For
if OpenInhtml=1 then
showhots1=showhots1&"<a href="&SiteSystemPath&"html/"&rsmake("id")&"."&htmlphe&" >"&unhtmllists(rsmake("list_name"))&"</a><br>"
else
showhots1=showhots1&"<a href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllists(rsmake("list_name"))&"</a><br>"
end if
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

showhots=showhots&showhots1&""""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topsdj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_hit from list_book where Lock_book=0 and isvip=0 order by list_hit desc limit " & djNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To djNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_hit")
if OpenInhtml=1 then
showhots1=showhots1&"<a href="&SiteSystemPath&"html/"&rsmake("id")&"."&htmlphe&" >"&unhtmllists(rsmake("list_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
showhots1=showhots1&"<a href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllists(rsmake("list_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

showhots=showhots&showhots1&""""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topsmdj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_mhit from list_book where Lock_book=0 and isvip=0 order by list_mhit desc limit " & mdjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To mdjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_mhit")
if OpenInhtml=1 then
showhots1=showhots1&"<a href="&SiteSystemPath&"html/"&rsmake("id")&"."&htmlphe&" >"&unhtmllists(rsmake("list_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
showhots1=showhots1&"<a href="&SiteSystemPath&"look_book.asp?id="&rsmake("id")&" >"&unhtmllists(rsmake("list_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

showhots=showhots&showhots1&""""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topszdj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_zhit from list_book where Lock_book=0 and isvip=0 order by list_zhit desc limit " & zdjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To zdjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_zhit")
if OpenInhtml=1 then
showhots1=showhots1&"<a href="&SiteSystemPath&"html/"&rsmake("id")&"."&htmlphe&" >"&unhtmllists(rsmake("list_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"