📄 user.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="mdb_path_user.asp"-->
<%
user=request("user")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from UserInfo where user='"&request("user")&"'",conn,1,2
if not rs.eof then
email=rs("email")
oicq=rs("oicq")
homepage=rs("homepage")
sex=rs("sex")
face=rs("face")
qm=rs("qm")
dj=rs("dj")
softurl=rs("softurl")
regdate=rs("regdate")
v_pstatus=rs("v_pstatus")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title><%=webname%> - 会员<%=user%>的个人资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../style.css" rel=stylesheet>
</head>
<body><center>
<table bordercolorlight='#DBD3BD' border=1 cellspacing="0" width="580" bordercolordark='#FFFFFF'>
<tr>
<td width="100%" colspan="2" bgcolor="#3FAEE4" height="24"> <font color="#FF0000"><b><%=user%></font><font color="#FFFFFF">的个人资料</b></font></td>
</tr>
<tr>
<td width="100" height="22"> 用户名：</td><td width="85%"> <%=user%></td>
</tr>
<tr>
<td width="100" height="22"> 身份：</td><td> <font color="#008080"><%
if dj="2" then response.write "高级会员"
if dj="3" then response.write "站长"
if dj="0" then response.write "普通会员"
%></font></td>
</tr> <tr>
<td width="100" height="22"> 性名：</td><td> <%=face%></td>
</tr>
<tr>
<td width="100" height="22"> 性别：</td><td> <%=sex%></td>
</tr> <tr>
<td width="100" height="22"> 身份证：</td><td> <%=softurl%></td>
</tr> <tr>
<td width="100" height="22"> 电话：</td><td> <%=homepage%></td>
</tr>
<tr>
<td width="100" height="22"> OICQ：</td><td> <%=oicq%></td>
</tr>
<tr>
<td width="100" height="22"> E-Mail：</td><td> <a href="mailto:<%=email%>"><%=email%></a></td>
</tr><tr>
<td width="100" height="22"> 注册时间：</td><td> <%=regdate%></td>
</tr>
<tr>
<td width="100" height="30"> 地址：</td><td> <%=qm%></td>
</tr>
</table></center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -