📄 profile.asp
字号:
<%Response.Expires=0%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp" -->
<!--#include file="char.asp"-->
<!--#include file="checkuser.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=SchoolmateName%>--查询个人资料</title>
<link rel="stylesheet" type="text/css" href="txl.css">
</head>
<body leftmargin="20" topmargin="20" bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333">
<%
dim username,sql,rs
call main()
set rs=nothing
call endconnection()
sub main()
dim tmpsql,tmprs,bisShowDetail
username=htmlencode(trim(request("name")))
if username="" then
ErrMsg=Errmsg+"<br>"+"<li>没有操作请求，你试图进行非法操作！"
call error(errmsg)
exit sub
end if
sql="select * from [student] where userid='"&UserName&"'"
set rs=conn.execute(sql)
if err.number<>0 then
ErrMsg=Errmsg+"<br>"+"<li>数据库操作失败："&err.description
founderr=true
elseif rs.eof then
ErrMsg=Errmsg+"<br>"+"<li>您查询的名字不存在"
founderr=true
end if
if founderr then
call error(errmsg)
exit sub
end if
if isSystemAdmin(0) then
bisShowDetail=true
else
tmpsql="select classid from [student] where userid='"&membername&"'"
set tmprs=conn.execute(tmpsql)
if not tmprs.eof and tmprs(0)=rs("classid") and request("action")="showdetail" then
bisShowDetail=true
end if
end if
set tmprs=nothing
if bisShowDetail=true then
call showdetail()
else
call showmain()
end if
end sub
sub showmain()
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% bgcolor=#777777 align=center>
<tr>
<td>
<table cellpadding=5 cellspacing=1 border=0 width=100% bgcolor=<%=tablebordercolor%>>
<tr bgcolor=<%=tabletitlecolor%>>
<td align=center height=22 colspan="2"><b><%=username%>的个人资料</b>(登陆同学录<font color=#cc0000><%=rs("visitcount")%></font>次)</td>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>性别：</strong></td>
<td width="70%" height="22"><%if rs("sex")=true then
response.write("靓妹")
else
response.write("酷哥")
end if
%></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>目前积分：</strong></td>
<td width="70%" height="22"><%=rs("point")%></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>E_Mail：</strong></td>
<td width="70%" height="22">
<%if rs("isemailshow")=true then
response.write "<a href=mailto:"&htmlencode(rs("email"))&">"&htmlencode(rs("email"))&"</a>"
else
response.write "保密"
end if%>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>OICQ：</strong></td>
<td width="70%" height="22">
<%if rs("isoicqshow")=false then
response.write "保密"
elseif not (rs("oicq")="" or isnull(rs("oicq"))) then
response.write htmlencode(rs("oicq"))
end if%>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>主 页：</strong></td>
<td width="70%" height="22">
<%if rs("ishomepageshow")=false then
response.write "保密"
elseif not (rs("homepage")="" or rs("homepage")="http://" or isnull(rs("homepage"))) then
response.write "<a href="&htmlencode(rs("homepage"))&" target=_blank>"&htmlencode(rs("homepage"))&"</a>"
end if%>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>MSN：</strong></td>
<td width="70%" height="22">
<%if rs("ismsnshow")=false then
response.write "保密"
elseif not (rs("msn")="" or isnull(rs("msn"))) then
response.write htmlencode(rs("msn"))
end if%>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>人生格言：</strong></td>
<td width="70%" height="22">
<%if rs("maxim")<>"" then%>
<%=ubbcode(rs("maxim"))%>
<%end if%>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>所在班级：</strong></font></td>
<td width="70%" height="22"><%=classname(rs("classid"))%></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="30%" align="right" height="22"><strong>最后登陆时间：</strong></font></td>
<td width="70%" height="22"><%=rs("lastlogin")%></td>
</tr>
<tr bgcolor=<%=tabletitlecolor%>>
<td align=center height=22 colspan="2"> <b><a href="usersms.asp?action=new&touser=<%=username%>">给他留言</a> |<a href=friendlist.asp?action=addF&myFriend=<%=username%>> 加为好友</a></b></td>
</tr>
</table>
</td></tr></table>
<%
end sub
sub showdetail()
%>
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=TableBorderColor%> align=center>
<tr>
<td>
<table cellpadding=4 cellspacing=1 border=0 width=100%>
<tr>
<td width="100%" colspan="5" bgcolor=<%=TabletitleColor%>>
<p align="center"><font color="<%=TableFontColor%>"><b><%=getrealname(username)%>的详细个人资料</b></font></td>
</tr>
<tr>
<td width="48%" colspan="2" bgcolor=<%=TablebodyColor2%>>
<p align="center"><font color="<%=TableContentColor%>"><b>基本资料</b></font></td>
<td width="4%" rowspan="15" bgcolor=<%=TablebodyColor2%>> </td>
<td width="48%" colspan="2" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>">
<p align="center"><b>联系方法</b></font></td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>用户名：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=username%></font></td>
<td width="12%" nowrap align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>Email：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>">
<a href="mailto:<%=htmlencode(rs("email"))%>"><%=htmlencode(rs("email"))%></a>
</font>
</td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><b>性别：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>">
<%if rs("sex")=true then
response.write("靓妹")
else
response.write("酷哥")
end if
%></font>
</td>
<td width="12%" align="right" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><b>QQ：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>">
<%if rs("oicq")<>"" and not isnull(rs("oicq")) then%>
<%=htmlencode(rs("oicq"))%>
<%end if%></font>
</td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>生日：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=rs("bir_year")&"年"&rs("bir_month")&"月"&rs("bir_day")&"日"%> </font></td>
<td width="12%" align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>MSN：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=htmlencode(rs("msn"))%></font></td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><b>星座：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%response.write constellation(rs("bir_month"),rs("bir_day"))%></font></td>
<td width="12%" align="right" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><b>电话：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=htmlencode(rs("telephone"))%></font> </td>
</tr>
<tr>
<td width="16%" nowrap align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>个人主页：</b></font></td>
<td width="32%" nowrap bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>">
<%if trim(rs("homepage"))<>"" then%>
<a href="<%=htmlencode(rs("homepage"))%>"
target="_blank"><%=htmlencode(rs("homepage"))%></a>
<%end if%></font>
</td>
<td width="12%" align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>邮编：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=htmlencode(rs("zipcode"))%></font> </td>
</tr>
<tr>
<td width="48%" colspan="2" bgcolor=<%=TablebodyColor2%>>
<p align="center"><font color="<%=TableContentColor%>"><b>活动情况</b></font></td>
<td width="12%" align="right" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><b>通讯地址：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>">
<%=htmlencode(rs("address"))%></a>
</font>
</td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>目前积分：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=rs("point")%></font></td>
<td width="12%" nowrap align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>工作单位：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>">
<%=htmlencode(rs("workshop"))%></a>
</font>
</td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><b>所在班级：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=classname(rs("classid"))%> </font></td>
<td width="48%" colspan="2" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>">
<p align="center"><b>个人说明</b></font></td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>身份：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%if rs("isadmin")=1 then
response.write "班级管理员"
elseif rs("classid")<>0 and rs("status")=false then
response.write "班级成员"
elseif rs("classid")<>0 and rs("status")=true then
response.write "未通过审核"
else
response.write "同学录游民"
end if%></font></td>
<td width="16%" rowspan="4" valign="top" bgcolor=<%=TablebodyColor2%>><table width=100% height=100%><tr><td nowrap><font color="<%=TableContentColor%>">
<p align="center"></font><B>肖像：</B></td></tr><tr><td align=center><BR></font>
<%if rs("image")<>"" and not isnull(rs("image")) then%>
<img src="<%=rs("image")%>">
<%end if%>
</td></tr></table></td>
<td width="32%" rowspan="4" valign="top" bgcolor=<%=TablebodyColor2%>><table width="100%" height="100%" border=0><tr><td><font color="<%=TableContentColor%>">
<b>人生格言：</b></td></tr><tr><td align=right valign=bottom>
<%if rs("maxim")<>"" then%>
<%=ubbcode(rs("maxim"))%>
<%end if%> </font></td></tr></table></td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><b>登陆次数：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=AlertFontColor%>"><%=rs("visitcount")%></font>次</td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor1%>><font color="<%=TableContentColor%>"><b>注册时间：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=rs("regdate")%></font></td>
</tr>
<tr>
<td width="16%" align="right" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><b>最后登陆：</b></font></td>
<td width="32%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><%=rs("lastlogin")%></font></td>
</tr>
<tr>
<td width="100%" colspan="5" bgcolor=<%=TabletitleColor%>><font color="<%=TableFontColor%>">
<p align="center"><b><a href="usersms.asp?action=new&touser=<%=username%>"><font color="<%=TableFontColor%>">给他留言</font></a> | <a href=friendlist.asp?action=addF&myFriend=<%=username%> target=_blank><font color="<%=TableFontColor%>">加为好友</font></a></b></font></td>
</tr>
</table>
</td></tr></table>
<%
end sub
function classname(byval classid)
set tmprs=conn.execute("Select classname from [class] where classid="&classid)
if not tmprs.eof then
classname=tmprs(0)
else
classname="没有加入"
end if
set tmprs=nothing
end function
%>
<!--#include file=footer.asp-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -