email_messenger.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

	var formArea = document.getElementById('frmEmailMsg');

	//Check for a subject
	if (formArea.subject.value==""){
		errorMsg += "\n\t<% = strTxtErrorTopicSubject %>";
	}

	//Check for message
	if (formArea.message.value==""){
		errorMsg += "\n\t<% = strTxtNoMessageError %>";
	}

	//If there is aproblem with the form then display an error
	if (errorMsg != ""){
		msg = "<% = strTxtErrorDisplayLine %>\n\n";
		msg += "<% = strTxtErrorDisplayLine1 %>\n";
		msg += "<% = strTxtErrorDisplayLine2 %>\n";
		msg += "<% = strTxtErrorDisplayLine %>\n\n";
		msg += "<% = strTxtErrorDisplayLine3 %>\n";

		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}
	
	document.getElementById('formID').value='<% = strWebFormID %>';

	//Disable submit button
	document.getElementById('Submit').disabled=true;
	
	return true;
}
</script>
<link href="<% = strCSSfile %>default_style.css" rel="stylesheet" type="text/css" />
<!-- #include file="includes/header.asp" --> 
<!-- #include file="includes/status_bar_header_inc.asp" --> 
<table class="basicTable" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left"><h1><% = strTxtEmailMessenger %></h1></td> 
 </tr> 
</table>
<br /><%

'If the email is sent diaply a message
If blnEmailSent Then
	
	%>
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
  <tr class="tableLedger">
   <td><% = strTxtEmailMessenger %></td>
  </tr>
  <tr class="tableRow"> 
   <td align="center"><br /><% = strTxtYourEmailHasBeenSentTo & " " & strToUser %><br /><br /></td>
 </tr>
</table><br /><%

'Else the email is not sent
Else

	'If the users account is suspended then let them know
	If blnActiveMember = False OR blnBanned Then
		%>
<table class="errorTable" cellspacing="1" cellpadding="3" align="center">
  <tr>
    <td><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong><% = strTxtError %></strong></td>
  </tr>
  <tr>
    <td><%
		'If mem suspended display message
		If blnBanned Then
			Response.Write(strTxtForumMemberSuspended)
		'Else account not yet active
		Else
			Response.Write("<br /><br />" & strTxtForumMembershipNotAct)
			If blnMemberApprove = False Then Response.Write("<br /><br />" & strTxtToActivateYourForumMem)
		
			'If admin activation is enabled let the user know
			If blnMemberApprove Then
				Response.Write("<br /><br />" & strTxtYouAdminNeedsToActivateYourMembership)
			'If email is on then place a re-send activation email link
			ElseIf blnEmailActivation AND blnLoggedInUserEmail Then 
				Response.Write("<br /><br /><a href=""javascript:winOpener('resend_email_activation.asp" & strQsSID1 & "','actMail',1,1,475,300)"">" & strTxtResendActivationEmail & "</a>")
			End If
		End If
		
	%></td>
  </tr>
</table><br /><%
	
	'Else if the user is not logged in so let them know to login
	ElseIf intGroupID = 2 Then
	
	%>
<table class="errorTable" cellspacing="1" cellpadding="3" align="center">
  <tr>
    <td><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong><% = strTxtError %></strong></td>
  </tr>
  <tr>
    <td><% = strTxtMustBeRegistered %></td>
  </tr>
</table>
	<!--#include file="includes/login_form_inc.asp" --><%

	'Else If the to user doesn't have an email address then don't the user can not send to them
	ElseIf isNull(strToEmail) Or strToEmail = "" Then
	
	%>
<table class="errorTable" cellspacing="1" cellpadding="3" align="center">
  <tr>
    <td><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong><% = strTxtError %></strong></td>
  </tr>
  <tr>
    <td><% = strTxtYouCanNotEmail & " " & strToUser & ", " & strTxtTheyDontHaveAValidEmailAddr %></td>
  </tr>
</table><br /><%

	'Else If the current user doesn't have a valid email address in their profile then they can't send an email
	ElseIf isNull(strFromEmail) OR strFromEmail = "" Then
		
	%>
<table class="errorTable" cellspacing="1" cellpadding="3" align="center">
  <tr>
    <td><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong><% = strTxtError %></strong></td>
  </tr>
  <tr>
    <td><% = strTxtYouCanNotEmail & " " & strToUser & ", " & strTxtYouDontHaveAValidEmailAddr %></td>
  </tr>
</table><br /><%

	'Else If the to user has choosen to hide their email address
	ElseIf blnShowEmail = False AND blnAdmin = False Then
		
	%>
<table class="errorTable" cellspacing="1" cellpadding="3" align="center">
  <tr>
    <td><img src="<% = strImagePath %>error.png" alt="<% = strTxtError %>" /> <strong><% = strTxtError %></strong></td>
  </tr>
  <tr>
    <td><% = strTxtYouCanNotEmail & " " & strToUser & ", " & strTxtTheyHaveChoosenToHideThierEmailAddr %></td>
  </tr>
</table><br /><%

	'Else show the form so the person can be emailed
	Else

%>
<form method="post" name="frmEmailMsg" id="frmEmailMsg" action="email_messenger.asp<% = strQsSID1 %>" onSubmit="return CheckForm();" onReset="return confirm('<% = strResetFormConfirm %>');"> 
 <table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
    <tr class="tableLedger">
         <td colspan="2"><% = strTxtEmailMessenger %></td>
     </tr>
     <tr class="tableRow"> 
         <td colspan="2">*<% = strTxtRequiredFields %></td> 
        </tr> 
        <tr class="tableRow"> 
         <td align="right" width="15%"><% = strTxtRecipient %>:</td> 
         <td width="70%"><% = strToUser %></td> 
        </tr> 
        <tr class="tableRow"> 
         <td align="right" width="15%"><% = strTxtSubjectFolder %>*:</td> 
         <td width="70%"> <input type="text" name="subject" size="30" maxlength="41" tabindex="1"></td> 
        </tr> 
        <tr class="tableRow"> 
         <td valign="top" align="right" width="15%"><% = strTxtMessage %>*:<br /> 
          <br /> 
          <span class="smText"><% = strTxtNoHTMLorForumCodeInEmailBody %></span></td> 
         <td width="70%" valign="top"><textarea name="message" cols="57" rows="12" tabindex="2"></textarea></td> 
        <tr class="tableRow"> 
         <td align="right" width="15%">&nbsp;</td> 
         <td width="70%">&nbsp; 
          <input type="checkbox" name="mySelf" value="True" tabindex="3" /><% = strTxtSendACopyOfThisEmailToMyself %></td> 
        </tr> 
        <tr class="tableBottomRow">
        <td colspan="2" align="center"><input name="SEID" type="hidden" id="to" value="<% = lngToUserID %>"> 
          <input name="postBack" type="hidden" id="postBack" value="true">
          <input type="hidden" name="formID" id="formID" value="" /> 
          <input type="submit" name="Submit" id="Submit" value="<% = strTxtSendEmail %>" tabindex="4" /> 
          <input type="reset" name="Reset" id="Reset" value="<% = strTxtResetForm %>" tabindex="5" /> 
         </td> 
        </tr> 
 </table> 
</form><%
	End If
End If

'Clean up
Call closeDatabase()
%>  
<div align="center"> 
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnLCode = True Then
	
	If blnTextLinks = True Then
		Response.Write("<span class=""text"" style=""font-size:10px"">Bulletin Board Software by <a href=""http://www.webwizforums.com"" target=""_blank"" style=""font-size:10px"">Web Wiz Forums&reg;</a> version " & strVersion & "</span>")
	Else
  		Response.Write("<a href=""http://www.webwizforums.com"" target=""_blank""><img src=""webwizforums_image.asp"" border=""0"" title=""Bulletin Board Software by Web Wiz Forums&reg; version " & strVersion& """ alt=""Bulletin Board Software by Web Wiz Forums&reg; version " & strVersion& """ /></a>")
	End If

	Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright &copy;2001-2008 <a href=""http://www.webwizguide.com"" target=""_blank"" style=""font-size:10px"">Web Wiz</a></span>")
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******

'Display the process time
If blnShowProcessTime Then Response.Write "<span class=""smText""><br /><br />" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "</span>"
%> 
<!-- #include file="includes/footer.asp" -->