📄 datum.asp
字号:
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="head.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename%>-查看校友资料</title>
<LINK href="css.css" type=text/css rel=stylesheet>
</head>
<body>
<%sitehead%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="20" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="25"> <img src="skins/1/xb3.gif"> 当前位置:<a href="index.asp">首页</a> >> 查看校友资料</td>
</tr>
</table>
<br>
<%userid=clng(request("userid"))
if userid="" or userid<1 then ShowError("访问的用户不存在")
rs.open "select * from [user] where id="&userid&"",conn,1,1
If Rs.eof and Rs.bof Then
Response.Write("用户不存在")
else%>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="2" class="border">
<tr bgcolor="#F7F7F7">
<td height="20" colspan="2">[基本信息] </td>
</tr>
<tr>
<td width="62%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20">用户 ID：<%=rs("id")%> [<a href="mail.asp?type2=add&toid=<%=rs("id")%>">发邮件给他</a>]</td>
</tr>
<tr>
<td height="20">用户帐号：<%=rs("username")%></td>
</tr>
<tr>
<td height="20">用户性别：<%=rs("sex")%></td>
</tr>
<tr>
<td height="20">真实姓名：<%=rs("realname")%></td>
</tr>
<tr>
<td height="20">生 肖：<%=rs("shengxiao")%></td>
</tr>
<tr>
<td height="20">生 日：<%=rs("birthday")%></td>
</tr>
<tr>
<td height="20">人生格言：<%=rs("sign")%></td>
</tr>
<tr>
<td height="20">血 型：<%=rs("blood")%></td>
</tr>
<tr>
<td height="20">目前工作：<%=rs("job")%></td>
</tr>
<tr>
<td height="20">个人主页：<%=rs("homepage")%></td>
</tr>
</table></td>
<td width="38%"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="20" bgcolor="#F7F7F7"><div align="center">站内头像</div></td>
</tr>
<tr>
<td height="140"><div align="center"><%=obj.exportface(rs("face"),rs("width"),rs("height"),siteskins)%></div></td>
</tr>
</table></td>
</tr>
</table>
<br>
<%Set rs2 = Server.CreateObject("Adodb.Recordset")
select case rs("zlopen")
case 0
call show
case 3
response.write ""
case 2
if session("xyluser")="" Then
response.write ""
else
call show
end if
case 1
if rs("bjid")="" then
call show
else
if session("xyluserid")<>"" Then
rs2.open "select bjid from [user] where id="&session("xyluserid")&"",conn,1,1
if rs2("bjid")<>"" then
if obj.isbj(rs("bjid"),rs2("bjid"))=1 then call show
end if
rs2.close
end if
end if
end select
sub show%>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="2" class="border">
<tr bgcolor="#F7F7F7">
<td height="20" colspan="2">[联系方式] </td>
</tr>
<tr>
<td width="59%" height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td height="20"> Q Q ：<%=rs("qq")%></td>
</tr>
<tr valign="top">
<td height="20"> M S N ：<%=rs("msn")%></td>
</tr>
<tr valign="top">
<td height="20">电子邮件：<%=rs("email")%></td>
</tr>
<tr valign="top">
<td height="20">家庭电话：<%=rs("homephone")%></td>
</tr>
<tr valign="top">
<td height="20">家庭地址：<%=rs("homeaddr")%></td>
</tr>
<tr valign="top">
<td height="20">家庭编码：<%=rs("homezip")%></td>
</tr>
<tr valign="top">
<td height="20">目前电话：<%=rs("newphone")%></td>
</tr>
<tr valign="top">
<td height="20">目前地址：<%=rs("newaddr")%></td>
</tr>
<tr valign="top">
<td height="20">目前邮编：<%=rs("newzip")%></td>
</tr>
</table></td>
<td width="41%"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="20" bgcolor="#F7F7F7"><div align="center">个人照片</div></td>
</tr>
<tr>
<td height="140"><div align="center"><img src="<%=rs("userphoto")%>" class="picborder" onload="javascript:if(this.width>350) this.width=350"></div></td>
</tr>
</table></td>
</tr>
</table>
<br>
<%end sub%>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="2" class="border">
<tr bgcolor="#F7F7F7">
<td height="20" colspan="2">[站内信息] </td>
</tr>
<tr valign="top">
<td height="20" colspan="2">所在班级：<%if isnull(rs("bjid")) then
response.write "没有加入班级"
else
bjid=Split(rs("bjid"),",")
upnun=ubound(bjid)
for StartID=0 to upnun
rs2.open "select bjname from [bj] where id="&bjid(StartID)&"",conn,1,1
if not rs2.eof then
response.write "<a href='bjindex.asp?bid="&bjid(StartID)&"'>"&rs2(0)&"</a> "
end if
rs2.close
next
end if
%></td>
</tr>
<tr valign="top">
<td height="20" colspan="2">站内职位：<%if rs("sitejob")=3 then response.write "网站管理员" else response.write rs("bbsjob") end if%></td>
</tr>
<tr valign="top">
<td height="20" colspan="2">发帖数目：<%=rs("bbscount")%></td>
</tr>
<tr valign="top">
<td height="20" colspan="2">站内积分：<%=rs("sitemoney")%></td>
</tr>
<tr valign="top">
<td height="20" colspan="2">登录次数：<%=rs("logins")%></td>
</tr>
<tr valign="top">
<td height="20" colspan="2">注册时间：<%=rs("joindate")%></td>
</tr>
<tr valign="top">
<td height="20" colspan="2">最后登录：<%=rs("lastdate")%></td>
</tr>
<tr valign="top">
<td height="20" colspan="2">帐号状态：<%if rs("isclose")=1 then response.write "禁止登录" else response.write "正常使用" end if%></td>
</tr>
<tr valign="top">
<td width="10%" height="20">自我介绍：</td>
<td width="90%"><%=rs("zwzs")%></td>
</tr>
</table>
<br>
<%end if
rs.close
set rs=nothing%>
</td>
</tr>
</table>
<%sitebottom%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -