makefunction.asp

小说站源代码文件

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&"topsddj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_dhit from list_book where Lock_book=0 and isvip=0 order by list_dhit desc limit " & ddjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To ddjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_dhit")
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&"topstj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_jian from list_book where Lock_book=0 and isvip=0 order by list_jian desc limit " & tjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To tjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_jian")
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&"topsmtj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_mjian from list_book where Lock_book=0 and isvip=0 order by list_mjian desc limit " & mtjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To mtjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_mjian")
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&"topsztj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_zjian from list_book where Lock_book=0 and isvip=0 order by list_zjian desc limit " & ztjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To ztjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_zjian")
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&"topsdtj="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_djian from list_book where Lock_book=0 and isvip=0 order by list_djian desc limit " & dtjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To dtjNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_djian")
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&"topssc="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name,list_cang from list_book where Lock_book=0 and isvip=0 order by list_cang desc limit " & scNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To scNum
If rsmake.eof Then Exit For
Tomps=rsmake("list_cang")
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&"topsadd="""

set rsmake=server.createobject("adodb.recordset")
sql="select id,list_name from list_book where Lock_book=0 and isvip=0 order by id desc limit " & addNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To addNum
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&"topsuseradd="""

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

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

set rs=server.createobject("adodb.recordset")
sql="select id,NAME,UserPoint from Userinfo where LockUser=0 order by UserPoint desc limit "&userjifenNum&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
showhots1="暂无任何注册会员！"
else
for temi=1 To userjifenNum
If rs.eof Then Exit For
showhots1=showhots1&"<a href="&SiteSystemPath&"show_user.asp?id=" & rs("id") & ">" & unhtmllists(rs("NAME")) & "</a>&nbsp;&nbsp;<font color=#808080>("&rs("UserPoint")&")</font><br>"
rs.movenext	
Next
end if
rs.close
set rs=nothing

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

set rs=server.createobject("adodb.recordset")
sql="select author_id,author_name from author where author_addpost=1 order by author_id desc limit "&authorNum&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
showhots1="暂无任何驻站作家！"
else
do while not rs.eof
showhots1=showhots1&"<a href="&SiteSystemPath&"show_author.asp?id=" & rs("author_id") & ">" & unhtmllists(rs("author_name")) & "</a><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing

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

set rsmake=server.createobject("adodb.recordset")
sql="select Ar_id,Ar_name,Ar_hist from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid=0 and Ar_Author=0 order by Ar_hist desc limit " & ArticledjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To ArticledjNum
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_hist")
showhots1=showhots1&"<a href="&SiteSystemPath&"read_Article.asp?id="&rsmake("Ar_id")&" >"&unhtmllists(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

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

set rsmake=server.createobject("adodb.recordset")
sql="select Ar_id,Ar_name,Ar_jian from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid=0 and Ar_Author=0 order by Ar_jian desc limit " & ArticletjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To ArticletjNum
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_jian")
showhots1=showhots1&"<a href="&SiteSystemPath&"read_Article.asp?id="&rsmake("Ar_id")&" >"&unhtmllists(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

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

set rsmake=server.createobject("adodb.recordset")
sql="select Ar_id,Ar_name,Ar_hist from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid<>0 and Ar_Author=0 order by Ar_hist desc limit " & userbookdjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To userbookdjNum
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_hist")
showhots1=showhots1&"<a href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllists(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING

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

set rsmake=server.createobject("adodb.recordset")
sql="select Ar_id,Ar_name,Ar_jian from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid<>0 and Ar_Author=0 order by Ar_jian desc limit " & userbooktjNum & ""
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
for temi=1 To userbooktjNum
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_jian")
showhots1=showhots1&"<a href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllists(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if