showhot1.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<%
if htmlphem=1 then
htmlphe="htm"
elseif htmlphem=2 then
htmlphe="html"
elseif htmlphem=3 then
htmlphe="shtml"
elseif htmlphem=4 then
htmlphe="asp"
else
htmlphe="html"
end if

Function showauthor()
pencat=""
set rs=server.CreateObject("ADODB.recordset")
sql="select top 1 Ar_id,Ar_Author,Ar_name,Ar_Content,Ar_pic from [Article] where Ar_lock=0 and 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
pencat="暂无任何作家访谈！"
else
if rs("Ar_pic")<>"" and rs("Ar_pic")<>null then
pencap=encat&"<img class=pic1 src="&rs("Ar_pic")&" border=0 align=left hspace=5 vspace=5>"
end if
pencat=pencat&left(rs("Ar_Content"),300)
pencat=pencat&"<p align=right><a href="&SiteSystemPath&"read_article.asp?id="&rs("Ar_id")&">"&rs("Ar_name")&"</a>"
end if
rs.close
set rs=nothing
response.write pencat

End Function


Function showauthoradd(Num)
pencat=""
set rs=server.createobject("adodb.recordset")
sql="select top "&Num&" 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
pencat="暂无任何驻站作家！"
else
do while not rs.eof
pencat=pencat&"<a href="&SiteSystemPath&"show_author.asp?id=" & rs("author_id") & ">" & unhtmllist(rs("author_name")) & "</a><br>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
response.write pencat

End Function

Function showArticledj(Num)
pencat1=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " 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
pencat1="暂无任何排行"
else
For i=1 To Num
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_hist")
pencat1=pencat1&"<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
response.write pencat1
End Function
'----------------------------------------------------------------------------------------------

Function showArticletj(Num)
pencat1=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " 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
pencat1="暂无任何排行"
else
For i=1 To Num
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_jian")
pencat1=pencat1&"<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
response.write pencat1
End Function

Function showuserbooktj(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " 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
pencat="暂无任何排行"
else
For i=1 To Num
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_jian")
pencat=pencat&"<a href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function

'-------------------------------------------------------------------------------------
Function showuserbookdj(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " 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
pencat="暂无任何排行"
else
For i=1 To Num
If rsmake.eof Then Exit For
Tomps=rsmake("Ar_hist")
pencat=pencat&"<a href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function

'-------------------------------------------------------------------------------------
Function showuserbookadd(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " 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
pencat="暂无任何排行"
else
For i=1 To Num
If rsmake.eof Then Exit For
pencat=pencat&"<a href="&SiteSystemPath&"read_userbook.asp?id="&rsmake("Ar_id")&" >"&unhtmllist(rsmake("Ar_name"))&"</a><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function

'-------------------------------------------------------------------------------------
Function showuserbookadds(Num)
pencat=""
set rsmake=server.createobject("adodb.recordset")
sql="select top " & Num & " 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
pencat="暂无任何排行"
else
For i=1 To Num
If rsmake.eof Then Exit For
Tomps=rsmake("UserGrade")
pencat=pencat&"<a href="&SiteSystemPath&"show_user.asp?id="&rsmake("id")&" >"&rsmake("NAME")&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
rsmake.movenext	
Next
end if
rsmake.close
Set rsmake=NOTHING
response.write pencat

End Function

Function showsc(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name from [list_book] where Lock_book = 0 order by id desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showpinglun(Num)
	Set rsp = Server.CreateObject("ADODB.Recordset")
	sql = "select top "&Num&" * from [Comment] where Commenttype = 1 order by Commentid desc"
	rsp.open sql, conn, 1, 1
	
if rsp.eof and rsp.bof then
pencat="没有数据可查询"
else
pencat="<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
do while not rsp.eof
pencat=pencat&"<tr><td class=t_one>"
bookID=rsp("type_ID")
Set rsb = Server.CreateObject("ADODB.Recordset")
sql = "select list_name from [list_book] where id="&bookID&""
rsb.open sql, conn, 1, 1
pencat=pencat&"※ "&htmlencode(rsp("Content"))&"<br>  --　"&unhtmllist(rsp("UserName"))&"　于　"&rsp("WriteTime")&"　评《"
if OpenInhtml=1 then
pencat=pencat&"<a href="&SiteSystemPath&"html/"&bookid&"."&htmlphe&">"&rsb("list_name")&"</a>》"
else
pencat=pencat&"<a href="&SiteSystemPath&"look_book.asp?id="&bookid&">"&rsb("list_name")&"</a>》"
end if
rsb.close
set rsb=nothing
pencat=pencat&"</td></tr><tr><td colspan=3 bgcolor=#666666 align=center height=1></td></tr>"
rsp.movenext
loop
pencat=pencat&"</tr></table>"
end if
rsp.close
set rsp=nothing
response.write pencat
End Function


Function showsc(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_cang from [list_book] where Lock_book = 0 order by list_cang desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_cang")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showtj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_jian from [list_book] where Lock_book = 0 order by list_jian desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_jian")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if
rsShowHOT.movenext	
Next
rsShowHOT.close
Set rsShowHOT=NOTHING
end if
End Function


Function showytj(Num)
set rsShowHOT=server.createobject("adodb.recordset")
sql="select top " & Num & " id,list_name,list_yjian from [list_book] where Lock_book = 0 order by list_yjian desc"
rsShowHOT.open sql,conn,1,1
if rsShowHOT.eof and rsShowHOT.bof then
response.write "暂无任何排行"
else
For i=1 To Num
If rsShowHOT.eof Then Exit For
id=rsShowHOT("id")
list_name=rsShowHOT("list_name")
Tomps=rsShowHOT("list_yjian")
if OpenInhtml=1 then
	response.write "<a href='"&SiteSystemPath&"html/"&id&"."&htmlphe&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
else
	response.write "<a href='"&SiteSystemPath&"look_book.asp?id="&id&"'>"&list_name&"</a>&nbsp;&nbsp;<font color=#808080>("&Tomps&")</font><br>"
end if