📄 etopic.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<!--#include file="functions/sendmail.asp" -->
<%
Response.Buffer = True

Dim strAuthorEmail	
Dim strFormMessage
Dim strEmailBody
Dim blnSentEmail
Dim strSubject
Dim intForumID

blnSentEmail = False

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

If Request.QueryString("tid") = "" OR blnEmail = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect "index.asp"
End If

strFormMessage = "我想你可能对此帖有兴趣" & " " & strMainForumName & " : -"
strFormMessage = strFormMessage & vbCrLf & vbCrLf & strForumPath & "/post.asp?tid=" & Request.QueryString("tid")
strFormMessage = strFormMessage & vbCrLf & vbCrLf & "你的好友" & "," & vbCrLf & strLoggedInUsername & vbCrLf
strSQL = "SELECT timesuser.useremail "
strSQL = strSQL & "FROM timesuser "
strSQL = strSQL & "WHERE (((timesuser.userid)=" & lngLoggedInUserID & "));"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
	strAuthorEmail = rsConn("useremail")
End If
If NOT Request.Form("ToName") = "" AND NOT Request.Form("ToEmail") = "" AND NOT Request.Form("FromName") = "" AND NOT Request.Form("FromEmail") = "" AND NOT Request.Form("message") = "" Then
	Call checkSessionID(Request.Form("sessionID"))
	strEmailBody = "Hi" & " " & Request.Form("ToName") & ","
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "来自" & " " & strLoggedInUsername & "  " & strMainForumName & "."
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "如果这封信违反了论坛规则，请联系论坛管理员" & ": - "
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & strForumEmailAddress
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "附加上原件" & ": - " & "BBS=" & strMainForumName & ";ID=" & lngLoggedInUserID & ";USR= " & strLoggedInUsername & ";"
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "注意回复地址" & " " & Request.Form("FromName") & "."
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "信息已发送" & ": -"
	strEmailBody = strEmailBody & vbCrLf & "---------------------------------------------------------------------------------------"
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & "Hi" & " " & Request.Form("ToName")
	strEmailBody = strEmailBody & vbCrLf & vbCrLf & Request.Form("message")
	strSubject = "公布有趣的论坛" & " " & strWebsiteName
	blnSentEmail = SendMail(strEmailBody, Request.Form("ToName"), Request.Form("ToEmail"), Request.Form("FromName"), Request.Form("FromEmail"), strSubject, strMailComponent, false)
End If
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>

<title>把此主题E-mail给朋友</title>
<script  language="JavaScript">
function CheckForm() {
	var errorMsg = "";
	if (document.frmEmailTopic.ToName.value == ""){
		errorMsg += "\n\t朋友大名 \t- 输入朋友大名";
	}
	if ((document.frmEmailTopic.ToEmail.value=="") || (document.frmEmailTopic.ToEmail.value.length > 0 && (document.frmEmailTopic.ToEmail.value.indexOf("@",0) == - 1 || document.frmEmailTopic.ToEmail.value.indexOf(".",0) == - 1))) {
		errorMsg += "\n\t朋友电子邮件 \t- 输入您朋友的真实电子邮件地址";
	}
	if (document.frmEmailTopic.FromName.value==""){
		errorMsg += "\n\t您的大名 \t- 输入您的大名";
	}
	if ((document.frmEmailTopic.FromEmail.value=="") || (document.frmEmailTopic.FromEmail.value.length > 0 && (document.frmEmailTopic.FromEmail.value.indexOf("@",0) == - 1 || document.frmEmailTopic.FromEmail.value.indexOf(".",0) == - 1))) {
		errorMsg += "\n\t您的电子邮件信箱 \t- 输入您的真实电子邮件地址";
	}
	if (document.frmEmailTopic.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>
<!--#include file="includes/skin.asp" -->
</head>
<body bgcolor="<% = strBgColour %>" text="<% = strTextColour %>" background="<% = strBgImage %>" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" OnLoad="self.focus();">
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr><td align="center"><span class="heading">把此主题发送给朋友</span></td></tr></table>
 <% If blnSentEmail = True Then %>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr><td align="center" height="79" class="text">你的朋友已收到你的邮件</td></tr></table>
<% Else %><br />
<form name="frmEmailTopic" method="post" action="etopic.asp?fid=<% = Request.QueryString("fid") %>&tid=<% = Request.QueryString("tid") %>" onSubmit="return CheckForm();" onReset="return confirm('你确认要重新填写此表单?');">
 <table width="350" border="0" cellspacing="0" cellpadding="1" bgcolor="<% = strTableBorderColour %>" align="center">
 <tr><td>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="<% = strTableBgColour %>">
    <tr><td bgcolor="<% = strTableBgColour %>">
   <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="<% = strTableBgColour %>">
    <tr><td height="174">
    <table border="0" align="center" cellpadding="4" cellspacing="1" width="350">
     <tr align="left" bgcolor="<% = strTableColour %>" background="<% = strTableTitleBgImage %>">
      <td colspan="2" bgcolor="<% = strTableTitleColour %>" background="<% = strTableTitleBgImage %>" class="text">*必填</td>
     </tr>
     <tr  bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
      <td align="left" width="115" nowrap bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>" class="text">朋友姓名*</td>
      <td align="left" bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>" width="234" nowrap>
       <input type="text" name="ToName" size="20" maxlength="20" />
     </tr>
     <tr  bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
      <td align="left" width="115" nowrap class="text" background="<% = strTableBgImage %>">朋友的电子邮件*</td>
      <td align="left" width="234" nowrap background="<% = strTableBgImage %>">
       <input type="text" name="ToEmail" size="20" maxlength="50">
      </td>
     </tr>
     <tr  bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
      <td align="left" width="115" nowrap class="text" background="<% = strTableBgImage %>">您的大名*</td>
      <td align="left" width="234" nowrap background="<% = strTableBgImage %>">
       <input type="text" name="FromName" size="20" maxlength="20" value="<% = strLoggedInUsername %>" onFocus="FromName.value = ''" />
      </td>
     </tr>
     <tr  bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
      <td align="left" width="115" nowrap class="text" background="<% = strTableBgImage %>">您的电子邮件信箱*</td>
      <td align="left" width="234" nowrap background="<% = strTableBgImage %>">
       <input type="text" name="FromEmail" size="20" maxlength="50" value="<% = strAuthorEmail %>" onFocus="FromEmail.value = ''" />
      </td>
     </tr>
     <tr  bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
      <td align="left" colspan="2" background="<% = strTableBgImage %>"><span class="text">贴子内容:</span><br />
       <textarea name="message" cols="40" rows="4" wrap="OFF"><% = strFormMessage %></textarea>
      </td>
     </tr>
     <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>" align="center">
      <td valign="top" colspan="2" background="<% = strTableBgImage %>">
       <p>
        <input type="hidden" name="sessionID" value="<% = Session.SessionID %>" />
        <input type="submit" name="Submit" value="发送" />
        <input type="reset" name="Reset" value="清除" />
       </p>
      </td></tr></table>
   </td></tr></table>
 </td></tr></table>
 </td></tr></table>
</form><% End If %>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr>
  <td align="center" height="34"><a href="JavaScript:onClick=window.close()">关闭窗口</a></td></tr></table>
  <br /><br /><br />
<!--#include file="includes/footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -