📄 userxxlr.asp
字号:
<!--#include file="filetou.asp"-->
<%
name=request("name")
sql="SELECT * FROM USER1 WHERE user='"&name&"' "
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 1
if rs.eof then
rs.close
set conn=nothing
response.redirect "../../ever.asp?lr=没有找到“"&name&"”的资料"
end if
%>
<html>
<head>
<Link Rel="STYLESHEET" Href="index.CSS" Type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>查看资料</title>
</head>
<body bgcolor="#99CCFF">
<div align="center">
<center>
<table border="1" width="80%" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#C0C0C0">
<tr>
<td width="100%" align="center">
<table border="0" width="100%" bgcolor="#000080">
<tr>
<td width="50%"><font color="#FFFFFF"> </font><font color="#FFFFFF">查看用户资料</font></td>
</center>
<td width="50%">
<p align="right"><a href="javascript:history.back()"><font color="#FFFFFF">返回</font></a>
</td>
</tr>
</table>
<center>
<table border="1" width="98%" bgcolor="#D5D5D5" bordercolorlight="#60789F" cellspacing="0" cellpadding="3" bordercolordark="#D5D5D5">
<tr>
<td width="26%" align="right">用户名：</td>
<td width="29%"><%=name%> </td>
<td width="45%" rowspan="4" align="center"><%if rs("头像")<>"" then Response.Write "<img onload='javascript:if(this.width>130)this.width=130' src='"&rs("头像")&"'>"%> </td>
</tr>
<tr>
<td width="26%" align="right">身份： </td>
<td width="29%"><%=rs("身份")%> </td>
</tr>
<tr>
<td width="26%" align="right">EMAIL： </td>
<td width="29%"><%=rs("EMAIL")%> </td>
</tr>
<tr>
<td width="26%" align="right">主页：</td>
<td width="29%"><%=rs("主页")%> </td>
</tr>
<tr>
<td width="26%" align="right">地区：</td>
<td width="15%"><%=rs("地区")%> </td>
<td width="14%" align="center"><a href=lyout.asp?LFuser=<%=name%>><u>
<%
if rs("身份")<>"用户" then
IF RS("性别")="男" THEN
Response.Write "给他留言"
else
Response.Write "给她留言"
end if
end if
%></u></a>
</td>
</tr>
<tr>
<td width="26%" align="right">所属部门：</td>
<td width="74%" colspan="2"><%=rs("所属网点")%> </td>
</tr>
<tr>
<td width="26%" align="right">注册时间：</td>
<td width="74%" colspan="2"><%=rs("注册日期")%> </td>
</tr>
<tr>
<td width="26%" align="right">年龄：</td>
<td width="74%" colspan="2"><%=rs("年龄")%> </td>
</tr>
<tr>
<td width="26%" align="right">性别：</td>
<td width="74%" colspan="2"><%IF RS("性别")="男" THEN
Response.Write "帅哥"
ELSE
Response.Write "靓妹"
END IF
%> </td>
</tr>
<tr>
<td width="26%" align="right">ＱＱ：</td>
<td width="74%" colspan="2"><%=rs("QQ")%> </td>
</tr>
<tr>
<td width="26%" align="right">自我介绍：</td>
<td width="74%" colspan="2"><%=rs("自我介绍")%> </td>
</tr>
<tr>
<td width="26%" align="right">签名：</td>
<td width="74%" colspan="2"><%=rs("签名")%> </td>
</tr>
<tr>
<td width="26%" align="right">ＩＰ：</td>
<td width="74%" colspan="2"><%
IF session("userdsf")<>"用户" then
Response.Write RS("IP")
else
Response.Write left(rs("ip"),7)
end if
%> </td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
rs.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -