📄 per.asp
字号:
<%@ language=vbscript %>
<!--#include file="conn.inc"-->
<!--#include file="config.asp"-->
<%
if session("username")="" then
response.redirect "log.asp"
else
lname=session("username")
passw=session("passw")
sql = "select * from mis where username='"&lname&"' and passw1='"&passw&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if rs.eof then
response.write"<script language='javascript'>" & VbCRlf
response.write"alert('对不起，用户名或密码错误！');" & VbCRlf
response.write"history.go(-1);" & VbCRlf
response.write"</script>"
response.end
end if
name=rs("name")
name2=rs("username")
sex=rs("sex")
oicq=rs("oicq")
addr=rs("addr")
phone=rs("phone")
ltime=rs("time")
ip=rs("ip")
lid=rs("id")
session("sendid")=lid
%>
<html>
<head>
<title><%=name%>个人资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="config.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<table width="400" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#999999" bordercolorlight="#999999" bordercolordark="#f7f7f7">
<tr>
<td width="18%">姓名：</td>
<td width="29%"><%=name%></td>
<td width="13%">呢称：</td>
<td width="40%"><%=name2%></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="18%">性别：</td>
<td width="29%"><%=sex%></td>
<td width="13%">电话：</td>
<td width="40%"><%=phone%></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="18%">OICQ：</td>
<td width="29%"><%=oicq%></td>
<td width="13%">外号：</td>
<td width="40%"><%=lwaihao%></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="18%">电子邮件：</td>
<td colspan="3"><a href=mailto:<%=lemail%>><%=lemail%></a></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="18%">联系地址：</td>
<td colspan="3"><%=addr%></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="18%">工作单位：</td>
<td colspan="3"><%=lwork%></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="18%">自我介绍：</td>
<td colspan="3"><%=lself%></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="18%">加入时间：</td>
<td colspan="3"><%=ltime%></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="18%">加入IP：</td>
<td colspan="3"><%=ip%></td>
</tr>
<tr>
<td width="18%"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td colspan="4">
<div align="center"><a href=savelogo1.asp?id=<%=lname%> target="_blank">查看我的相片</a></div>
</td>
</tr>
</table>
<%
end if %>
<br>
<%
sql1 = "select * from message where accname='"&lname&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,3
%>
<table width="75%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#999999" bordercolorlight="#999999" bordercolordark="#f7f7f7">
<tr>
<td height="9" bgcolor="#CCCCCC" colspan="4">
<div align="center"><%=name%>的短消息情况</div>
</td>
</tr>
<%
if rs1.recordcount<1 then
%>
<tr>
<td colspan="4">
<div align="center">您还没有短消息！</div>
</td>
</tr>
<%
else
do while not rs1.eof
i=i+1
lsendname=rs1("sendname")
lcontent=rs1("content")
lsendtime=rs1("sendtime")
accid=rs1("sendid")
deleid=rs1("id")
%>
<tr>
<td width="13%"> 第<%=i%>条消息 </td>
<td width="75%">
<div align="right"><font color="#FF0000"><font color="blue"><a href="senduser.asp?username=<%=lsendname%>" target="_blank"><%=lsendname%></a></font>于<font color="green"><%=lsendtime%></font>给您留言</font></div>
</td>
<td width="6%">
<div align="right"><a href="send.asp?accid=<%=accid%>">回复</a></div>
</td>
<td width="6%">
<div align="right"><a href="delmess.asp?id=<%=deleid%>">删除</a></div>
</td>
</tr>
<tr>
<td colspan="4"><%=lcontent%></td>
</tr>
<%
rs1.movenext
loop
end if
%>
</table>
<%
rs.close
rs1.close
conn.close
set rs=nothing
set conn=nothing
%>
<br>
<table width="75%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#999999" bordercolorlight="#999999" bordercolordark="#f7f7f7">
<tr>
<td height="9" bgcolor="#CCCCCC">
<div align="center"><%=titlemark%>管理中心</div>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="log.asp">登陆</a>---<a href="input.asp">加入通讯录</a>---<a href="index.asp">查看全部</a>--<a href="guestbook/index.asp" target="_blank">留言板</a>---<a href="edit.asp">修改个人资料</a>---<a href="ad_log.asp">超级管理员入口</a></div>
</td>
</tr>
</table>
<br>
<!--#include file="foot.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -