makefunction.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

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 i=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 i=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 then
showhots1="暂无任何排行"
else
For i=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 top " & addNum & " id,list_name from [list_book] where Lock_book=0 and isvip=0 order by id desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
For i=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 top "&useraddNum&" id,NAME from [Userinfo] where LockUser=0 order by id 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="&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 top "&userjifenNum&" id,NAME,UserPoint from [Userinfo] where LockUser=0 order by UserPoint desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
showhots1="暂无任何注册会员！"
else
For i=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 top "&authorNum&" author_id,author_name from [author] where author_addpost=1 order by author_id 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="&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 top " & ArticledjNum & " 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"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
For i=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 top " & ArticletjNum & " 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"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
For i=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 top " & userbookdjNum & " 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"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
For i=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 top " & userbooktjNum & " 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"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
For i=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
rsmake.close
Set rsmake=NOTHING

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

set rsmake=server.createobject("adodb.recordset")
sql="select top " & userbookaddNum & " 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"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
For i=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 top " & userbookaddsNum & " id,NAME,UserGrade from [Userinfo] where LockUser=0 order by UserGrade desc"
rsmake.open sql,conn,1,1
if rsmake.eof and rsmake.bof then
showhots1="暂无任何排行"
else
For i=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

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

set rsclass=server.createobject("adodb.recordset")
sql="select * from list_type"
rsclass.open sql,conn,1,1
if rsclass.eof and rsclass.bof then

showhots1="暂无任何分类！"
else

i=1
do while not rsclass.eof
if OpenInhtml=1 then
showhots1=showhots1&"<a href="&SiteSystemPath&"html/listbook_"&rsclass("typeid")&"_1."&htmlphe&">"&unhtmllists(rsclass("list_tpye"))&"</a>　"
else
showhots1=showhots1&"<a href="&SiteSystemPath&"list_book.asp?id="&rsclass("typeid")&">"&unhtmllists(rsclass("list_tpye"))&"</a>　"
end if
if i mod 2=0 then 
showhots1=showhots1&"<br>"
else
end if
i=i+1
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if

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