📄 usercp.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<!--#include file="INC/style.asp"-->
<%
'****************************************************************
'* joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'* 版权所有: JoinBoard V2.3
'*
'* 程序制作: 友盟工作室
'*
'* 主页地址: http://joinboard.com 友盟论坛
'*
'* 论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*
'****************************************************************
'* Powered by: JoinBoard V2.3
'* Copyright 2003－2004. - All Rights Reserved.
'* JoinBoard is a trademark of YouMeng Studio.
'****************************************************************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)%> - 用户控制面板</title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()
%>
<!--#include file="admin/md5.asp"-->
<%
if useronline <> true then
Call loginform("登录后才能使用个人控制面板,如果您还不是本站会员,请先<a href=""register.asp?action=agree"">注册</a>")
CaLL Bottom()
response.End
End if
action = Trim(Request.QueryString("action"))
response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.write "<img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <a href="""& BBSHomeUrl &""">"& BBS_Config(0) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <strong>"&username&"</strong> 的个人控制面板"
response.Write "</td></tr></table>"
%>
<br>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr>
<td <%if action = "" then response.Write ("class=table-light") else response.Write ("class=table-dark") End if %>>
<div align="center"><a href="usercp.asp">控制面板首页</a></div></td>
<td <%if action = "editprofile" then response.Write ("class=table-light") else response.Write ("class=table-dark") End if %>>
<div align="center"><a href="?action=editprofile">修改个人资料</a></div></td>
<td <%if action = "editpass" then response.Write ("class=table-light") else response.Write ("class=table-dark") End if %>>
<div align="center"><a href="?action=editpass">修改密码</a></div></td>
<td class="table-dark">
<div align="center"><a href="pm.asp">悄悄话</a></div></td>
<td <%if action = "favorites" then response.Write ("class=table-light") else response.Write ("class=table-dark") End if %>>
<div align="center"><a href="?action=favorites">收藏夹</a></div></td>
</tr>
</table>
<table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"></td>
</tr>
</table>
<%
select case action
case "editprofile"
Call editprofile()
case "Saveprofile"
Call Saveprofile()
case "editpass"
Call editpass()
case "Savepass"
Call Savepass()
case "favorites"
Call favorites()
case else
Call home()
End select
'============================================
Sub home()
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
<tr>
<td width="201" rowspan="3" valign="top"> <%
set rsF = server.CreateObject("adodb.recordSet")
sqlF = "select JBB_friend.F_id,JBB_friend.friendNameID,JBB_user.username,JBB_user.lastactivity from JBB_user left join JBB_friend on(JBB_user.userid=JBB_friend.Friendnameid) where JBB_friend.user_ID="&userid&" order BY JBB_user.userid Asc"
rsF.open sqlF,conn,1,1
friendCount=rsF.recordCount
%> <table width="100%" border="0" cellpadding="3" cellspacing="1" class="table">
<tr>
<td class="table-title"><div align="center">好友列表(<%=friendCount%>/30)</div></td>
</tr>
<tr>
<td class="table-dark"> <table width="100%" border="0" cellspacing="0" cellpadding="4">
<%
if Not(rsF.bof and rsF.Eof) then
for F = 1 to rsF.recordCount
if useronlinetiem*60 > DATEDIFF("s", rsF(3), Now()) then
F_id = rsF(0)
friendNameID = rsF(1)
friendName = rtrim(rsF(2))
%>
<tr>
<td> <%
response.write "<a href=""user.asp?userid="& friendNameID &""" target=""_blank"">"& friendName &"</a>"
%></td>
<td> <%
response.Write("<table style=""filter:glow(color=#ffff00, strength=3)"">Online</table>")
%> </td>
<td width="28%"><div align="right"><a title="给 <%=friendName%> 发送悄悄话" href="pm.asp?action=addpm&touser=<%=friendName%>">PM</a> <a title = "将 <%=friendName%> 从我的好友列表中删除" href="Friend.asp?action=del&F_id=<%=F_id%>" onClick="{if(confirm('确定删除这位好友吗?')){return true;}return false;}">╳</a></div></td>
</tr>
<%
End if
rsF.MoveNext
Next
'----------------------------------
%>
<tr>
<td colspan="3"><hr></td>
</tr>
<%
rsF.movefirst
for F = 1 to rsF.recordCount
if DATEDIFF("s", rsF(3), Now()) > useronlinetiem*60 then
F_id = rsF(0)
friendNameID = rsF(1)
friendName = rtrim(rsF(2))
%>
<tr>
<td> <%
response.write "<a href=""user.asp?userid="& friendNameID &""" target=""_blank"">"& friendName &"</a>"
%></td>
<td> <%
response.Write("<table style=""filter:glow(color=#000000, strength=2)"">Offline</table>")
%> </td>
<td width="28%"><div align="right"><a title="给 <%=friendName%> 发送悄悄话" href="pm.asp?action=addpm&touser=<%=friendName%>">PM</a> <a title = "将 <%=friendName%> 从我的好友列表中删除" href="Friend.asp?action=del&F_id=<%=F_id%>" onClick="{if(confirm('确定删除这位好友吗?')){return true;}return false;}">╳</a></div></td>
</tr>
<%
End if
rsF.MoveNext
Next
'----------------------------------
End if
%>
</table></td>
</tr>
</table>
<%
rsF.close
Set rsF = Nothing
%> </td>
<td width="10" rowspan="3"> </td>
<td valign="top"> <table width="100%" border="0" align="right" cellpadding="3" cellspacing="1" class="table">
<tr>
<td colspan="4" class="table-title"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>最新 5 条悄悄话</td>
<td> <div align="right"><a href="pm.asp">查看所有悄悄话</a></div></td>
</tr>
</table></td>
</tr>
<%
set rs = server.CreateObject("adodb.recordset")
rs.open "select top 5 pm_id,fromuserid,fromusername,touserid,tousername,title,message,pmtime,receipt from JBB_pm where touserid="&userid &" and folderid=1 order by pm_id desc",conn,1,1
if rs.eof or rs.bof then
response.Write("<tr>")
response.Write("<td colspan=""4"" class=""table-dark"">")
response.Write("<center><br>暂时没有悄悄话!<br><br></center>")
response.Write("</td>")
response.Write("</tr>")
else
for i = 1 to rs.recordCount
%>
<tr>
<td width="10" class="table-dark"> <%
if Not(rs("receipt")) then
%> <img src="<%=BBS_Skin(3)%>newpm.gif" alt="未读信息">
<%else%> <img src="<%=BBS_Skin(3)%>pm.gif" alt="已读信息">
<%end if%> </td>
<td width="50%" class="table-dark"><a href="pm.asp?action=showpm&pm_id=<%=rs("pm_id")%>"><%=rtrim(rs("title"))%></a></td>
<td width="200" class="table-dark"> <%
response.Write("来自:<a href=""user.asp?userid="& trim(rs("fromuserid")) &""" target=""_blank"">"& rtrim(rs("fromusername")) &"</a>")
%> </td>
<td width="200" class="table-dark"><%=trim(rs("pmtime"))%></td>
</tr>
<%
rs.moveNext
Next'i
End if
rs.close
set rs = nothing
%>
</table></td>
</tr>
<tr>
<td valign="top"> </td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" align="right" cellpadding="3" cellspacing="1" class="table">
<tr class="table-title">
<td colspan="3"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>最近回复的 5 条收藏文章</td>
<td> <div align="right"><a href="?action=favorites">查看所有收藏</a></div></td>
</tr>
</table></td>
</tr>
<tr class="table-title">
<td>主 题</td>
<td>作 者</td>
<td>最后回复</td>
</tr>
<%
set rs2 = server.CreateObject("adodb.recordset")
sql2 = "select top 5 JBB_favorite.*,JBB_thread.thread_title,JBB_thread.postuserid,JBB_thread.postusername,JBB_thread.lastpost,JBB_thread.lastposterid,JBB_thread.lastposter from JBB_favorite left join JBB_thread on(JBB_favorite.thread_ID=JBB_thread.threadID) where JBB_favorite.user_ID="&userid &" order BY JBB_thread.lastpost desc"
rs2.open sql2,conn,1,1
if Not(rs2.bof and rs2.eof) then
for ff = 1 to rs2.recordCount
%>
<tr>
<td width="232" class="table-dark"> <%
response.Write "<a href=""showthread.asp?threadid="& rs2("thread_id") &""" target=""_blank"">"& rtrim(rs2("thread_title")) &"</a>"
%> </td>
<td width="108" class="table-dark"> <%
if rs2("postuserID") <> 0 then
response.write"<a href=""user.asp?userID="& rs2("postuserID") &""" target=""_blank"">"& rtrim(rs2("postusername")) &"</a>"
else
response.Write("游客")
End if
%> </td>
<td class="table-dark"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="90%"> <div align="right"><%=rs2("lastpost")%></div></td>
<td width="10" rowspan="2"><div align="right"><a href="showthread.asp?threadid=<%=rs2("thread_ID")%>&page=end#end"><img src="images/lastpost.gif" alt="转到最新回复" border="0"></a>
</div></td>
</tr>
<tr>
<td> <div align="right">
<%
if rs2("lastposterid") <> 0 then
response.write "<a href=""user.asp?userID="& rs2("lastposterid") &""" target=""_blank"">"& rtrim(rs2("lastposter")) &"</a>"
else
response.Write("游客")
End if
%>
</div></td>
</tr>
</table></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -