showhot1.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

classid=rs4("list_class")
set rs5=server.createobject("adodb.recordset")
sql5="select list_tpye from [list_type] where typeid="&classid
rs5.open sql5,conn,1,1
pencat=pencat&"<td width=25% align=center valign=top><img src='"&rs4("pic")&"' width=100 height=142 border=0 align=left hspace=15 vspace=15><br></td>"
pencat=pencat&"<td width=75% align=left valign=top style=paddint-top:10;padding-bottom:10;line-height:180% ><table width=100% ><tr><td width=50% >作品名称："&unhtmllist(rs4("list_name"))&"<br></td>"
pencat=pencat&"<td width=50% >作者："&unhtmllist(rs4("list_user"))&"<br></td></tr><tr><td width=50% >作品类型："&rs5("list_tpye")&"<br></td>"
pencat=pencat&"<td width=50% ><a href="&SiteSystemPath&"look_book.asp?id="&rs4("list_id")&" target=_blank>点击本书阅读公众版</a><br></td></tr><tr>"
pencat=pencat&"<td colspan=2 width=100% >内容简介：<br>&nbsp;&nbsp;&nbsp; "&left(htmlencode(rs4("list_all")),300)&"<br><br></td></tr></table>"
pencat=pencat&"<table width=90% border=0 align=right cellpadding=0 cellspacing=0><tr><td align=right valign=bottom>"
pencat=pencat&"[ <a target=_blank href="&SiteSystemPath&"look_vipbook.asp?id="&rs4("list_id")&"><font color=red>点击阅读《"&unhtmllist(rs4("list_name"))&"》 作者："&unhtmllist(rs4("list_user"))&" VIP章节</font></a> ]</td></tr></table></td>"
rs5.close
set rs5=nothing
else
pencat=pencat&"<td width=70% valign=top>对不起,暂时没有作品!</td>"
end if
rs4.close
set rs4=nothing
pencat=pencat&"</tr></table>"
response.write pencat
End Function


Function showjptj(Num)
set rsShow=server.CreateObject("ADODB.Recordset")
sql = "select top " & Num & " id,list_class,list_user,list_name,list_all,pic from [list_book] where Isgood=1 and Lock_book=0 order by id desc"
rsShow.open sql,conn,1,1
response.write "<table width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white><tr height=26>"
i=1
do while not rsShow.eof
response.write "<td height=26 align=left width=33% ><table width=100% border=0 align=center cellpadding=0 cellspacing=2><tr>"
response.write "<td width=11% valign=top align=left><a href="&SiteSystemPath&"look_book.asp?id="&rsShow("id")&" target=_blank><img src="&rsShow("pic")&" width=70 height=100 border=0 style=border: 1 solid #000000></a></td>"
response.write "<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>"
response.write "<td><a href="&SiteSystemPath&"look_book.asp?id="&rsShow("id")&" target=_blank><u><font color=#FF6600>"&rsShow("list_name")&"</font></a></u></td>"
response.write "</tr><tr valign=top><td width=35>作者:</td><td height=20><font color=#000000>"&rsShow("list_user")&"</a></font></td></tr>"
set rs5=server.createobject("adodb.recordset")
sql5="select list_tpye from [list_type] where typeid="&rsShow("list_class")&""
rs5.open sql5,conn,1,1
response.write "<tr valign=top><td height=20>类型:</td><td>"&rs5("list_tpye")&"</td></tr>"
rs5.close
set rs5=nothing
response.write "<tr valign=top><td height=20>简介:</td><td>"&left(rsShow("list_all"),30)&"</td></tr></table></td></tr></table></td>"
if i mod 3=0 then response.write "</tr><tr height=26>"
'end if
i=i+1
rsShow.movenext
loop
rsShow.close
set rsShow=nothing
response.write "</tr></table>"
End Function


Function showvipjptj(Num)
pencat2=""
pencat1="<table width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white><tr height=26>"
set rsmake=server.CreateObject("ADODB.Recordset")
sql = "select top " & Num & " list_id,list_class,list_user,list_name,list_all,pic from [vip_book] where Isgood=1 and Lock_book=0 order by id desc"
rsmake.open sql,conn,1,1
i=1
do while not rsmake.eof
pencat2=pencat2&"<td height=26 align=left width=33% ><table width=100% border=0 align=center cellpadding=0 cellspacing=2>"
pencat2=pencat2&"<tr><td width=11% valign=top align=left><a href="""&SiteSystemPath&"look_vipbook.asp?id="&rsmake("list_id")&""" target=_blank ><img src="""&rsmake("pic")&""" width=70 height=100 border=0 style=""border: 1 solid #000000""></a></td>"
pencat2=pencat2&"<td width=22% valign=top align=left><table border=0 cellspacing=0 cellpadding=1><tr valign=top><td height=20>名称:</td>"
pencat2=pencat2&"<td><a href="&SiteSystemPath&"look_vipbook.asp?id="&rsmake("list_id")&" target=_blank><u><font color=#FF6600>"&unhtmllist(rsmake("list_name"))&"</font></a></u></td>"
pencat2=pencat2&"</tr><tr valign=top><td width=35>作者:</td><td height=20><font color=#000000>"&unhtmllist(rsmake("list_user"))&"</a></font></td></tr>"
set rs5=server.createobject("adodb.recordset")
sql5="select list_tpye from [list_type] where typeid="&rsmake("list_class")&""
rs5.open sql5,conn,1,1
pencat2=pencat2&"<tr valign=top><td height=20>类型:</td><td>"&rs5("list_tpye")&"</td></tr>"
rs5.close
set rs5=nothing
pencat2=pencat2&"<tr valign=top><td height=20>简介:</td><td>"&left(htmlencode(rsmake("list_all")),30)&"</td></tr></table></td></tr></table></td>"
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")
sql="select top " & Num & " * from link where class_link=1"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr align=center><td colspan=5><span class=style1>暂无任何连接，请添加！</span></td></tr>"
else
do while not rs.eof
response.write "<tr><td align=center>"
'if  rs("ok_link")="1" then
	response.write "<a href=" & rs("web_link") & " target=_blank title=" & rs("content_link") & "><img src=" & rs("logo_link") & " width=100 height=35 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")
sql="select top "&Num&" * from link where class_link=1 order by id_link desc"
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") & " target=_blank title=" & htmlencode(rs("content_link")) & "><img src=" & rs("logo_link") & " width=100 height=35 border=0></a></td>"
	if i mod 8=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")
sql1="select top " & Num & " * from link where class_link=2"
rs1.open sql1,conn,1,3
if rs1.eof and rs1.bof then
response.write "<tr align=center><td colspan=8><span class=style1>暂无任何连接，请添加！</span></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") & " target=_blank title=" & rs1("content_link") & ">" & 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")
sql="select top "&Num&" * 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
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") & " target=_blank title=" & htmlencode(rs("content_link")) & ">" & rs("name_link") & "</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 userlogin()
response.write "<table align=center border=0 width=99% cellspacing=0 cellpadding=0 height=100><tr>"
If session("UserID")="" or session("UserName")="" or session("UserID")=null or session("UserName")=null Then
response.write "<form method=post action=user_login.asp name=form1><td align=center>会员名 <input name=UserName type=text size=10 style=background-color: #FFFFFF; border: 1 solid #000000><br>"
response.write "密　码 <input name=Userpass type=password size=10 style=background-color: #FFFFFF; border: 1 solid #000000><br><input type=submit value=登　陆 name=B3 class=stbtm> <input type=button value=注　册 class=stbtm onclick=javascript:location.href=&quot;user_reg.asp&quot;><br>"
response.write "<input type=button value=找回密码 class=stbtm onclick=window.open(&quot;GetPassword.asp&quot;,&quot;&quot;,&quot;toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=390,height=218&quot;);></td></form>"
Else
response.write "<td align=center><a href=user_index.asp title=进入会员中心!~><font color=#006600>进入会员中心</font></a><br><a href=user_bookbox.asp title=进入藏书架!~><font color=#006600>进入藏书架</font></a><br><a href=user_logout.asp title=退出/重新登陆><font color=#006600>退出登录</font></a></td>"
End IF
response.write "</tr></table>"
End Function


Function user_login()
response.write "<table align=center border=0 width=99% cellspacing=0 cellpadding=0><tr>"
If session("UserID")="" or session("UserName")="" or session("UserID")=null or session("UserName")=null Then
response.write "<form method=post action=user_login.asp name=form1><td align=center>会员名 <input name=UserName type=text size=10 style=background-color: #FFFFFF; border: 1 solid #000000>  "
response.write "密　码 <input name=Userpass type=password size=10 style=background-color: #FFFFFF; border: 1 solid #000000>  <input type=submit value=登　陆 name=B3 class=stbtm> <input type=button value=注　册 class=stbtm onclick=javascript:location.href=&quot;user_reg.asp&quot;>  "
response.write "<input type=button value=找回密码 class=stbtm onclick=window.open(&quot;GetPassword.asp&quot;,&quot;&quot;,&quot;toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=390,height=218&quot;);></td></form>"
Else
response.write "<td align=center>欢迎您<font color=#006600>"&session("AuthorName")&"</font>"&session("sex")&"，您要<a href=user_index.asp title=进入会员中心!~><font color=#006600>进入会员中心</font></a>，或直接<a href=user_bookbox.asp title=进入藏书架!~><font color=#006600>进入藏书架</font></a>，还是<a href=user_logout.asp title=退出/重新登陆><font color=#006600>退出登录</font></a>？</td>"
End IF
response.write "</tr></table>"
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 title=进入管理中心!~><font color=#006600>进入管理中心</font></a><br><a href=author_booklist.asp><font color=#006600>管理我的作品</font></a><br><a href=author_logout.asp 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
response.write "<a href="&SiteSystemPath&"list_book.asp?id="&rs1("typeid")&">"&rs1("list_tpye")&"</a>&nbsp;&nbsp;&nbsp;&nbsp;"
	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 show_class()
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_book.asp?id="&rs1("typeid")&">"&rs1("list_tpye")&"</a> <br>"
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
End Function


Function show_userbookroomclass()
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_userbook.asp?id="&rs1("id")&">"&rs1("classname")&"</a> <br>"
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
End Function


Function show_VIPclass()
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 booksearch()
response.write "<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><form action=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 vipbooksearch()
response.write "<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><form action=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 target=_blank href="&SiteSystemPath&"topten.asp?topvalue=1>总点击榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=4>总推荐榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<br><a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=2>月点击榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=5>月推荐榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<br><a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=3>周点击榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=6>周推荐榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<br><a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=7>总收藏榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=8>总字数榜</a>&nbsp;&nbsp;&nbsp;&nbsp;<br><a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=10>入站时间</a>&nbsp;&nbsp;&nbsp;&nbsp;<a target=_blank href="&SiteSystemPath&"topten.asp?topvalue=9>强推点击</a>&nbsp;&nbsp;&nbsp;&nbsp;<br>"
End Function

%>