📄 userinfo.asp
字号:
<%
'****************************************************
' 多多校园 Power by ddtaobao.com
' Email:ddmaster@126.com OICQ:136465584
' Web: http://www.ddtaobao.com 作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看会员资料</title>
</head>
<body>
<div align="center">
<TABLE width="778" class=page border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD>
<!--#include file="top.asp"--><!--#include file="Inc/UserChk.asp"-->
<%
'****************************************************
' 多多校园 Power by ddtaobao.com
' Email:ddmaster@126.com OICQ:136465584
' Web: http://www.ddtaobao.com 作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
Dim Sql,Rs,user_id
user_id=SafeRequest(Request.QueryString("user_id"))
set rs=server.createobject("adodb.recordset")
sql="select * from dd_user where user_id="&request("user_id")&""
rs.open sql,conn,1,1
'判断
Function sex1(str)
IF str="0" Then
sex1="<img src=images/male.gif width=23 height=21 border=0 alt=我是帅哥，快来找我>"
ElseIF str="1" Then
sex1="<img src=images/female.gif width=23 height=21 border=0 alt=我是美女，快来找我>"
End IF
End Function
%>
<div align="center">
<TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
<tr>
<td align="center" width="17%" class="tablebody1" rowspan="5"><img src="<%=rs("userface")%>"></td>
<td align="left" width="17%" class="tablebody1">
<font class="font">
会员帐号:</font></td>
<td width="166" class="tablebody1"><%=rs("user_name")%></td>
</tr>
<tr>
<td align="left" width="17%" class="tablebody1">
<font class="font">
会员性别:</font></td>
<td width="166" class="tablebody1"><%=sex1(rs("user_sex"))%></td>
</tr>
<tr>
<td align="left" width="17%" class="tablebody1">
<font class="font">
电子信箱:</font></td>
<td class="tablebody1" width="166"><%=rs("user_email")%></td>
</tr>
<tr>
<td align="left" width="17%" class="tablebody1">
<font class="font">联系OICQ:</font></td>
<td width="166" class="tablebody1"><%=rs("user_qq")%></td>
</tr>
<tr>
<td align="left" width="17%" class="tablebody1">
<font class="font">
真实姓名:</font></td>
<td width="166" class="tablebody1"><%=rs("user_realname")%></td>
</tr>
<tr>
<td align="center" width="17%" class="tablebody1" rowspan="4"><a target="_blank" title="给我发消息" href="L_user.asp?pname=<%=rs("user_name")%>">
<img border="0" src="images/mail.gif" width="45" height="18"></a></td>
<td align="left" width="17%" class="tablebody1">
<font class="font">
注册时间:</font></td>
<td width="166" class="tablebody1"><%=rs("user_date")%></td>
</tr>
<tr>
<td align="left" width="17%" class="tablebody1">
<font class="font">个人主页:</font></td>
<td width="166" class="tablebody1"><%=rs("user_home")%></td>
</tr>
<tr>
<td align="left" width="17%" class="tablebody1">
<font class="font">个人签名:</font></td>
<td width="166" class="tablebody1"><%=rs("sign")%></td>
</tr>
</table>
</div>
</div>
<!--#include file="bottom.asp"--> </TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>
<%
conn.Close
Set conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -