showhot1.asp

小说站源代码文件

if i mod 3=0 then 
pencat2=pencat2&"</tr><tr height=26>"
else
end if
i=i+1
rsmake.movenext
loop
rsmake.close
set rsmake=nothing
pencat=pencat1&pencat2&"</tr></table>"
response.write pencat
End Function


Function showlogolink(Num)
response.write "<table width=100% border=0 align=center cellpadding=0 cellspacing=2>"
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select class_link,ok_link,web_link,content_link,logo_link from link where class_link=1 and ok_link = 1 order by id_link desc limit "&Num&""
else
	sql="select top "&Num&" class_link,ok_link,web_link,content_link,logo_link from [link] where class_link=1 and ok_link = 1 order by id_link desc"
end if
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<tr align=center><td colspan=5>暂无任何LOGO连接！</td></tr>"
else
do while not rs.eof
response.write "<tr><td align=center>"
if rs("class_link")=1 and rs("ok_link")=1 then
	response.write "<a href=" & rs("web_link") & " title=" & rs("content_link") & " target=_blank><img src=" & rs("logo_link") & " width=88 height=31 border=0></a>"
end if
response.write "</td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
end if
response.write "</table>"
End Function


Function showlogo_link(Num)
pencat="<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>"
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select web_link,content_link,logo_link from link where class_link = 1 and ok_link = 1 order by id_link desc limit "&Num&""
else
	sql="select top "&Num&" web_link,content_link,logo_link from [link] where class_link = 1 and ok_link = 1 order by id_link desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
pencat=pencat&"<tr align=center><td colspan=2>暂无任何LOGO连接！</td></tr>"
else
pencat=pencat&"<tr>"
i=1
do while not rs.eof
pencat=pencat&"<td align=left height=20><a href=" & rs("web_link") & " title=" & htmlencode(rs("content_link")) & " target=_blank><img src=" & rs("logo_link") & " width=88 height=31 border=0></a></td>"
	if i mod 10=0 then response.write "</tr><tr>"
	i=i+1
	rs.movenext
	loop
end if
rs.close
set rs=nothing
pencat=pencat&"</tr></table>"
response.write pencat
End Function

Function showtxtlink(Num)
response.write "<table width=100% border=0 cellspacing=0 cellpadding=0>"
set rs1=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql1="select web_link,content_link,name_link from link where class_link = 2 and ok_link = 1 order by id_link desc limit "&Num&""
else
	sql1="select top "&Num&" web_link,content_link,name_link from [link] where class_link = 2 and ok_link = 1 order by id_link desc"
end if
rs1.open sql1,conn,1,3
if rs1.eof and rs1.bof then
response.write "<tr align=center><td colspan=8>暂无任何文字连接！</td></tr>"
else
do while not rs1.eof
response.write "<tr><td align=center>"
if rs1("class_link")=2 and rs1("ok_link")=1 then
	response.write "<a href=" & rs1("web_link") & " title=" & rs1("content_link") & " target=_blank>" & rs1("name_link") & "</a>"
end if
response.write "</tr></td>"
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
response.write "</table>"
End Function


Function showtxt_link(Num)
pencat="<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>"
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select web_link,content_link,name_link from link where class_link = 2 and ok_link = 1 order by id_link desc limit "&Num&""
else
	sql="select top "&Num&" web_link,content_link,name_link from [link] where class_link = 2 and ok_link = 1 order by id_link desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
pencat=pencat&"<tr align=center><td colspan=2>暂无任何文字连接！</td></tr>"
else
pencat=pencat&"<tr>"
i=1
do while not rs.eof
pencat=pencat&"<td align=left height=20><a href=" & rs("web_link") & " title=" & htmlencode(rs("content_link")) & " target=_blank>" & rs("name_link") & "</a></td>"
	if i mod 12=0 then response.write "</tr><tr>"
	i=i+1
	rs.movenext
	loop
end if
rs.close
set rs=nothing
pencat=pencat&"</tr></table>"
response.write pencat
End Function


Function authorlogin()
response.write "<table align=center border=0 width=99% cellspacing=0 cellpadding=0 height=100><tr>"
If session("author_ID")="" or session("author_Name")="" or session("author_ID")=null or session("author_Name")=null Then
response.write "<form method=post action=author_login.asp name=form1><td align=center style=padding-left:10;padding-right:10;padding-top:10;padding-bottom:10;line-height:180% >登陆名称： <input name=author_Username type=text size=10 style=background-color: #FFFFFF; border: 1 solid #000000><br>"
response.write "登陆密码： <input name=author_password type=password size=10 style=background-color: #FFFFFF; border: 1 solid #000000><br><input type=submit value=登　陆 name=B3 class=stbtm> <input type=reset class=button value=清　除><br></td></form>"
Else
response.write "<td align=center style=padding-left:10;padding-right:10;padding-top:10;padding-bottom:10;line-height:180% ><a href=author_index.asp?info=index title=进入管理中心!~><font color=#006600>进入管理中心</font></a><br><a href=author_book.asp?info=book_list><font color=#006600>管理我的作品</font></a><br><a href=author_log.asp?info=out title=退出/重新登陆><font color=#006600>退出登录</font></a></td>"
End IF
response.write "</tr></table>"
End Function


Function showclass()
set rs1=server.createobject("adodb.recordset")
sql="select typeid,list_tpye from list_type"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "暂无任何内容！"
else
i=1
do while not rs1.eof
if OpenInhtml=1 then
response.write "<a href="&SiteSystemPath&"html/listbook_"&rs1("typeid")&"_1."&htmlphe&">"&rs1("list_tpye")&"</a>&nbsp;&nbsp;&nbsp;&nbsp;"
else
response.write "<a href="&SiteSystemPath&"list_book.asp?id="&rs1("typeid")&">"&rs1("list_tpye")&"</a>&nbsp;&nbsp;&nbsp;&nbsp;"
end if
	if i mod 2=0 then response.write "<br>"
	i=i+1
	rs1.movenext
	loop
rs1.close
set rs1=nothing
end if
End Function

Function showclass1()
pencat=""
pencat1=""
pencat="<a href="&SiteSystemPath&"topten.asp>排行</a>┊"

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

pencat1="暂无任何分类！"
else
do while not rsclass.eof
if OpenInhtml=1 then
pencat1=pencat1&"<a href="&SiteSystemPath&"html/listbook_"&rsclass("typeid")&"_1."&htmlphe&">"&unhtmllists(rsclass("list_tpye"))&"</a>┊"
else
pencat1=pencat1&"<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

pencat=pencat&pencat1&"<a href="&SiteSystemPath&"Quanben.asp>全本</a>"

response.write pencat
End Function

Function showclass2()
set rs1=server.createobject("adodb.recordset")
sql="select typeid,list_tpye from list_type"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "<span class=style1>暂无任何内容！</span>"
else
do while not rs1.eof
if OpenInhtml=1 then
response.write "<a href="&SiteSystemPath&"html/listbook_"&rs1("typeid")&"_1."&htmlphe&">"&rs1("list_tpye")&"</a> <br>"
else
response.write "<a href="&SiteSystemPath&"list_book.asp?id="&rs1("typeid")&">"&rs1("list_tpye")&"</a> <br>"
end if
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
End Function


Function showArticleclass()
set rs1=server.createobject("adodb.recordset")
sql="select id,classname from Ar_class"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "<span class=style1>暂无任何内容！</span>"
else
do while not rs1.eof
response.write "<a href="&SiteSystemPath&"list_article.asp?id="&rs1("id")&">"&rs1("classname")&"</a> <br>"
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
response.write "<a href="&SiteSystemPath&"listuserbook.asp>会员文集</a>　"
End Function

Function showArticleclass1()
set rs1=server.createobject("adodb.recordset")
sql="select id,classname from Ar_class"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "<span class=style1>暂无任何内容！</span>"
else
do while not rs1.eof
response.write "<a href="&SiteSystemPath&"list_article.asp?id="&rs1("id")&">"&rs1("classname")&"</a>┊"
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
response.write "<a href="&SiteSystemPath&"listuserbook.asp>会员文集</a>　"
End Function


Function showVIPclass()
set rs1=server.createobject("adodb.recordset")
sql="select typeid,list_tpye from list_type"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "<span class=style1>暂无任何内容！</span>"
else
i=1
do while not rs1.eof
response.write "　　<a href="&SiteSystemPath&"list_VIPbook.asp?id="&rs1("typeid")&">"&rs1("list_tpye")&"</a> "
if i mod 2=0 then 
pencat1=pencat1&"<br>"
else
end if
i=i+1
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
End Function

Function showVIPclass1()
set rs1=server.createobject("adodb.recordset")
sql="select typeid,list_tpye from list_type"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "<span class=style1>暂无任何内容！</span>"
else
do while not rs1.eof
response.write "　　<a href="&SiteSystemPath&"list_VIPbook.asp?id="&rs1("typeid")&">"&rs1("list_tpye")&"</a>┊"
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
End Function

Function showVIPclass2()
set rs1=server.createobject("adodb.recordset")
sql="select typeid,list_tpye from list_type"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "<span class=style1>暂无任何内容！</span>"
else
do while not rs1.eof
response.write "　　<a href="&SiteSystemPath&"list_VIPbook.asp?id="&rs1("typeid")&">"&rs1("list_tpye")&"</a> <br>"
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
End Function


Function showvip()
response.write "· <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>"
End Function

Function booksearch()
response.write "<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 class=checklist style='font-family:幼圆,宋体; font-size: 12px; background-color:white; border-width:1; border-color:black; border-style:solid;'><option value='list_name'>作品名称</option><option value='list_user'>作者名称</option><option value='key'>作品主角</option><option value='date'>收录时间</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>"
End Function

Function book_search()
response.write "<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><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><td height='28' align='center'>&nbsp;<input type='submit' value=' 搜一搜 ' name='submit' title='' class='checklist'>&nbsp; </td></form></tr></table>"
End Function


Function vipbooksearch()
response.write "<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 class=checklist style='font-family:幼圆,宋体; font-size: 12px; background-color:white; border-width:1; border-color:black; border-style:solid;'><option value='list_name'>作品名称</option><option value='list_user'>作者名称</option><option value='key'>作品主角</option><option value='date'>收录时间</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>"
End Function


Function usersearch()
response.write "<table width=99% height=91 border=0 cellpadding=0 cellspacing=0 align=center><form name=form3 action=user_search.asp method=post><tr align=center><td >输入书友昵称： </td></tr>"
response.write "<tr align=center><td><input name=nickname type=text class=but2 id=nickname size=16></td></tr><tr align=center><td><input type=submit name=Submit5 value=搜　索></td></tr></form></table>"
End Function


Function showtopten()
response.write "<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>"
End Function

if OpenInJS=1 then
showhitsfile=SiteSystemPath&"inc/showhots.inc"

topsgonggao=FSOlinedit(showhitsfile,1)
topssyft=FSOlinedit(showhitsfile,2)
topsvipsyft=FSOlinedit(showhitsfile,3)
topsjptj=FSOlinedit(showhitsfile,4)
topsvipjptj=FSOlinedit(showhitsfile,5)
topszxgx=FSOlinedit(showhitsfile,6)
topsvipzxgx=FSOlinedit(showhitsfile,7)
topspinglun=FSOlinedit(showhitsfile,8)
topslogolink=FSOlinedit(showhitsfile,9)
topslogo_link=FSOlinedit(showhitsfile,10)
topstxtlink=FSOlinedit(showhitsfile,11)
topstxt_link=FSOlinedit(showhitsfile,12)
end if
%>