?? 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
'*
'* 版權(quán)所有: 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) &" - 發(fā)送文章給好友"%></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""> 發(fā)送文章給好友"
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 "對不起，您不可以參加執(zhí)行此操作或者您還沒有登錄，點(diǎn)擊 <a href=""javascript:history.back()"">這里</a> 返回<br>"
Call Bottom()
response.End()
End if
'--------------------------------------
action=trim(request.QueryString("action"))
if action = "sendok" then
ShowMsg"郵件發(fā)送成功，<a href=""showthread.asp?threadID="& threadid &""">點(diǎn)擊這里返回該主題</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 "正在發(fā)送郵件，請稍候..."
'------------------------------------------------
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服務(wù)器驗(yàn)證登陸名 （郵局中任何一個(gè)用戶的Email地址）
msg.MailServerPassword = sendmailPass '輸入smtp服務(wù)器驗(yàn)證密碼 （用戶Email帳號對應(yīng)的密碼）
msg.From = BBS_Config(4) '發(fā)件人Email
msg.FromName = username '發(fā)件人姓名
msg.AddRecipient toemail '收件人Email
msg.Subject = "您的朋友 "& username &" 推薦給您的" '信件主題
msg.Body = mailbody '正文
msg.Send (sendmailserver) 'smtp服務(wù)器地址（企業(yè)郵局地址）
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"><%="發(fā)送文章: <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">您好：
我發(fā)現(xiàn)一篇很好的文章，特地推薦給您看看!
文章網(wǎng)址是：
<%=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()
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -