makefunction.asp

小说站源代码文件

rsmake.close
Set rsmake=NOTHING

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

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

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

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


else


showhots=showhots&"topsqltj="""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & qltjNum & " id,list_name from [list_book] where Lock_book=0 and listvv_good=1 and isvip=0 order by id desc"
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 top " & qltjNum & " id,list_name from [list_book] where Lock_book=0 and IsGood=1 and isvip=1 order by id desc"
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 top " & lztjNum & " id,list_name from [list_book] where Lock_book=0 and Islist_Good=1 and isvip=0 order by id desc"
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 top " & djNum & " id,list_name,list_hit from [list_book] where Lock_book=0 and isvip=0 order by list_hit desc"
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 top " & mdjNum & " id,list_name,list_mhit from [list_book] where Lock_book=0 and isvip=0 order by list_mhit desc"
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 top " & zdjNum & " id,list_name,list_zhit from [list_book] where Lock_book=0 and isvip=0 order by list_zhit desc"
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>"
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 top " & ddjNum & " id,list_name,list_dhit from [list_book] where Lock_book=0 and isvip=0 order by list_dhit desc"
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 top " & tjNum & " id,list_name,list_jian from [list_book] where Lock_book=0 and isvip=0 order by list_jian desc"
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 top " & mtjNum & " id,list_name,list_mjian from [list_book] where Lock_book=0 and isvip=0 order by list_mjian desc"
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 top " & ztjNum & " id,list_name,list_zjian from [list_book] where Lock_book=0 and isvip=0 order by list_zjian desc"
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 top " & dtjNum & " id,list_name,list_djian from [list_book] where Lock_book=0 and isvip=0 order by list_djian desc"
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 top " & scNum & " id,list_name,list_cang from [list_book] where Lock_book=0 and isvip=0 order by list_cang desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof