📄 mailthread.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/Board_Config.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.
'****************************************************************
response.Buffer = false
threadID = trim(request.QueryString("threadID"))
if Not(IsNumeric(threadID)) or threadID = "0" then
response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='0; URL="&BBSHomeUrl&"'>")
response.End()
End if
set rs = Conn.ExeCute("select thread_title,Board_ID From JBB_thread where threadID="&threadID)
if Not rs.eof then
thread_title = rtrim(rs(0))
BoardID = rs(1)
Board_info BoardID
Board_Config = Application(JBBMasterCookies&"Board_Config"&BoardID)
title = Board_Config(2)
if Board_Config(6)=true then styleid = Board_Config(5)
else
set rs = Nothing
response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='0; URL="&BBSHomeUrl&"'>")
response.End()
End if
set rs = Nothing
%>
<!--#include file="INC/style.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)&" - "& Board_Config(2) &" - 发送文章给好友"%></title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
<script language="javascript">
<!--
function isok(theform)
{
if (theform.friendEmail.value.length<5|theform.friendEmail.value.indexOf("@")==-1|theform.friendEmail.value.indexOf(".")==-1)
{alert("请输入正确的Eail地址！");
theform.friendEmail.focus( );
return(false);}
return (true);
}
-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()
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=""board.asp?BoardID="& BoardID &""">"& Board_Config(2) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> 发送文章给好友"
response.Write "</td></tr></table>"
if Board_Config(17) = True or Board_Config(18) = True then
if usergroup <= 4 then
enter = true
End if
else
enter = true
End if
'------------------------------------------------
if useronline <> true or enter <> true then
loginform "对不起，您不可以参加执行此操作或者您还没有登录，点击 <a href=""javascript:history.back()"">这里</a> 返回<br>"
Call Bottom()
response.End()
End if
'--------------------------------------
action=trim(request.QueryString("action"))
if action = "sendok" then
ShowMsg"邮件发送成功，<a href=""showthread.asp?threadID="& threadid &""">点击这里返回该主题</a>"
elseif action = "Send" then
set rsconfig=Conn.ExeCute("select Top 1 sendmailserver,sendEmailuser,sendmailPass from JBB_Config")
toemail = rtrim(request.Form("friendEmail"))
set rs = Conn.ExeCute("select email from JBB_user where userid="&userid)
if not(rs.bof and rs.eof) then
useremail = rtrim(rs("email"))
End if
set rs = nothing
if toemail<>"" and useremail<>"" then
mailbody = rtrim(request.Form("sendContent")) + chr(13) + chr(13) & "------------------------------------------------------------------"+ chr(13) & " Copyright © 2003, 2004 "+ BBS_Config(0) +" <"+ BBS_Config(1) +"> "+chr(13)+"Powered by：JoinBoard <http://www.JoinBoard.Net>"
ShowMsg "正在发送邮件，请稍候..."
'------------------------------------------------
set rs1=conn.execute("select top 1 sendEmailuser,sendmailPass,sendmailserver from JBB_config")
sendEmailuser=rs1(0)
sendmailPass=rs1(1)
sendmailserver=rs1(2)
set rs1 = nothing
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = sendEmailuser '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = sendmailPass '输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From = BBS_Config(4) '发件人Email
msg.FromName = username '发件人姓名
msg.AddRecipient toemail '收件人Email
msg.Subject = "您的朋友 "& username &" 推荐给您的" '信件主题
msg.Body = mailbody '正文
msg.Send (sendmailserver) 'smtp服务器地址（企业邮局地址）
set msg = nothing
response.Write("<meta HTTP-EQUIV=REFRESH CONTENT='0; URL=?action=sendok&threadid="&threadid&"'>")
end if
set rsconfig = nothing
else
%>
<br>
<table border="0" align="center" cellpadding="4" cellspacing="1" class="table">
<tr>
<td colspan="2" class="table-title"><%="发送文章: <b><a href=""showthread.asp?threadID="&threadid&""">"&thread_title&"</a></b> 给好友"%></td>
</tr>
<form name="form1" method="post" action="?action=Send&threadid=<%=threadid%>" onsubmit="return isok(this)">
<tr class="table-light">
<td width="36%">
<div align="right"><font color="#FF0000">*</font>您朋友的Email:</div></td>
<td>
<input name="friendEmail" type="text" id="friendEmail" size="26" maxlength="50"></td>
</tr>
<tr>
<td valign="top" class="table-dark">
<div align="right"><font color="#FF0000">*</font>您想对他说的话:</div></td>
<td class="table-dark">
<textarea name="sendContent" cols="40" rows="8" id="sendContent">您好：
我发现一篇很好的文章，特地推荐给您看看!
文章网址是：
<%=BBS_Config(1)%>/showthread.asp?threadID=<%=threadid%>
您的朋友:<%=username%></textarea></td>
</tr>
<tr>
<td colspan="2" class="table-light">
<div align="center"></div>
<div align="center">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</form>
</table>
<br>
<%
End if
'--------------------------------------
Call Bottom()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -