📄 usermanager.asp
字号:
<!--#include file="CONN.ASP" -->
<!--#include file="ubbcode.asp" -->
<%
if not userislogin then
errmess=errmess&error1
call founderror(errmess)
end if
%>
<!--#include file="mymem.asp" -->
<!--#include file="mymeumu.asp" -->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
<%call tabletop(true,"top")%></td>
</tr>
<tr>
<td height="27" colspan="2" background="backimg/bg1.gif"><strong><font color="#FFFFFF">
<%=right(mythispage,5)%></font></strong></td>
</tr>
<tr>
<td colspan="2" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
<%
select case (request.QueryString("p"))
case "userftz"
response.Write("<tr bgcolor=""#FFFFFF""><td>")
call listzjftzx(100,"fz")
response.Write("</tr></td>")
case "usersms"
response.Write("<tr bgcolor=""#FFFFFF""><td>")
call listusershormess(100)
response.Write("</tr></td>")
case "addfriend"
response.Write("<tr bgcolor=""#FFFFFF""><td>")
call addfriend()
response.Write("</tr></td>")
case "editfriend"
response.Write("<tr bgcolor=""#FFFFFF""><td>")
call userfriendlist(10)
response.Write("</tr></td>")
case "userf"
call listzjftzx(100,"userf")
case "userpic"
call userpiclist()
case else
%>
<tr bgcolor="#FFFFFF">
<td> <table width="100%" border="0">
<tr>
<td width="25%" height="198" valign="top">
<%
call listuserjbmess()
sub listuserjbmess()
dim rs
set rs=conn.execute("select * from userinfo where user='"&loginuser&"'")
%> <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
<tr bgcolor="#FFFFFF">
<td colspan="2">用户头像</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><img src="<%=rs("myface")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" id=idface></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">级别</td>
<td width="58%"><%=rs("jibie")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">用户名</td>
<td><%=rs("user")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">性 别</td>
<td><%=rs("xb")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">出 生</td>
<td><%=rs("birthday")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">E-mail</td>
<td> <%if rs("setuser1")=0 and rs("user")<>loginuser then response.write "用户未开放" else response.write rs("email") end if%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">oicq</td>
<td><%=rs("oicq")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">帖子总数</td>
<td><%=rs("ftz")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">被删主题</td>
<td><%=rs("deltz")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">登陆次数</td>
<td><%=rs("userlog")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">正常退出:</td>
<td><%=rs("logout")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">现在积分</td>
<td><%=rs("userjf")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">联系方式</td>
<td> <%if rs("setuser1")=0 and rs("user")<>loginuser then response.write "用户未开放" else response.write rs("conn") end if%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="42%">在线时长</td>
<td> <%=rs("atime")%> 秒</td>
</tr>
</table>
<%end sub%> <br>
<%
call userfriendlist(10)
sub userfriendlist(listh)
response.Write("<table width=""100%"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#92b9fb"">")
response.Write("<tr><td width=""60%"" height=""24"" background=""backimg/bg1.gif"">好友名字</td>")
response.Write("<td width=""34%"" background=""backimg/bg1.gif""> 加入时间</td><td background=""backimg/bg1.gif""> </td></tr>")
dim rs,i,rs2
set rs=conn.execute("select id,fd,me,date from fd where me='"&loginuser&"' order by date")
i=1
if( not rs.eof )and (not rs.bof) then
do while not rs.eof
response.Write("<tr><td bgcolor=""#FFFFFF""><img src=""PIC/msg_new_bar.gif"" width=""16"" height=""16""> <a href=usertype.asp?user="&rs("fd")&"> "&rs("fd")&"</a>")
set rs2=conn.execute("select user from online where user='"&rs("fd")&"'")
if not rs2.eof then
response.Write(" [在线]")
else
response.Write(" [离线]")
end if
response.Write("</td><td bgcolor=""#FFFFFF"">"&rs("date")&"</td><td bgcolor=""#FFFFFF""><a href=foruser.asp?czlb=delfriend&id="&rs("id")&" title=删除当前好友 onclick=""{if(confirm('删除好友，确定删除吗?')){return true;}return false;}"">删</a></td></tr>")
rs.movenext
if i>10 then exit do
i=i+1
loop
else
response.Write("<tr><td bgcolor=""#FFFFFF"" align=""right"" colspan=3>你还没好友</td></tr></table>")
end if
response.Write("<tr><td bgcolor=""#FFFFFF"" align=""right"" colspan=3><input type=""button"" name=""Submit"" onClick=""location.href='usermanager.asp?p=addfriend'"" value=""添加好友""></td></tr></table>")
end sub
%></td>
<td width="75%" valign="top">
<%
call listusershormess(10)
sub listusershormess(s)
%> <form name="form1" method="post" action="foruser.asp?czlb=delmess">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
<tr align="center">
<td colspan="5" bgcolor="#FFFFFF"><img src="PIC/m_inbox.gif" width="40" height="40"><img src="PIC/M_address.gif" width="40" height="40">
<img src="PIC/M_issend.gif" width="40" height="40"> <img src="PIC/M_outbox.gif" width="40" height="40"><img src="PIC/M_recycle.gif" width="40" height="40"><img src="PIC/m_write.gif" width="40" height="40"></td>
</tr>
<tr align="center" background="backimg/bg1.gif">
<td width="40" height="27" background="backimg/bg1.gif">
状态 </td>
<td width="274" height="27" background="backimg/bg1.gif">
短信标题</td>
<td width="77" height="27" background="backimg/bg1.gif">
发信人</td>
<td height="27" colspan="2" background="backimg/bg1.gif">
发信时间</td>
</tr>
<%
dim rs,i,nr,allmess
Set rs = conn.execute("select * from mess where fd='"&loginuser&"' order by id desc " )
i=0
nr=0
if (not rs.eof) and (not rs.bof )then
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td> <%
if rs("click")=0 then
response.Write("<img src=""pic/m_news.gif"" width=""21"" height=""14"" alt=""未读"">" )
nr=nr+1
else
response.Write("<img src=""pic/m_olds.gif"" width=""21"" height=""14"" alt=""已读"">")
end if
%> </td>
<td><a href="#" onClick="MM_openBrWindow('readmess.asp?rmid=<%=rs("id")%>','','scrollbars=yes,resizable=yes,width=500,height=450')">
<%if rs("click")<1 then response.write "<b>"&rs("name")&"</b>" else response.write rs("name") end if %>
</a></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -