📄 viewinfo.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 %>
<%
'判断用户权限
IF u_power=0 THEN
Response.Redirect "resp.asp?cmd=id_wait"
END IF
%>
<!--获取附件限制-->
<!--#include file="in_sys_share.asp"-->
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="100%" height="100%">
<a href="index.asp">[首页]</a>-<a href="txbook.asp">[通 讯 簿]</a>-<font class="ft1">[查看成员资料]</font>
</td>
</tr></table>
<%
'获取id传值
dim vid
dim aqq,amob,ado,ahome,ahometel
IF isNumeric(Request.QueryString("id")) THEN
vid=CLng(Request.QueryString("id"))
'找出该成员
sqlstr="SELECT * FROM tblmates WHERE ID="&vid
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
%>
<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"> <% =amob %></td>
<td width="120" height="100%" class="rdr"><img src="img/icn_qq.gif" border="0" align="absmiddle"> <% =aqq %></td>
<td><img src="img/icn_mail.gif" border="0" align="absmiddle"> <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"> <% =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"> <% =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 width="100%" 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 " "
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="40%" height="100%" class="rdr">新近更新：<% =rs("moddate") %></td>
<td width="40%">最近登录：<% =rs("lastlog") %></td>
<td><img src="img/icn_sms.gif" border="0" align="absmiddle"><a href="msgwr.asp?id=<% =rs("ID") %>" title="给<% =rs("name") %>发送站内短消息！">[发消息]</a></td>
</tr></table>
<table width="100%" height="25" border="0" cellpadding="6" cellspacing="0" class="rdd"><tr>
<td width="40%" height="100%" class="rdr">
权限状态：<%
SELECT CASE rs("power")
Case 1
Response.Write "普通成员"
Case 0
Response.Write "身份待审"
Case -1
Response.Write "已被封禁至"&rs("fobdate")
Case 2
if DEF_sysadm<>rs("name") then
Response.Write "班级管理员"
else
Response.Write "班级总管"
end if
END SELECT
%>
</td>
<td>
<%
vmboncnt=conn.Execute("SELECT COUNT(o_ID) FROM tblonline WHERE o_ID="&vid,0,1)(0)
if vmboncnt=1 then
mbact=conn.Execute("SELECT o_laston FROM tblonline WHERE o_ID="&vid,0,1)(0)
%>
<font class="ft1">在线活动：<% =mbact %></font>
<% end if %>
</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>
<a href='fjseek_result.asp?owner=<% =rs("name") %>' target="_blank">[浏览其上传附件]</a>
<a href='ph_seek_out.asp?owner=<% =rs("name") %>' target="_blank">[浏览其上传的照片]</a>
</td>
</tr></table>
<% IF u_power>1 THEN %>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" class="rdkuang"><tr>
<td width="100%" height="100%" align="center">
<% if rs("power")=0 then %>
<a href="mb_pass.asp?id=<% =rs("ID") %>" class="ccjh">[批准加入]</a>
<% elseif rs("power")=1 then %>
<a href="mb_fob.asp?id=<% =rs("ID") %>" class="ccjh">[封 禁]</a>
<% elseif rs("power")=-1 then %>
<a href="mb_free.asp?id=<% =rs("ID") %>" class="ccjh">[提前解封]</a>
<% end if %>
<% if u_name=DEF_sysadm then %>
<a href="mb_setpwd.asp?id=<% =rs("ID") %>" title="当该成员忘记密码时，为其还原一个临时密码。" class="ccqkl">[还原密码]</a>
<a href="mb_fire.asp?id=<% =rs("ID") %>" class="ccqkl">[除 名]</a>
<% if rs("power")=1 then %>
<a href="mb_2adm.asp?id=<% =rs("ID") %>&cmd=up" class="ccqkl">[任命为管理员]</a>
<% elseif rs("power")=2 then %>
<a href="mb_2adm.asp?id=<% =rs("ID") %>&cmd=down" class="ccqkl">[解除职务]</a>
<% end if %>
<% end if %>
</td>
</tr></table>
<% END IF %>
</td>
</tr>
</table>
<% end if
rs.close
ELSE
Response.Redirect "resp.asp"
END IF
%>
<br>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -