makefunction.asp

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

showhots1=""
showhots=showhots&"topsclass1=""<a href="&SiteSystemPath&"topten.asp>排行</a>┊"

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
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
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if

showhots=showhots&showhots1&"<a href="&SiteSystemPath&"Quanben.asp>全本</a>"""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topsclass2="""

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

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

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>　<br>"
else
showhots1=showhots1&"<a href="&SiteSystemPath&"list_book.asp?id="&rsclass("typeid")&">"&unhtmllists(rsclass("list_tpye"))&"</a>　<br>"
end if
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if

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

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
showhots1=showhots1&"<a href="&SiteSystemPath&"list_vipbook.asp?id="&rsclass("typeid")&">"&unhtmllists(rsclass("list_tpye"))&"</a>　"
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)
showhots1=""
showhots=showhots&"topsvipclass1="""

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

do while not rsclass.eof
showhots1=showhots1&"<a href="&SiteSystemPath&"list_vipbook.asp?id="&rsclass("typeid")&">"&unhtmllists(rsclass("list_tpye"))&"</a>┊"
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if

showhots=showhots&showhots1&"<a href="&SiteSystemPath&"vip_index.asp>VIP 专区</a>"""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topsvipclass2="""

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

do while not rsclass.eof
showhots1=showhots1&"<a href="&SiteSystemPath&"list_vipbook.asp?id="&rsclass("typeid")&">"&unhtmllists(rsclass("list_tpye"))&"</a>　<br>"
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if

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

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

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

do while not rsclass.eof
showhots1=showhots1&"<a href="&SiteSystemPath&"list_article.asp?id="&rsclass("id")&">"&unhtmllists(rsclass("classname"))&"</a>　"
showhots1=showhots1&"<br>"
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if
showhots1=showhots1&"<a href="&SiteSystemPath&"listuserbook.asp>会员文集</a>　"
showhots=showhots&showhots1&""""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topsArticleclass1="""

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

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

do while not rsclass.eof
showhots1=showhots1&"<a href="&SiteSystemPath&"list_article.asp?id="&rsclass("id")&">"&unhtmllists(rsclass("classname"))&"</a>┊"
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if
showhots1=showhots1&"<a href="&SiteSystemPath&"listuserbook.asp>会员文集</a>　"
showhots=showhots&showhots1&""""&chr(13)&chr(10)
showhots1=""
showhots=showhots&"topsauthor="""

set rs=server.CreateObject("ADODB.recordset")
sql="select top 1 Ar_id,Ar_Author,Ar_name,Ar_Content,Ar_pic from [Article] where Ar_nolook=0 and Ar_userid=0 and Ar_Author<>0 order by Ar_id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
showhots=showhots&"暂无任何作家访谈！"
else
if rs("Ar_pic")<>"" and rs("Ar_pic")<>null then
showhots=showhots&"<img class=pic1 src="&unhtmllists(rs("Ar_pic"))&" border=0 align=left hspace=5 vspace=5>"
end if
showhots=showhots&unhtmllists(left(rs("Ar_Content"),300))
showhots=showhots&"<p align=right><a href="&SiteSystemPath&"read_article.asp?id="&rs("Ar_id")&">"&unhtmllists(rs("Ar_name"))&"</a>"
end if
rs.close
set rs=nothing
showhots=showhots&""""&chr(13)&chr(10)

showhots1="topsbooksearch=""<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><form action="&SiteSystemPath&"search.asp method=post><td height=28 align=center> 类　型 <select size=1 name=key_type><option value='list_name'>作品名称</option><option value='list_user'>作者名称</option><option value='key'>作品主角</option></select></td></tr><tr><td height='28' align='center'> 关键字 <input title='' maxlength='25' name='key_keyword' size='11' class='checklist' style='background-color: #FFFFFF; border: 1 solid #000000'></td></tr><tr><td height='28' align='center'>&nbsp;<input type='submit' value=' 搜  索 ' name='submit' title='' class='checklist'>&nbsp; </td></form></tr></table>"""
showhots=showhots&showhots1&chr(13)&chr(10)
showhots1=""
showhots1="topsbook_search=""<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><form action="&SiteSystemPath&"search.asp method=post><td height=28 align=right><input title='' maxlength='25' name='key_keyword' size='11' class='checklist' style='background-color: #FFFFFF; border: 1 solid #000000'><select size=1 name=key_type><option value='list_name'>作品名称</option><option value='list_user'>作者名称</option><option value='key'>作品主角</option></select></td><td height='28' align='center'> </td><td height='28' align='center'>&nbsp;<input type='submit' value='搜  索' name='submit' title='' class='checklist'>&nbsp; </td></form></tr></table>"""
showhots=showhots&showhots1&chr(13)&chr(10)
showhots1=""
showhots1="topsvipbooksearch=""<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><form action="&SiteSystemPath&"vipbook_search.asp method=post><td height=28 align=center> 类　型 <select size=1 name=key_type><option value='list_name'>作品名称</option><option value='list_user'>作者名称</option><option value='key'>作品主角</option></select></td></tr><tr><td height='28' align='center'> 关键字 <input title='' maxlength='25' name='key_keyword' size='11' class='checklist' style='background-color: #FFFFFF; border: 1 solid #000000'></td></tr><tr><td height='28' align='center'>&nbsp;<input type='submit' value=' 搜  索 ' name='submit' title='' class='checklist'>&nbsp; </td></form></tr></table>"""
showhots=showhots&showhots1&chr(13)&chr(10)
showhots1=""
showhots1="topstopten=""<a href="&SiteSystemPath&"topten.asp?topvalue=1>总点击榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="&SiteSystemPath&"topten.asp?topvalue=4>总推荐榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<br><a href="&SiteSystemPath&"topten.asp?topvalue=2>月点击榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="&SiteSystemPath&"topten.asp?topvalue=5>月推荐榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<br><a href="&SiteSystemPath&"topten.asp?topvalue=3>周点击榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="&SiteSystemPath&"topten.asp?topvalue=6>周推荐榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<br><a href="&SiteSystemPath&"topten.asp?topvalue=7>总收藏榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="&SiteSystemPath&"topten.asp?topvalue=8>总字数榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<br><a href="&SiteSystemPath&"topten.asp?topvalue=10>入站时间</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="&SiteSystemPath&"topten.asp?topvalue=9>强推点击</a>&nbsp;&nbsp;&nbsp;&nbsp;<br>"""
showhots=showhots&showhots1&chr(13)&chr(10)
showhots1=""
showhots1="topsvip=""· <a href=#>VIP会员申请指南</a><br>· <a href=#><font color=red>成为高级VIP用户</font></a><br>· <a href=#><font color=red>成为初级VIP用户</font></a><br>· <a href=#><font color=red>用户续费充值</font></a><br>· <a href=#>汇款信息登记</a><br>· <a href="&SiteSystemPath&"pay.asp>汇款方式</a>"""
showhots=showhots&showhots1&chr(13)&chr(10)&"%"&">"
showhots1=""


file=server.mappath( ""&SiteSystemPath&"inc/showhots.asp" )

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 temgonggao(gonggaoNum)

pencat=""
set rs=server.CreateObject("adodb.recordset")
sql="select id,txtcontent,txttitle,txttime,Islink,hits from [news] where Istop=1 and Iscontent=0 and Ntype=0 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat1=pencat1&"<a href="&unhtmllists(rs("txtcontent"))&">"&unhtmllists(rs("txttitle"))&"</a><br>"
else
pencat1=pencat1&"<a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&unhtmllists(rs("txttitle"))&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql="select top "&gonggaoNum&" id,txttitle,txtcontent,txttime,Islink,hits from [news] where Istop=0 and Iscontent=0 and Ntype=0 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat2=pencat2&"<a href="&unhtmllists(rs("txtcontent"))&">"&unhtmllists(rs("txttitle"))&"</a><br>"
else
pencat2=pencat2&"<a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&unhtmllists(rs("txttitle"))&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql="select top "&lgonggaoNum&" txtcontent from [news] where Iscontent=1 and Ntype=0 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
pencat3=pencat3&""&unhtmllists(rs("txtcontent"))&"<br>"
rs.movenext
loop
end if
rs.close
set rs=nothing
pencat=pencat&pencat1&pencat2&pencat3

file=""&SiteSystemPath&"inc/showhots.inc"

FSOlinewrite file,1,pencat
pencat=""
pencat1=""
pencat2=""
pencat3=""
End Function

'-----------------------------------------------------------------------------------------
Function temsyft(syftNum)
pencat="<table width=100% border=0 cellspacing=0 cellpadding=0><tr>"
set rs4=server.CreateObject("adodb.recordset")
sql4="select top "&syftNum&" id,list_class,list_user,list_name,list_date,list_pic,list_all from [list_book] where Isweb_good = 1 and Lock_book = 0 and isvip=0 order by id desc"
rs4.open sql4,conn,1,3
if not(rs4.bof and rs4.eof) then
do while not rs4.eof
pencat=pencat&"<td height=25 class=xt valign=middle style=padding-right:10><a href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><img class=pic1 height=125 src="&unhtmllists(rs4("list_pic"))&" width=96 border=0 align=left hspace=15 vspace=15></a>&nbsp;&nbsp;&nbsp;"
pencat=pencat&""&unhtmllists(left(htmlencode(rs4("list_all")),300))&"......<br></td></tr><tr><td height=25><table width=90% border=0 align=right cellpadding=0 cellspacing=0><tr><td align=right valign=bottom>"
if OpenInhtml=1 then
pencat=pencat&"<td height=25 class=xt valign=middle style=padding-right:10><a href="&SiteSystemPath&"html/"&rs4("id")&"."&htmlphe&"><img class=pic1 height=125 src="&unhtmllists(rs4("list_pic"))&" width=96 border=0 align=left hspace=15 vspace=15></a>&nbsp;&nbsp;&nbsp;"
pencat=pencat&""&unhtmllists(left(htmlencode(rs4("list_all")),300))&"......<br></td></tr><tr><td height=25><table width=90% border=0 align=right cellpadding=0 cellspacing=0><tr><td align=right valign=bottom>"
pencat=pencat&"[ <a href="&SiteSystemPath&"html/"&rs4("id")&"."&htmlphe&"><font color=red>点击阅读《"&unhtmllists(rs4("list_name"))&"》 作者："&unhtmllists(rs4("list_user"))&"</font></a> ]</td></tr></table></td>"
else
pencat=pencat&"<td height=25 class=xt valign=middle style=padding-right:10><a href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><img class=pic1 height=125 src="&unhtmllists(rs4("list_pic"))&" width=96 border=0 align=left hspace=15 vspace=15></a>&nbsp;&nbsp;&nbsp;"
pencat=pencat&""&unhtmllists(left(htmlencode(rs4("list_all")),300))&"......<br></td></tr><tr><td height=25><table width=90% border=0 align=right cellpadding=0 cellspacing=0><tr><td align=right valign=bottom>"
pencat=pencat&"[ <a href="&SiteSystemPath&"look_book.asp?id="&rs4("id")&"><font color=red>点击阅读《"&unhtmllists(rs4("list_name"))&"》 作者："&unhtmllists(rs4("list_user"))&"</font></a> ]</td></tr></table></td>"
end if
if i mod syftlieNum=0 then 
pencat=pencat&"</tr><tr>"
else
end if
i=i+1
rs4.movenext
loop
end if
rs4.close
set rs4=nothing
pencat=pencat&"</tr></table>"
file=""&SiteSystemPath&"inc/showhots.inc"

FSOlinewrite file,2,pencat
pencat=""
End Function

'-----------------------------------------------------------------------------------
Function temvipsyft(vipsyftNum)
pencat="<table width=100% border=0 cellspacing=0 cellpadding=0><tr>"
set rs4=server.CreateObject("adodb.recordset")
sql4="select top "&vipsyftNum&" id,list_class,list_user,list_name,list_date,list_pic,list_all from [list_book] where Isweb_good=1 and Lock_book=0 and isvip=1 order by id desc"
rs4.open sql4,conn,1,3