emessenger.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 151 行

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<!--#include file="functions/sendmail.asp" -->
<%
Response.Buffer = True

Dim lngToUserID		
Dim strToUser		
Dim intForumID		
Dim blnShowEmail	
Dim strToEmail		
Dim strFromEmail	
Dim blnEmailSent	
Dim strEmailBody
Dim strSubject

lngToUserID = CLng(Request("SEID"))
If Request("SEID") = "" OR blnEmailMessenger = False OR blnEmail = False Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

If bannedIP() Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp?M=IP")
End If

blnEmailSent = False
strSQL = "SELECT timesuser.Username, timesuser.useremail, timesuser.disemail "
strSQL = strSQL & "FROM timesuser "
strSQL = strSQL & "WHERE timesuser.userid = " & lngToUserID
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then

	strToUser = rsConn("Username")
	strToEmail = rsConn("useremail")
	blnShowEmail = CBool(rsConn("disemail"))
End If
rsConn.Close
strSQL = "SELECT timesuser.useremail "
strSQL = strSQL & "FROM timesuser "
strSQL = strSQL & "WHERE timesuser.userid = " & lngLoggedInUserID
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
	strFromEmail = rsConn("useremail")
End If
rsConn.Close
If Request.Form("postBack") Then
	Call checkSessionID(Request.Form("sessionID"))
	strEmailBody = "Hi" & " " & strToUser & ","
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "来自"& "   " & strMainForumName & " " & strLoggedInUsername & " ."
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "如果这封信违反了论坛规则，请联系论坛管理员" & ": - "
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & strForumEmailAddress
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "附加上原信件" & ": - " & "BBS=" & strMainForumName & ";ID=" & lngLoggedInUserID & ";USR= " & strLoggedInUsername & ";"
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "注意回复地址" & " " & strLoggedInUsername & "."
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "信息已发送" & ": -"
	strEmailBody = strEmailBody & vbCrLf & "---------------------------------------------------------------------------------------"
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & Request.Form("message")
	strSubject = Request.Form("subject")
	blnEmailSent = SendMail(strEmailBody, strToUser, strToEmail, strLoggedInUsername, strFromEmail, strSubject, strMailComponent, false)
	If Request.Form("mySelf") Then
		Call SendMail(strEmailBody, strFromEmail, strToEmail, strLoggedInUsername, strFromEmail, strSubject, strMailComponent, false)
	End If
End If
%>
<title>发送短信</title>
<script language="JavaScript">
function CheckForm () {
	var errorMsg = "";
	if (document.frmEmailMsg.subject.value==""){
		errorMsg += "\n\t贴子 \t- 请输入主题";
	}
	if (document.frmEmailMsg.message.value==""){
		errorMsg += "\n\t贴子\t- 输入贴子内容后发送";
	}
	if (errorMsg != ""){
		msg = "\n\t贴子\t- 输入贴子内容后发送\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "以下区域需要修改\n\n";
		msg += "你确认要重新填写此表单?\n";
		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}
	return true;
}
</script>
<table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
  <tr><td align="left" class="heading">发送短信</td></tr>
 <tr><td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %>发送人：<br /></td>
  </tr></table>
 <%
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
If blnActiveMember = False Then %>
<div align="center"><br /><br /><span class="text">对不起, 因为您的论坛会员尚未激活你没有权利使用此服务!</span><br /><br /><br /><br /><br /></div>
<%
ElseIf intGroupID = 2 Then %>
<div align="center"><br /><br /><span class="text">必须先注册</span><br /><br />
<a href="reg.asp?fid=<%= intForumID %>" target="_self"><img src="images/register.gif"  alt="注册" border="0" align="absmiddle"></a>&nbsp;&nbsp;<a href="login.asp?fid=<%= intForumID %>" target="_self"><img src="images/login.gif"  alt="登"" border="0" align="absmiddle"></a><br /><br /><br /><br /></div>
<%
ElseIf blnEmailSent Then %>
<div align="center"><br /><br /><span class="text">你的邮件已经发送给 <%= strToUser %></span><br /><br /><a href="index.asp" target="_self">返回论坛</a><br /><br /><br /><br /><br /></div>
<%
ElseIf isNull(strToEmail) Or strToEmail = "" Then %>
<div align="center"><br /><br /><span class="text">你不能发邮件给 <%= strToUser %>, 他没有填写合法的邮箱地址</span><br /><br /><br /><br /><br /></div>
<%
ElseIf isNull(strFromEmail) OR strFromEmail = "" Then %>
<div align="center"><br /><br /><span class="text">你不能发邮件给 <%= strToUser %>, 你的邮箱地址非法</span><br /><br /><br /><br /><br /></div>
<%
ElseIf blnShowEmail = False AND blnAdmin = False Then %>
<div align="center"><br /><br /><span class="text">你不能发邮件给 <%= strToUser %>, 他们隐藏了他们的邮箱地址</span><br /><br /><br /><br /><br /></div>
<% Else %>

<form method="post" name="frmEmailMsg" action="emessenger.asp" onSubmit="return CheckForm();" onReset="return confirm('你确认要重新填写此表单?');">
 <table width="610" border="0" cellspacing="0" cellpadding="1" bgcolor="<% = strTableBorderColour %>" height="230" align="center">
  <tr><td height="66" width="967">
    <table width="610" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>" height="201">
     <tr><td height="199">
       <table width="610" border="0" align="center" cellpadding="2" cellspacing="0">
        <tr align="left"><td colspan="2" height="31" class="text">*必填</td>
        </tr><tr>
         <td align="right" width="15%" class="text">接受人:</td>
         <td width="70%" class="bold"><% = strToUser %></td>
        </tr><tr>
         <td align="right" width="15%" class="text">主题*:</td>
         <td width="70%"> <input type="text" name="subject" size="30" maxlength="41"></td>
        </tr><tr>
         <td valign="top" align="right" width="15%" class="text">贴子内容*:<br /><br />
         <span class="smText">文本格式，不支持HTML语法</span></td>
         <td width="70%" valign="top"><textarea name="message" cols="57" rows="12"></textarea>
         </td><tr>
         <td align="right" width="15%" class="text">&nbsp;</td>
         <td width="70%" class="text">&nbsp;<input type="checkbox" name="mySelf" value="True">发送一份到我自己的信箱</td>
        </tr></tr>
         <td><input name="SEID" type="hidden" id="to" value="<% = lngToUserID %>"><input name="postBack" type="hidden" id="postBack" value="true">&nbsp;</td>
        <td width="70%" align="left">
           <input type="hidden" name="sessionID" value="<% = Session.SessionID %>" />
	   <input type="submit" name="Submit" value="发送电子邮件">
           <input type="reset" name="Reset" value="清除">
        </td></tr></table>
      </td></tr></table>
   </td></tr></table>
</form><% End If %>
<br /><br /><br />
<!-- #include file="includes/footer.asp" -->