📄 uinfo.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<!-- #include file="UbbCode.asp" -->
<!--插入星座判断函数-->
<!--#include file="in_starbirth.asp"-->

<body>
<!--插入网站置顶-->
<% if u_name="" then
	Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>


<!--获取附件限制-->
<!--#include file="in_sys_share.asp"-->

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdk2"><tr>
	<td width="100%" height="100%">
		&nbsp;<a href="index.asp">[首页]</a>-<font class="ft1">[成员中心]</font>
	</td>
</tr></table>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
	<td align="center" width="50%" height="100%" class="rdr">
		<b><font class="ft1">[我的信息概览]</font></b>
	</td>
	<td align="center" width="50%" height="100%">
		<b><a href="umod.asp">[修改个人资料]</a></b>
	</td>
</tr></table>

<%
dim aqq,amob,ado,ahome,ahometel
'找出该成员
sqlstr="SELECT * FROM tblmates WHERE ID="&u_ID
rs.open sqlstr,conn,0,1
	IF rs.eof AND rs.bof THEN
		Response.Redirect "resp.asp?cmd=id_miss"
	ELSE
		'判断身份、性别等等
		if rs("power")>1 then
				icn_sex="img/icn_adm1.gif"
		elseif rs("sex")=True then
				icn_sex="img/icn_gg.gif"
		else
				icn_sex="img/icn_mm.gif"
		end if
		'总管判断
		if DEF_sysadm=rs("name") then
			icn_sex="img/icn_admsys.gif"
		end if
		
		if rs("qq")="" then
			aqq="无"
		else
			aqq="<font class='ft1'>"&unhtml(rs("qq"))&"</font>"
		end if
	
		if rs("mobile")="" then
			amob="无"
		else
			amob="<font color='"&colight&"'>"&unhtml(rs("mobile"))&"</font>"
		end if
	
		if rs("nowdo")="" then
			ado="无"
		else
			ado="<font color='#D2691E'>"&unhtml(rs("nowdo"))&"</font>"
		end if
	
		if rs("home")="" then
			ahome="空缺"
		else
			ahome=unhtml(rs("home"))
		end if
	
		if rs("hometel")="" then
			ahometel="空缺"
		else
			ahometel=unhtml(rs("hometel"))
		end if


		dim avfj,avnow,avleft
		dim avstrfj
		avstrfj=""
		avnow=rs("myfj")
		if rs("power")>1 then
			avfj=DEF_fjx
		else
			avfj=DEF_fjeach
		end if
		avleft=avfj-avnow
		if avleft<0 then
			avleft=0
		end if
		
		if DEF_fjall<=0 OR avfj<=0 then
			avstrfj="上传被禁止"
		end if
%>

<%
'获取系统提示信息
IF u_power<1 OR u_power>1 THEN
dim systip
	if u_power=0 then
		systip="您当前的身份为：<font class='ft1'>待审</font>。班级管理员尚未通过你的身份认证，请耐心等待管理员的答复！</font>同时为了其他班级成员资料的保密，您目前还无权使用本站的大部分版面；在你的身份被审核通过后，你将获得正式成员的所有权限。<br>当前您能使用的权限为：<font class='ft1'>浏览[讨论区]</font>(不能发表)、<font class='ft1'>站内短消息</font>"
	elseif u_power<0 then
		systip="你因不良表现而被<font class='ft1'>封禁至"&u_fobdate&"</font>，在这期间你将失去在班级的发表权限，敬请认真反省你的行为，有任何疑义可与班级管理员联系！"
	else
		systip=""
	end if
%>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdkuang"><tr>
	<td width="100%" height="100%" style="padding:6px;">
		<b>系统提示信息:</b><% =systip %>
		<%
		IF u_power>1 THEN
		sqlstr="SELECT ID,name FROM tblmates WHERE power=0"
		set rs88=server.CreateObject("adodb.recordset")
		rs88.open sqlstr,conn,1,1
			IF NOT(rs88.eof AND rs88.bof) THEN
				Response.Write "<br><b><a href=txwait.asp>待审成员表→</a></b>"
				FOR i=1 to rs88.RecordCount  
			%>
					<a href="viewinfo.asp?id=<% =rs88("ID") %>" title="查看该同学详细资料"><% =rs88("name") %></a>&nbsp;
			<%  	rs88.MoveNext
				Next
			ELSE
				Response.Write "无"
			END IF
		rs88.close
		set rs88=Nothing
		END IF
		%>
	</td>
</tr></table>

<%
END IF
%>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdkuang"><tr>
<tr>
	<td width="150" height="100%" valign="top" class="rdr" style="padding:6px; background-color:<% =bg2 %>">
		<div align="center">
		<b>成员头像</b><br>
		<img src="<% =rs("faceurl") %>" border="0" width="<% =rs("facew") %>" height="<% =rs("faceh") %>">
		</div>
			<% =umark(rs("cnt_on"),rs("cnt_water")) %>
			<br>→发水量：<font color="<% =colight %>"><% =rs("cnt_water") %>吨</font>
			<br>→加入于：<% =FormatDateTime(rs("regdate"),2) %>
	</td>
	<td valign="top">
			<table width="100%" height="25" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
				<td width="150" height="100%" class="rdr">
					<img src="<% =icn_sex %>" border="0" align="absmiddle">
					<a href="viewinfo.asp?id=<% =rs("ID") %>" title="点击查看该同学详细资料"><% =rs("name") %></a>
				</td>
				<td width="120" height="100%" class="rdr">
					身份：<font class="ft1"><%
					IF DEF_sysadm<>rs("name") THEN
						if rs("power")=0 then
							response.Write "待审"
						elseif rs("power")>1 then
							response.Write "管理员"
						else
							response.Write "成员"
						end if
					ELSE
							response.Write "总管"
					END IF
					%></font>
				</td>
				<td>
					<% if rs("power")=0 then %>
					申请于：<% =rs("regdate") %>
					<% else %>
					加入于：<% =rs("regdate") %>
					<% end if %>
				</td>
			</tr></table>

			<table width="100%" height="25" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
			<td width="120" height="100%" class="rdr"><img src="img/icn_mob.gif" border="0" align="absmiddle">&nbsp;<% =amob %></td>
			<td width="120" height="100%" class="rdr"><img src="img/icn_qq.gif" border="0" align="absmiddle">&nbsp;<% =aqq %></td>
			<td><img src="img/icn_mail.gif" border="0" align="absmiddle">&nbsp;<a href="mailto:<% =rs("email") %>"><% =rs("email") %></a></td>
			</tr></table>

			<table width="100%" height="25" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
			<td width="200" height="100%" class="rdr"><img src="img/icn_msn.gif" border="0" align="absmiddle" alt="MSN">&nbsp;<% =rs("msn") %></td>
			<td><img src="img/icn_hp.gif" border="0" align="absmiddle" alt="博客或者个人主页">
			<%
			dim vblog
			IF isnull(rs("hp"))=False AND rs("hp")<>"" THEN
			vblog=trim(rs("hp"))
				if Left(vblog,5)<>"http:" then
					vblog="http://"&vblog
				end if
			%>
				<a href='<% =vblog %>' target="_blank"><% =unhtml(rs("hp")) %></a>
			<%
			END IF
			%>
			
			</td>
			</tr></table>

			<table width="100%" height="25" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
			<td width="150" height="100%" class="rdr"><img src="img/icn_birth.gif" border="0" align="absmiddle">&nbsp;<% =rs("birthday") %></td>
			<td>星座：<% =starbirth(rs("birthday")) %></td>
			</tr></table>

			<table width="100%" height="25" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
			<td width="350" height="100%" class="rdr">家庭住址：<% =ahome %></td>
			<td>电话：<% =ahometel %></td>
			</tr></table>

			<table width="100%" border="0" cellpadding="4" cellspacing="0" class="intbl" style="background-color:<% =bg2 %>;"><tr><td valign="top">
			当前单位／学校：<% =ado %>
			<br>联络方式：<br><% =UBB_Code(rs("contact")) %>
			</td></tr></table>

			<table width="100%" border="0" cellpadding="4" cellspacing="0" class="intbl" style="background-color:<% =bg2 %>;">
			<tr class="rdd">
			<th align="left" width="33%" height="25" valign="top" class="rdr">
			[个人附件空间统计]
			</th>
			<th height="25" valign="top" class="rdr">
			<%
			IF avstrfj="" THEN
					if (avnow/avfj)*100<1 then
					 	avooo="0"
						avpercent=1
					else
						avooo=""
						avpercent=INT((avnow/avfj)*100)
					end if
					
					if avpercent>100 then
						avpercent=100
					end if
					
					Response.Write "使用率："&avooo&FormatNumber(((avnow/avfj)*100),2)&"%"
			ELSE
			%>
				<font color="red"><% =avstrfj %></font>
			<%
			END IF
			%>
			</th>
			<th width="33%">
			<%
			if avstrfj="" then
			%>
<table width="100" height="16" border="1" cellpadding="0" cellspacing="0" style="background:#F2F2F2"><tr>
	<td width="<% =avpercent %>" height="100%" style="background:<% =cohover %>">
	</td>
	<td>
	</td>
</tr></table>
			<%
			else
				Response.Write "&nbsp;"
			end if
			%>
			</th>
			</tr>

			<tr>
			<td width="33%" height="25" class="rdr">您的上限：<% =avfj %>KB
			</td>
			<td class="rdr">已用：<% =avnow %>KB</td>
			<td width="33%">剩余：<% =avleft %>KB</td>
			</tr>
			</table>


			<table width="100%" height="25" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
			<td width="50%" height="100%" class="rdr">累积发水量：<% =rs("cnt_water") %></td>
			<td>登录次数：<% =rs("cnt_on") %></td>
			</tr></table>

			<table width="100%" height="25" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
			<td width="50%" height="100%" class="rdr">新近更新：<% =rs("moddate") %></td>
			<td>最近登录：<% =rs("lastlog") %></td>
			</tr></table>

			<table width="100%" height="35" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
			<td width="100%" height="100%" valign="top">
			<img src="img/signline.gif" border="0" hspace="0" vspace="0"><br>
			<%
			IF rs("signline")<>"" Then
				Response.Write UBB_Code(rs("signline"))
			ELSE
				Response.Write "暂无个人签名档!"
			END IF
			%>
			</td>
			</tr></table>


			<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" class="rdkuang" style="border-color:<% =bg2 %>; background-color:<% =bg1 %>"><tr>
			<td width="100%" height="100%" align="center">
				<a href='talk_seek_result.asp?username=<% =rs("name") %>' target="_blank">[浏览我发表的主题]</a>&nbsp;&nbsp;&nbsp;&nbsp;
				<a href='fjseek_result.asp?owner=<% =rs("name") %>' target="_blank">[浏览我上传的附件]</a>&nbsp;&nbsp;&nbsp;&nbsp;
				<a href='ph_seek_out.asp?owner=<% =rs("name") %>' target="_blank">[浏览我上传的照片]</a>
			</td>
			</tr></table>


	</td>
</tr>
</table>

<%
	END IF
rs.close
%>

<br>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>

</html>
⌨️ 快捷键说明

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