📄 pm.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="admin/Function.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="INC/CHAR.INC"-->
<%
if useronline <> true then
Call loginform("登录后才能使用个人悄悄话功能,如果您还不是本站会员,请先<a href=""register.asp?action=agree"">注册</a>")
CaLL Bottom()
response.End
End if
'=====================================================
if user_group(18) <> true then
ShowMsg "<b>错误:</b>对不起，论坛禁止使用悄悄话，请联系管理员!~<br><br><a href=javascript:history.back()><<< 返回上一步</a>"
Call Bottom
response.End
End if
'=====================================================
action = Trim(Request.QueryString("action"))
touser = Trim(Request.QueryString("touser"))
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""> <a href=""usercp.asp""><strong>"& username &"</strong> 的个人控制面板</a> >> 悄悄话"
response.Write "</td></tr></table>"
%>
<br>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr>
<td class="table-dark">
<div align="center"><a href="usercp.asp">控制面板首页</a></div></td>
<td class="table-dark">
<div align="center"><a href="usercp.asp?action=editprofile">修改个人资料</a></div></td>
<td class="table-dark">
<div align="center"><a href="usercp.asp?action=editpass">修改密码</a></div></td>
<td class="table-light">
<div align="center"><a href="pm.asp">悄悄话</a></div></td>
<td class="table-dark">
<div align="center"><a href="usercp.asp?action=favorites">收藏夹</a></div></td>
</tr>
</table>
<table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"></td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
<tr>
<td width="20%"> </td>
<td> <div align="center"><a href="?action=addpm"><img src="<%=BBS_Skin(3)%>pm_new.gif" border="0"></a></div></td>
<td> <div align="center"><a href="?folderid=1"><img src="<%=BBS_Skin(3)%>pm_0.gif" border="0"></a></div></td>
<td> <div align="center"><a href="?folderid=0"><img src="<%=BBS_Skin(3)%>pm_1.gif" border="0"></a></div></td>
<td width="20%"> </td>
</tr>
<tr>
<td></td>
<td height="8" colspan="3"></td>
<td></td>
</tr>
</table>
<%
select case action
case "addpm"
Call addpm()
case "delpm"
Call delpm()
case "sendpm"
Call sendpm()
case "showpm"
Call showpm()
case else
Call pmlist()
End select
'============================================
Sub pmlist()
folderid = trim(request.QueryString("folderid"))
if Not(IsNumeric(folderid)) then folderid = 1
if Cstr(folderid) <> 0 then folderid = 1
set rs = server.CreateObject("adodb.recordset")
if folderid = 1 then
sql = "select pm_id,fromuserid,fromusername,touserid,tousername,title,message,pmtime,receipt from JBB_pm where touserid="&userid &" and folderid=1 order By pm_id desc"
else
sql = "select pm_id,fromuserid,fromusername,touserid,tousername,title,message,pmtime,receipt from JBB_pm where userid="&userid &" and folderid=0 order By pm_id desc"
End if
rs.open sql,conn,1,1
%>
<table border="0" align="center" cellpadding="4" cellspacing="1" class="table">
<form name="form2" method="post" action="?action=delpm">
<tr class="table-title">
<td colspan="5">悄悄话 -
<%if folderid = 1 then response.Write("收件箱") else response.Write("发件箱")%>
</td>
</tr>
<tr class="table-title">
<td colspan="2" class="table-title"><div align="center">信息标题</div></td>
<td class="table-title"><div align="center">
<%if folderid = 1 then response.Write("发送人") else response.Write("发送给")%>
</div></td>
<td class="table-title"><div align="center">发送日期/时间</div></td>
<td><input name="Submit" type="submit" id="Submit" value="删除"></td>
</tr>
<%
if rs.eof or rs.bof then
response.Write("<tr class=""table-light"">")
response.Write("<td colspan=""5"">")
response.Write("<center><br>此目录下暂时没有悄悄话!<br><br></center>")
response.Write("</td>")
response.Write("</tr>")
else
for i = 1 to rs.recordCount
%>
<tr class="table-light">
<td width="5%"> <div align="center">
<%
if Not(rs("receipt")) then
%>
<img src="<%=BBS_Skin(3)%>newpm.gif" alt="未读信息">
<%else%>
<img src="<%=BBS_Skin(3)%>pm.gif" alt="已读信息">
<%end if%>
</div></td>
<td width="50%" class="table-light"><a href="?action=showpm&pm_id=<%=rs("pm_id")%>"><%=rtrim(rs("title"))%></a></td>
<td class="table-light">
<div align="center">
<%
if folderid = 1 then
response.Write("<a href=""user.asp?userid="& trim(rs("fromuserid")) &""" target=""_blank"">"& rtrim(rs("fromusername")) &"</a>")
else
response.Write("<a href=""user.asp?userid="& trim(rs("touserid")) &""" target=""_blank"">"& rtrim(rs("tousername")) &"</a>")
End if
%>
</div></td>
<td width="18%" class="table-light">
<div align="center"><%=trim(rs("pmtime"))%></div></td>
<td width="8%">
<input name="pm_id" type="checkbox" id="pm_id" value="<%=trim(rs("pm_id"))%>">
</td>
</tr>
<%
rs.moveNext
Next'i
End if
%></form>
</table>
<br>
<%
rs.close
set rs = nothing
End Sub
'===========================================
%>
<table width="300" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td width="34"> </td>
<td width="124"><img src="<%=BBS_Skin(3)%>newpm.gif"> 未读的信息</td>
<td width="114"><img src="<%=BBS_Skin(3)%>pm.gif"> 已读的信息</td>
</tr>
</table>
<br>
<%
'============================================
Sub sendpm()
touser = SetSafeStr(Trim(Request.Form("touser")))
if touser = "" then
ShowMsg "<b>错误:</b>接收人用户名不可为空!<br><br><a href=""javascript:history.back()""><<< 返回上页</a>"
Call Bottom()
response.end
End if
set rs = Conn.ExeCute("select JBB_user.userid,JBB_usergroup.usepm,JBB_usergroup.pmcount from JBB_user INNER join JBB_usergroup on JBB_usergroup.groupID=JBB_user.usergroup where JBB_user.username = '"& touser &"'")
if rs.eof or rs.bof then
ShowMsg "<b>错误:</b>"& touser &" 论坛无此用户!<br><br><a href=""javascript:history.back()""><<< 返回上页</a>"
set rs = Nothing
Call Bottom()
response.end
else
touserid = rs("userid")
pmcount = rs("pmcount")
if Not(rs("usepm")) then
ShowMsg "<b>错误:</b>对不起!"& touser &" 暂不可以使用论坛悄悄话!<br><br><a href=""javascript:history.back()""><<< 返回上页</a>"
set rs = Nothing
Call Bottom()
response.end
else
set rs1 = server.CreateObject("adodb.recordset")
rs1.open "select userid from JBB_pm where userid ="&touserid,conn,1,1
if Not(rs1.Eof and rs1.bof) then
if Cstr(pmcount) <= Cstr(rs1.recordCount) then
ShowMsg "<b>错误:</b>对不起!"& touser &" 悄悄话储存数已达上限，暂不可再接收新的悄悄话!<br><br><a href=""javascript:history.back()""><<< 返回上页</a>"
rs1.close
set rs1 = Nothing
Call Bottom()
response.end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -