📄 blog_bloger.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/refresh.asp"-->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<%
dim showType,ShowTypeTitle
showtype=request.QueryString("showtype")
%>
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center" class="tablestyle" bordercolor="#FFFFFF">
<tr>
<td bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">
<img src="../resource/images/blog/li.gif" width="12" height="12">
<%if userid="" then response.Write("游客") else response.Write(username)%>,您的位置：<a href="../blog/main.asp">56Blog</a> →
<%if showtype=1 or showtype=2 then response.Write("Blogger列表") else response.Write("<a href=blog_show.asp> 我的博客</a> →好友列表")%>
</td>
</tr>
<tr>
<td bordercolor="#4C4C4C">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" valign="top" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word">
<%if userid=empty then %>
<!--#include file="../include/blog_leftpub.asp"-->
<%else%>
<!--#include file="../include/blog_leftprv.asp"-->
<%end if%>
</td>
<td width="510" valign="top">
<%
dim thePageSize,ttlPage,ttlRdCnt
Page=request("Page")
if request.Form("select")<>0 then page=request.Form("select")
thePageSize=30
if not isnumeric(page) then page=1 else page=clng(page)
if page<1 then page=1
select case showtype
case 1
strsql="select user_id,user_name,user_regtime from user_info order by user_id desc"
showtypetitle="Blogger列表－注册时间排行"
case 2
strsql="select user_id,user_name,commendcount from user_info order by commendcount desc"
showtypetitle="Blogger列表－推荐数排行"
case 3
strSQL="select * from blog_friend where user_id="& userid
showtypetitle="Blog好友列表"
if Userid="" then response.Redirect("../common/showerr.asp?ErrType=1")
case 4
strSQL="select * from bbs_friend where user_id="& userid
showtypetitle="论坛好友列表"
if Userid="" then response.Redirect("../common/showerr.asp?ErrType=1")
end select
objRS.open strSQL,objConn,1,1
if not objRS.eof then
objRS.pagesize=thePageSize
ttlPage=objRS.pagecount
ttlRdCnt=objRS.Recordcount
if Page>ttlPage then Page=ttlPage
objRS.AbsolutePage=Page
end if
%>
<br>
<table width="450" border="0" align="center" cellpadding="2" cellspacing="2" bgcolor="#D6E7FF"style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
<tr>
<td align="center"><%response.Write(showtypetitle&"<第"&page&"页>")%></td>
</tr>
</table>
<br>
<%
select case showtype
case 1
for i=1 to thePageSize
if objRS.eof then exit for
%>
<table width="450" border="0" cellspacing="2" cellpadding="2" align="center" <%if i mod 2 =0 then response.Write("bgcolor='#EFEBEF'")%>style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
<tr>
<td width="100" align="right" title="查看用户信息"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>"> <%=objrs("user_name")%></a> </td>
<td width="150" align="center"><%=FormatDateTime(objrs("user_regtime"),vbShortDate)%></td>
<td width="100" align="center" title="阅读Blog日记"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>"><img src="../resource/images/blog/li2.gif" width="9" height="9" border="0"></a></td>
<td width="100" align="center" title="加为好友">[<a href="../common/addfriend.asp?FriendID=<%=objrs("user_id")%>&AddType=BLOG">好友</a>]</td>
</tr>
</table>
<br>
<%
objRs.movenext
next%>
<table width="450" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>分页：
<%for i=1 to ttlpage%>
<a href="blog_bloger.asp?page=<%=i%>"><b><%=i%></b></a>
<%next %>
</td>
<td align="right"><a href="blog_bloger.asp?&page=<%=i%>"><b><<</b></a> <a href="blog_bloger.asp?page=<%=page-1%>"><b><</b></a> <a href="blog_bloger.asp?page=<%=page+1%>"><b>></b></a> <a href="blog_bloger.asp?page=<%=ttlpage%>"><b>>></b></a> </td>
</tr>
</table>
<% case 2
for i=1 to thePageSize
if objRS.eof then exit for
%>
<table width="450" border="0" cellspacing="2" cellpadding="2" align="center" <%if i mod 2 =0 then response.Write("bgcolor='#EFEBEF'")%>style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
<tr>
<td width="100" align="right" title="查看好友信息"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>"> <%=objrs("user_name")%></a> </td>
<td width="150" align="center">推荐数：<%=objrs("commendcount")%></td>
<td width="100" align="center" title="阅读Blog日记"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>"><img src="../resource/images/blog/li2.gif" width="9" height="9" border="0"></a></td>
<td width="100" align="center" title="加为好友">[<a href="../common/addfriend.asp?FriendID=<%=objrs("user_id")%>&AddType=BLOG">好友</a>]</td>
</tr>
</table>
<br>
<%
objRs.movenext
next%>
<table width="450" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>分页：
<%for i=1 to ttlpage%>
<a href="blog_bloger.asp?page=<%=i%>"><b><%=i%></b></a>
<%next %>
</td>
<td align="right"><a href="blog_bloger.asp?&page=<%=i%>"><b><<</b></a> <a href="blog_bloger.asp?page=<%=page-1%>"><b><</b></a> <a href="blog_bloger.asp?page=<%=page+1%>"><b>></b></a> <a href="blog_bloger.asp?page=<%=ttlpage%>"><b>>></b></a> </td>
</tr>
</table>
<%case 3
for i=1 to thePageSize
if objRS.eof then exit for%>
<table width="450" border="0" cellspacing="2" cellpadding="2" align="center" <%if i mod 2 =0 then response.Write("bgcolor='#EFEBEF'")%>style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
<tr>
<td width="145" align="right" title="查看好友信息"><a href="../common/userinfo.asp?UserID=<%=objrs("friend_id")%>"> <%=objrs("friend_name")%></a> </td>
<td width="145" align="center" title="阅读Blog日记"><a href="blog_show.asp?ShowID=<%=objrs("friend_id")%>"><img src="../resource/images/blog/li2.gif" width="9" height="9" border="0"></a></td>
</tr>
</table><br>
<%
objRs.movenext
next%>
<table width="450" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>分页：
<%for i=1 to ttlpage%>
<a href="blog_bloger.asp?page=<%=i%>"><b><%=i%></b></a>
<%next %>
</td>
<td align="right"><a href="blog_bloger.asp?&page=<%=i%>"><b><<</b></a> <a href="blog_bloger.asp?page=<%=page-1%>"><b><</b></a> <a href="blog_bloger.asp?page=<%=page+1%>"><b>></b></a> <a href="blog_bloger.asp?page=<%=ttlpage%>"><b>>></b></a> </td>
</tr>
</table>
<br>
<%case 4
for i=1 to thePageSize
if objRS.eof then exit for%>
<table width="450" border="0" cellspacing="2" cellpadding="2" align="center" <%if i mod 2 =0 then response.Write("bgcolor='#EFEBEF'")%>style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
<tr>
<td width="145" align="right" title="查看好友信息"><a href="../common/userinfo.asp?UserID=<%=objrs("friend_id")%>"> <%=objrs("friend_name")%></a> </td>
<td width="145" align="center" title="阅读Blog日记"><a href="blog_show.asp?ShowID=<%=objrs("friend_id")%>"><img src="../resource/images/blog/li2.gif" width="9" height="9" border="0"></a></td>
</tr>
</table><br>
<%
objRs.movenext
next%>
<table width="450" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>分页：
<%for i=1 to ttlpage%>
<a href="blog_bloger.asp?page=<%=i%>"><b><%=i%></b></a>
<%next %>
</td>
<td align="right"><a href="blog_bloger.asp?&page=<%=i%>"><b><<</b></a> <a href="blog_bloger.asp?page=<%=page-1%>"><b><</b></a> <a href="blog_bloger.asp?page=<%=page+1%>"><b>></b></a> <a href="blog_bloger.asp?page=<%=ttlpage%>"><b>>></b></a> </td>
</tr>
</table>
<br>
<%end select%>
<p> </p>
</td>
</tr>
</table></td>
</tr>
<tr>
<td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center"> </td>
</tr>
</table>
<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -