📄 user_index_frame1.asp

📁 是个不错的文件代码,希望大家好好用,
💻 ASP
字号:
<!--#include file="user_top.asp"-->
<script>
function purl(url,title){
	parent.show_title(title);
	parent.switchTab('TabPage1','Tab3');
	parent.menu(parent.document.getElementById('Tab3'))
	parent.frames["content3"].location=url;
}

function purl1(url){
	//parent.show_title(title);
	parent.switchTab('TabPage1','Tab2');
	parent.menu(parent.document.getElementById('Tab2'))
	parent.frames["content2"].location=url;
	
}
</script>
</head>
<body scroll="no" style="overflow:auto!important;overflow:hidden;background:#fff;">
<div id="main_body">
<div class="Layout_Right">
	<ul class="Layout_Right_ul1">
		<li class="ul1_top">站点公告</li>
		<li class="ul1_content">
		<%=oblog.setup(7,0)%>
		</li>
		<li class="ul1_end">　</li>
	</ul>
	<div id="Layout_Right_skin">
		<!--最新增加的 3个模板-->
		<div id="Layout_Right_skin_top"></div>
		<div id="Layout_Right_skin_content">
			<%
			Dim rs
			Set rs=oblog.Execute("Select top 3 id,userskinname,skinauthorurl,skinauthor,skinpic From oblog_userskin Where ispass=1 Order By id Desc")
			If Not rs.Eof Then
			Do While Not rs.Eof
			%>		
				<ul>
				<li id="new_img"><a href="showskin.asp?id=<%=rs(0)%>" target=_blank><img src="<%=rs(4)%>" class="skinimg" /></a></li>
				<li id="new_title">
					<span class="name">名称：<a href="showskin.asp?id=<%=rs(0)%>"  target=_blank><%=rs(1)%></a></span>
					<span class="user">作者：<a href="<%=rs(2)%>" target=_blank><%=rs(3)%></a></span>
				</li>
				</ul>
		<%
				rs.Movenext
			Loop
		End If
		Set rs=Nothing
		%>
		</div>
		<div id="Layout_Right_skin_end"></div>
	</div>

</div>
<div class="Layout_Left">
	<ul class="userinfo">
		<li class="mailst"><span class="f60"><%=oblog.l_uname%>，欢迎登录<br />您的最后登录时间 <font color=red><%=oblog.l_ulastlogin%></font></span></li>
		<li class="sizeinfo">
			<span class="txt" id="SpaceInfo">
				<img class="face" src="<%=oblog.l_uIco%>" align="absmiddle">
				昵称:<%=oblog.l_unickname%><br />
				级别:<%=oblog.l_Group(1,0)%>
				<br />积分:<%=oblog.l_uScores%>
				<br/>
				<input TYPE="button" VALUE="修改我的资料及头像" ONCLICK="purl('user_setting.asp?action=userinfo&div=13','设置')">
				</span></li>
<hr />
		<li class="mailst"><img src="oBlogStyle/li/13.gif" align="absmiddle">您一共有&nbsp;<a href="#" class="f60" onclick="purl('user_comments.asp','日志评论')"><%=oblog.l_ucommentcount%></a>&nbsp;评论&nbsp;(其中最新一条评论是在&nbsp;<a href="#" class="f60" onclick="purl('user_comments.asp','日志评论')"><%=FmtMinutes(oblog.l_ulastcomment)%></a>&nbsp;前)</li>
		<li class="mailst"><img src="oBlogStyle/li/14.gif" align="absmiddle">您一共有&nbsp;<a href="#" onclick="purl('user_messages.asp','访客留言')" class="f60"><%=oblog.l_umessagecount%></a>&nbsp;留言&nbsp;(其中最新一条留言是在&nbsp;<a href="#" onclick="purl('user_messages.asp','访客留言')" class="f60"><%=FmtMinutes(oblog.l_ulastmessage)%></a>&nbsp;前)</li>
		<!--<li class="mailst"><img src="oBlogStyle/level/newmsg.gif">您的好友 <a href="user_messages.asp" class="f60">无敌妞妞</a> 在3小时以前发表了一篇文章，要去<a href="user_messages.asp" class="f60">看看</a>吗？</li>-->
	<%
	set rs=oblog.execute("select count(teamid) from oblog_teamusers where userid="&oblog.l_uid&" and state=1")
	if rs(0)>0 then
		response.Write("<li class=""mailst""><img src=""oBlogStyle/level/newmsg.gif"" align=""absmiddle"">收到 <a href='#' onclick=""purl1('user_team.asp?action=members&cmd=2')"" class='f60'>"&rs(0)&"</a> 个" &P_QQ_NAME& "邀请加入</a><li>")
	end if
	set rs=oblog.execute("select count(userid) from oblog_teamusers where state=2 and teamid in (select a.teamid from oblog_team a,oblog_teamusers b where a.teamid=b.teamid and b.state=5 and  b.userid="&oblog.l_uid&")")
	if rs(0)>0 then
		response.Write("<li class=""mailst""><img src=""oBlogStyle/level/newmsg.gif"" align=""absmiddle"">收到 <a href='#' onclick=""purl1('user_team.asp?action=members&cmd=4')"" class='f60'>"&rs(0)&"</a> 个用户的" &P_QQ_NAME& "申请</a><li>")
	end if
%>
	</ul>
<div id="Layout_Left_userinfo2">
<div class="left" id="user_info">
<div class="user_info_top" title="博客信息">博客信息</div>
<ul>
<li>日志总数:<%=oblog.l_ulogcount%></li>
<li>评论数量:<%=oblog.l_ucommentcount%></li>
<li>留言数量:<%=oblog.l_umessagecount%></li>
<li>访问次数:<%=oblog.l_uvisitcount%></li>
</ul>
<div class="user_info_end"></div>
</div>
<div id="user_space">
<div class="user_space_top" title="博客信息">博客空间</div>
<%
'进行数据计算
'l_gUpSpace=0 限制/-1不允许上传
Dim freesize, maxsize,maxsize1,thisPercent
maxsize1 = oblog.l_Group(24,0)
If maxsize1>0 Then
	maxsize = oblog.showsize(maxsize1 * 1024)
	freesize = oblog.showsize(Int(maxsize1*1024 - oblog.l_uUpUsed))
	thisPercent=oblog.l_uUpUsed/(maxsize1*1024)*100
Elseif maxsize1=0 Then
	maxsize = "不限"
	freesize = "不限"
	thisPercent=0
Elseif maxsize1=-1 Then
	maxsize = 0
	freesize = 0
	thisPercent=100
End If
%>
<ul>
<li><TABLE class="user_space_table" cellSpacing="1" cellPadding="0" width="160" align="center">
  <TBODY>
  <TR>
    <TD class="user_space_used" width="<%=thisPercent%>%" height="12"></TD>
    <TD width="100%"></TD></TR></TBODY></TABLE></li>
<li>当前使用:<%=oblog.showsize(oblog.l_uUpUsed)%></li>
<li>剩余空间:<%=freesize%></li>
<li>空间大小:<%=maxsize%></li>
</ul>
<div class="user_info_end"></div>
</div>
</div>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -