📄 viewinfo.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!-- #include file="conn_member.asp" -->
<!-- #include file="inc_session.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>帐户管理 - 查看个人资料</title>
<link rel="stylesheet" type="text/css" href="../main.css">
</head>
<body bgcolor="#FFFFFF">
<SCRIPT language=JavaScript>
function openwq(htmlurl)
{
var newwin=window.open(htmlurl,"webqq","toolbar=yes,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=300,height=360");
newwin.focus();
return false;
}
</SCRIPT>
<SCRIPT language=JavaScript src="../include/header.inc" type=text/javascript></SCRIPT>
<!-- #include file="inc_forumheader.asp" -->
<%
dim uid
uid=Request("UID")
if uid="" then
Response.Write "<h3>请指定用户名！</h3>"
Response.Write "<p><a href='#' onclick='vbscript:history.back()' >back</a></p>"
Response.End
end if
Dim Rs
set Rs=Server.CreateObject ("ADODB.Recordset")
Rs.Open "SELECT * FROM tmember WHERE uid='" & uid & "'",connm,1 ,1
if Rs.BOF and Rs.EOF then
Response.Write "<h3>没有用户" & uid & "的资料！</h3>"
Response.Write "<p><a href='#' onclick='vbscript:history.back()' >back</a></p>"
else
%>
<div align="center">
<center>
<p align="center"><b>用户 <%=uid%> 的资料</b></p>
<p></p>
<table border="0" width="760" cellspacing="0">
<tr>
<td width="16%" valign="top" bgcolor="#EFEFEF">
<!-- left block -->
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="60%" bgcolor="#DDDDDD"><B>
<%
if rs("lock")=1 then
Response.Write "<img src='images/lock.gif' alt='该用户已经被封锁' border='0'>"
end if
Response.Write uid
%>
</B></td>
<td width="40%" bgcolor="#DDDDDD">
<% if rs("sex")=1 then
Response.Write "<img border='0' src='images/s_boy.gif'>"
else
Response.Write "<img border='0' src='images/s_girl.gif'>"
end if
%>
</td>
</tr>
<tr>
<td width="100%" colspan="2">
<%
if rs("userPortrait")<>"" then
response.write "<img id=face src='" & rs("userPortrait") & "'>"
else
if rs("portrait")<>"" then
Response.write "<img id=face src='images/portrait/" & rs("portrait") & "'>"
else
Response.Write " "
Response.Write "<TABLE height='100' cellSpacing=1 width='100' border=0 bgcolor='#DDDDDD'>"
Response.Write "<TR><TD bgcolor='#EFEFEF' align='center'>未设定图片。</TD></TR></TABLE>"
Response.Write " "
end if
end if
%>
</td>
</tr>
<tr>
<td width="100%" colspan="2">
积分：<%=rs("score")%><br>
等级：<img border="0" src="images/level/level<%=rs("level")%>.gif" width="55" height="12">
</td>
</tr>
</table>
<!-- left block -->
</td>
<td width="84%">
<table border="0" width="100%" cellspacing="1" bgcolor="#687088">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<!-- Form Start -->
<table border="0" width="100%" cellspacing="1" ID="Table1">
<tr>
<td width="32%" bgcolor="#EFEFEF" align="right" height="23"></td>
<td width="68%" bgcolor="#EFEFEF" height="23"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">Email：</td>
<td width="68%" height="25"><%=rs("email")%></td>
</tr>
<tr>
<td width="32%" align="right" height="25">个人主页：</td>
<td width="68%" height="25"><%=rs("homepage")%></td>
</tr>
<tr>
<td width="32%" align="right" height="25">OICQ：</td>
<td width="68%" height="25"><%=rs("qq")%></td>
</tr>
<tr>
<td width="32%" align="right" height="25">MSN：</td>
<td width="68%" height="25"><%=rs("msn")%></td>
</tr>
<tr>
<td width="32%" align="right" bgcolor="#EFEFEF" height="25">真实姓名：</td>
<td width="68%" bgcolor="#EFEFEF" height="25"><%=rs("realname")%></td>
</tr>
<tr>
<td width="32%" align="right" height="25">生日：
</td>
<td width="68%" height="25"><%=mid(rs("birthday"),6)%></td>
</tr>
<tr>
<td width="32%" align="right" height="25">职业：</td>
<td width="68%" height="25"><%=rs("Career")%></td>
</tr>
<tr>
<td width="32%" align="right" height="25">来自：</td>
<td width="68%" height="25"><%=rs("comefrom")%></td>
</tr>
<tr>
<td width="32%" align="right" bgcolor="#EFEFEF" height="40" valign="top">简介：</td>
<td width="68%" bgcolor="#EFEFEF" height="40" valign="top"><%=rs("intro")%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="16%" valign="top" height="30"></td>
<td width="84%" height="30">
<p align="center"><a href="#" Onclick="history.back()">返回</a> |
<%
if uid=GetSession then
response.write "<a href='reg_modify.asp'>修改资料</a>"
else
response.Write "<a href='mes_login.asp?receiver=" & uid & "' onClick='return openwq(this.href);' target='_blank'>"
response.write "<img src='images/mes.gif' border='0'> "
response.write "发送信息</a>"
end if
%>
</td>
</tr>
</table>
</center>
</div>
<%
end if
Rs.Close
set Rs=nothing
call closeconnm()
%>
<SCRIPT language=JavaScript src="../include/buttom.inc" type=text/javascript></SCRIPT>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -