blog.asp

感谢您使用BBSXP

<!-- #include file="Setup.asp" --><%

UserName=HTMLEncode(Request("UserName"))
id=int(Request("id"))

top

if id<>empty then
sql="select * from [BBSXP_Calendar] where id="&id&" order by id Desc"
else
sql="select * from [BBSXP_Calendar] where (hide=0 or UserName='"&Request.Cookies("UserName")&"') and UserName='"&UserName&"' order by id Desc"
end if

Rs.Open sql,Conn,1

if Rs.eof then error("<li>该用户暂时没有任何日志")

%>
<table class="a2" cellSpacing="1" cellPadding="4" width="100%" align="center" border="0">
	<tr class="a3">
		<td colSpan="2">
		<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table2">
			<tr>
				<td height="18">&nbsp;<img src="images/Forum_nav.gif">&nbsp; <%ClubTree%> → <a href="Calendar.asp">社区日志</a> → <span id=title><a href="Blog.asp">网络日志</a></span></td>
				<td align="right" height="18">
				<img src="images/jt.gif"> <a href=Calendar.asp?menu=NewCalendar>发表日志</a></td>
			</tr>
		</table>
		</td>
	</tr>
</table>

<br>
<table border="0" width="100%" align="center">
	<tr>
		<td>
		<table class="a2" style="WIDTH:100%" height="100%" cellspacing="1" cellpadding="3" border="0">
			<tr>
				<td class="a1" align="middle" height="25"><b>网络日志</b></td>
			</tr>
			<tr align="middle">
				<td bgcolor="#ffffff" align="Left" height="100">
<%




PageSetup=10 '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数
i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1
UserName=Rs("UserName")
content=Rs("content")

if id="" then
content=ReplaceText(content,"<[^>]*>","")
if len(content)>200 then content=Left(""&content&"",200)&"..."
end if


%>
				<table border="0" width="100%" cellspacing="10">
					<tr>
						<td>
						<b><font size="4"><%=Rs("title")%></font></b><br>
						<br><%=content%>
<%if Rs("hide")=1 then%><br><br>注：<font color="#FF0000">本篇日志为隐藏状态</font><%end if%>
<hr>
<%if id="" then%>
<a href="?id=<%=Rs("id")%>">阅读全文</a>
<%else%>
<font color="#C0C0C0">阅读全文</font>
<%end if%>
 | 
<%if Request.Cookies("UserName")=UserName then%>
<a href="Calendar.asp?menu=NewCalendar&id=<%=Rs("id")%>">编辑</a>
<%else%>
<font color="#C0C0C0">编辑</font>
<%end if%>
 | 
<%if UserName= Request.Cookies("UserName") or membercode > 3 then%>
<a href="Calendar.asp?menu=Del&id=<%=Rs("id")%>" onclick="checkclick('您确定要删除此条日志?')">删除</a>
<%else%>
<font color="#C0C0C0">删除</font>
<%end if%>
 | <%=Rs("DateCreated")%> by <a href="Profile.asp?UserName=<%=UserName%>"><%=UserName%></a></td>
					</tr>
				</table>
<%
Rs.MoveNext
loop

Rs.Close  
%>
				</td>
			</tr>
		</table>
<script>ShowPage(<%=TotalPage%>,<%=PageCount%>,"UserName=<%=UserName%>")</script>
		</td>
		<td width="200" align="right" valign="top">
		<table class="a2" style="WIDTH:95%" cellspacing="1" cellpadding="3" border="0">
			<tr class="a1">
				<td align="middle" height="25"><b>档案文件</b></td>
			</tr>
			<tr align="middle">
				<td bgcolor="#ffffff">
<%
sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"
Set Rs=Conn.Execute(sql)

select case Rs("UserSex")
case "male"
UserSex="男"
case "female"
UserSex="女"
end select

if Rs("birthday")<>"" then birthyear=year(now)-split(Rs("birthday"),"-")(0)

Userphoto=Rs("Userphoto")
UserInfo=split(Rs("UserInfo"),"\")
realname=UserInfo(0)
country=UserInfo(1)
province=UserInfo(2)
city=UserInfo(3)
Postcode=UserInfo(4)
blood=UserInfo(5)
belief=UserInfo(6)
occupation=UserInfo(7)
marital=UserInfo(8)
education=UserInfo(9)
college=UserInfo(10)
address=UserInfo(11)
phone=UserInfo(12)
character=UserInfo(13)
personal=UserInfo(14)
Rs.close
%>
<script>
if("<%=Userphoto%>"!=""){
document.write("<a target=_blank href=<%=Userphoto%>><img src=<%=Userphoto%> border=0 width=150></a>")
}
</script>
				<table cellspacing="2" cellpadding="2" width="100%" border="0">
					<tr>
						<td valign="top">姓名：</td>
						<td width="120" ><%=UserName%></td>
					</tr>
					<tr>
						<td valign="top">年龄：</td>
						<td width="120"><%=birthyear%>
						</td>
					</tr>
					<tr>
						<td valign="top">性别：</td>
						<td width="120"><%=UserSex%></td>
					</tr>
					<tr>
						<td valign="top">职业：</td>
						<td width="120"><%=occupation%></td>
					</tr>
					<tr>
						<td valign="top"><font class="bold">位置：</font></td>
						<td width="120"><%=country%><br>
						<%=province%><br>
						<%=city%></td>
					</tr>
					<tr>
						<td colspan="2"><%=personal%></td>
					</tr>
				</table>
				</td>
			</tr>
			<tr align="middle">
				<td bgcolor="#ffffff" align="right">
				<a href="Profile.asp?UserName=<%=UserName%>">查看档案文件详细信息</a></td>
			</tr>
		</table>
		<br>
		<table class="a2" style="WIDTH:95%" cellspacing="1" cellpadding="3" border="0">
			<tr>
				<td class="a1" align="middle" height="25"><b>以往公开日志</b></td>
			</tr>
			<tr bgcolor="#ffffff">
				<td>
<%
sql="select top 10 * from [BBSXP_Calendar] where hide=0 and UserName='"&UserName&"' order by id Desc"

Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF
%><li><a href=?id=<%=Rs("id")%>><%=Rs("title")%></a> (<%=Rs("adddate")%>)</li><%
Rs.MoveNext
loop
Rs.Close   
%>
</td></tr>
		</table>
		　</td>
	</tr>
</table>

<script>title.innerHTML='<a href="Blog.asp?UserName=<%=UserName%>">“<%=UserName%>”网络日志</a>'</script>

<%

htmlend
%>