www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/myziliao.asp
<!--#include file="conn.asp"-->
<!--#include file="gyhs.asp"-->
<head>
<title><%=request.cookies("mc")%></title>
<meta name="keywords" content="<%=request.cookies("gjz")%>">
</head>
<body topmargin=0>
<!--#include file="gyym.asp"-->
<%
'判断登陆
if dlhs=true then
%>
<script language=vbscript>
<!--
window.alert"对不起！你还没有登陆"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%end if%>
<table class="a2" cellSpacing="1" cellPadding="4" width="97%" align="center" border="0">
<tr class="a3">
<td height="25"> <img src="imgs/Forum_nav.gif" width="9" height="9"> <a href="index.asp?ltbh=<%=ltbh%>"><%=request.cookies("mc")%></a> >> 我的资料
</td>
</tr>
</table>
<br>
<%
ltuser=request("ltuser")
sql="select * from zwuser where cnuser='"<user&"'"
set rs=conn.execute(sql)
%>
<table cellSpacing="0" cellPadding="5" width="97%" align="center" border="0">
<tr>
<td>
<img src="<%=rs("cntop")%>"> <b><%=ltuser%></b></td>
<td vAlign="bottom" align="right"><b>:::相关操作:::</b> ｛
<img src="imgs/find.gif" width="45" height="18">
<a href="mytz.asp?ltbh=<%=ltbh%><user=<%=ltuser%>">个人帖子</a>
<img src="imgs/pm.gif" width="48" height="18">
<a onclick="javascript:open('writedx.asp?ltbh=<%=ltbh%><user=<%=ltuser%>','','width=320,height=300')" href="#">
发送讯息</a> ｝ </td>
</tr>
</table>
<SCRIPT>valigntop()</SCRIPT>
<table cellSpacing="0" cellPadding="0" width="97%" align="center" border="0" height="40%">
<tr>
<td class="a2" height="100%">
<table cellSpacing="1" cellPadding="6" width="100%" border="0" height="320">
<tr class="a1" bgColor="#ffffff">
<td vAlign="center" align="left" colSpan="2" height="25"><b>
:::论坛信息:::</b></td>
</tr>
<tr>
<td class="a3" vAlign="center" align="left" width="51%" height="5">
<b> 昵 称：</b><%=ltuser%></td>
<td class="a3" vAlign="center" align="left" width="46%" height="5">
<b> 发表原贴：</b><%=rs("fabtzzs")%></td>
</tr>
<tr>
<td class="a4" vAlign="center" align="left" width="51%" height="28"><b>
论坛身份：</b><%
ltbh1=rs("ltbh")
if isnull(ltbh1) then
response.write"普通用户"
else
response.write"管理员"
end if
%></td>
<td class="a4" vAlign="center" align="left" width="46%" height="28"><b>
发表回贴：</b><%=rs("htzzs")%></td>
</tr>
<tr class="a3">
<td align="left" width="51%" height="28"><b> 注册日期：</b><%=rs("zcsj")%></td>
<td align="left" width="46%" height="28"> </td>
</tr>
<tr class="a1" bgColor="#ffffff">
<td vAlign="center" align="left" colSpan="2" height="28"><b>
:::生活信息:::</b></td>
</tr>
<tr>
<td class="a3" vAlign="center" align="left" width="97%" height="5" colspan="2">
<b> 真实姓名：</b><%=rs("zsxm")%></td>
</tr>
<tr>
<td class="a4" vAlign="center" align="left" width="97%" height="28" colspan="2"><b>
性 别：</b><%=rs("xb")%></td>
</tr>
<tr>
<td class="a3" vAlign="center" align="left" width="97%" height="5" colspan="2">
<b> 用户生日：</b><%=rs("cnsr")%></td>
</tr>
<tr>
<td class="a4" vAlign="center" align="left" width="97%" height="28" colspan="2"><b>
联系地址：</b><%=rs("cndz")%></td>
</tr>
<tr class="a1" bgColor="#ffffff">
<td vAlign="center" align="left" colSpan="2" height="28"><b>
:::联系方法:::</b></td>
</tr>
<tr>
<td class="a3" vAlign="center" align="left" width="97%" height="5" colspan="2">
<b> 联系邮件：</b><a href="mailto:<%=rs("cnemail")%>"><%=rs("cnemail")%></td>
</tr>
<tr>
<td class="a4" vAlign="center" align="left" width="97%" height="28" colspan="2"><b>
OICQ：</b><%=rs("cnqq")%></td>
</tr>
<tr class="a1" bgColor="#ffffff">
<td vAlign="center" align="left" colSpan="2" height="28"><b>
:::其他:::</b></td>
</tr>
<tr>
<td class="a4" vAlign="center" align="left" width="97%" height="28" colspan="2"><b>
个人相片：</b></td>
</tr>
<tr>
<td class="a3" vAlign="center" align="left" width="97%" height="5" colspan="2">
<b>
</b><img src="<%=rs("cntop")%>"></td>
</tr>
<tr>
<td class="a4" vAlign="center" align="left" width="97%" height="28" colspan="2"><b>
个人签名：</b></td>
</tr>
<tr>
<td class="a3" vAlign="center" align="left" width="97%" height="5" colspan="2">
<b>
</b><%=rs("cnqm")%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<center>
<input onclick="history.back(-1)" type="button" value=" << 返 回 "> <br>
</p>
<%
rs.close
set rs=nothing
%><%
call bq
dbjl.close
set dbjl=nothing
%><%dbclose%>