makefunction.asp

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

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&" * 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&" * 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>"
i=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 i mod 10=0 then showhots1=showhots1&"</tr><tr>"
	i=i+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&" * 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&" * 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>"
i=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 i mod 12=0 then showhots1=showhots1&"</tr><tr>"
	i=i+1
	rs.movenext
	loop
end if
rs.close
set rs=nothing

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)
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 i=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 i=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 i=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 i=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 i=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 i=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 i=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 i=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 i=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