📄 user_info.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="check.asp" -->
<!--#include file="char.asp" -->
<!--#include file="opendb.asp" -->
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from users where userid="&Request("userid"),conn,1,3 %>
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<div align="center"> <br>
<table width="91%" border="0">
<tr>
<td align="center" bgcolor="#0065CA" class="px14"><font color="#FFFFFF">用户信息</font></td>
</tr>
<tr>
<td align="center"><table width="760" border="1" align="center" cellspacing="0" bordercolorlight="#666666" bordercolordark="#FFFFFF">
<tr>
<td width="30%" align="right" bgcolor="#BBDDFF">用户名</td>
<td width="70%" bgcolor="#f0f0f0"><%= rs("nickname") %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">真实姓名</td>
<td bgcolor="#f0f0f0"> <%= rs("truename") %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">性别</td>
<td bgcolor="#f0f0f0"> <%If abs(rs("sex"))=1 then%>
先生
<% Else %>
小姐/女士
<% End If %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">生日</td>
<td bgcolor="#f0f0f0"><%= rs("birthday") %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">婚姻状况</td>
<td bgcolor="#f0f0f0"> <%If abs(rs("marriage"))=1 then%>
已婚
<% Else %>
未婚
<% End If %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">身份证号码</td>
<td bgcolor="#f0f0f0"> <%= rs("idcard") %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">工作行业</td>
<td bgcolor="#f0f0f0"> <%if rs("job")<>"" then%> <%sql1="select * from job where jid="&rs("job")
set rs1=Server.Createobject("ADODB.Recordset")
rs1.open sql1,conn,1,3%> <%= rs1("job")%> <% end if %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">学历</td>
<td bgcolor="#f0f0f0"> <%if rs("education")<>"" then%> <%sql1="select * from education where eid="&rs("education")
set rs1=Server.Createobject("ADODB.Recordset")
rs1.open sql1,conn,1,3%> <%= rs1("education")%> <% end if %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">电子邮箱</td>
<td bgcolor="#f0f0f0"><%= rs("email") %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">即时网络通信</td>
<td bgcolor="#f0f0f0"> <%if rs("net_msg_name")<>"" then%> <%sql1="select * from net_msg_name where nid="&rs("net_msg_name")
set rs1=Server.Createobject("ADODB.Recordset")
rs1.open sql1,conn,1,3%> <%= rs1("net_msg_name")%> <% end if %>
： <font face="宋体"><%= rs("net_msg_no") %></font> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">网址</td>
<td bgcolor="#f0f0f0"> <font face="宋体"><%= rs("url") %> </font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">电话</td>
<td bgcolor="#f0f0f0"> <font face="宋体"> <%= rs("tel") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">传真</td>
<td bgcolor="#f0f0f0"> <font face="宋体"> <%= rs("fax") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">手机</td>
<td bgcolor="#f0f0f0"> <font face="宋体"> <%= rs("mobile") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">所在省/市</td>
<td bgcolor="#f0f0f0"><font face="宋体"> <%= rs("area") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">通信地址</td>
<td bgcolor="#f0f0f0"> <font face="宋体"> <%= rs("address") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">邮政编码</td>
<td bgcolor="#f0f0f0"> <font face="宋体"> <%= rs("zipcode") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">经验值</td>
<td bgcolor="#f0f0f0"><font face="宋体"><%= rs("fenshu") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">发帖数</td>
<td bgcolor="#f0f0f0"><font face="宋体"><%= rs("fatie") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">最近一次登录时间</td>
<td bgcolor="#f0f0f0"><font face="宋体"><%= rs("lasttime") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">最近一次登录IP</td>
<td bgcolor="#f0f0f0"><font face="宋体"><%= rs("lastip") %></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">得知Cenda途径</td>
<td bgcolor="#f0f0f0"> <% select case rs("hear_from")
case 1
Response.Write("促销活动")
case 2
Response.Write("搜索引擎")
case 3
Response.Write("媒体广告")
case 4
Response.Write("朋友介绍")
case 5
Response.Write("其他")
end select %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">是否愿意接受网站邮件</td>
<td bgcolor="#f0f0f0"> <% If rs("email_flag")=true Then %>
愿意
<% Else %>
不愿意
<% End If %> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">您希望接受以下哪几种信息</td>
<td bgcolor="#f0f0f0"> <% select case rs("msg_mode_txt")
case 1
Response.Write("邮件")
case 2
Response.Write("电话")
case 3
Response.Write("电子邮件")
case 4
Response.Write("手机短信")
end select %></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">签 名 档 </td>
<td bgcolor="#f0f0f0">
<% u=rs("usign")
if u<>"" then %>
<% =Autolink(u) %>
<%end if%></td>
</tr>
</table></td>
</tr>
</table>
<br>
<input type="button" name="Button" value="返回上页" onClick="history.go(-1)">
<input type="button" name="Button2" value="修改资料" onClick="window.location.href='user_modi.asp?userid=<%=rs("userid")%>'">
<%
rs.Close
set rs=nothing%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -