📄 sendmail.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLUser.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockUser.asp"-->
<!--#include file="Include/Style.asp"-->
<html>
<head>
<title>发送文章__<%=WebSiteName%></title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="<%=WebSiteMKeywords%>">
<meta name="Description" Content="<%=WebSiteMDescription%>">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<link type="text/css" rel="stylesheet" href="Style/<%=WebSiteStyle%>/Style.css">
<Script Language="JavaScript" src="Include/Function.js"></Script>
<Script Language="JavaScript" src="Include/PopText.js"></Script>
<Script Language="JavaScript">
<!--
function Sendmail_Check() {
if (document.Sendmail.SM_SendmailAddressTo.value=="") {
JS_M_SendmailAddressTo.innerHTML="<font color=#FF0000>请填写收信人邮箱地址</font>"
document.Sendmail.SM_SendmailAddressTo.focus();
return (false);
}
if ((document.Sendmail.SM_SendmailAddressTo.value.indexOf("@")==-1)||(document.Sendmail.SM_SendmailAddressTo.value.indexOf(".")==-1)) {
JS_M_SendmailAddressTo.innerHTML="<font color=#FF0000>请填写正确的邮箱地址</font>"
document.Sendmail.SM_SendmailAddressTo.focus();
return (false);
}
if (document.Sendmail.SM_SendmailSubject.value=="") {
JS_M_SendmailSubject.innerHTML="<font color=#FF0000>请填写邮件主题</font>"
document.Sendmail.SM_SendmailSubject.focus();
return (false);
}
if (document.Sendmail.SM_SendmailAddressFrom.value=="") {
JS_M_SendmailAddressFrom.innerHTML="<font color=#FF0000>请填写发信人邮箱地址</font>"
document.Sendmail.SM_SendmailAddressFrom.focus();
return (false);
}
if ((document.Sendmail.SM_SendmailAddressFrom.value.indexOf("@")==-1)||(document.Sendmail.SM_SendmailAddressFrom.value.indexOf(".")==-1)) {
JS_M_SendmailAddressFrom.innerHTML="<font color=#FF0000>请填写正确的邮箱地址</font>"
document.Sendmail.SM_SendmailAddressFrom.focus();
return (false);
}
if (document.Sendmail.SM_SendmailBodyText.value=="") {
JS_M_SendmailBodyText.innerHTML="<font color=#FF0000>请填写邮件正文</font>"
document.Sendmail.SM_SendmailBodyText.focus();
return (false);
}
return true;
}
//-->
</Script>
</head>
<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">
<!--#include file="Include/Top.asp"-->
<!--#include file="Include/Menu.asp"-->
<!--#include file="Include/Ads2.asp"-->
<center>
<table border="0" cellpadding="0" cellspacing="1" width="780" height="10" class="T_BGColor_1">
<tr>
<td width="205" class="T_TD_BGColor_1_1" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%" height="10">
<tr>
<td height="8"></td>
</tr>
<%if SendmailSearchShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Search.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=SendmailSearchTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="10" align="center" valign="top"><!--#include file="Include/Search.asp"--></td>
</tr>
<%end if%>
<tr>
<td height="1" align="center" valign="top"><!--#include file="Include/Ads7.asp"--></td>
</tr>
<%if SendmailHitsShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Hits.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=SendmailHitsTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="10"><%
dim rsWeekHits
set rsWeekHits=Server.CreateObject("Adodb.RecordSet")
GuSQL="select top "&SendmailHitsNum&" Ar_ID,Ar_Name,Ar_NameColor,Ar_Show,Ar_DateTime,Ar_WeekHits from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' order by Ar_WeekHits desc,Ar_ID desc"
rsWeekHits.open GuSQL,GuConn,1,1
if rsWeekHits.eof and rsWeekHits.bof then
Response.write "<br> <font class=""SilverS12"">没有找到相关数据</font><br><br>"
else
do while not rsWeekHits.eof
Response.write " <img src=""Style/"&WebSiteStyle&"/Title_02.gif"" border=""0""><a href=""Article.asp?ID="&rsWeekHits("Ar_ID")&""" style=""color:"&rsWeekHits("Ar_NameColor")&""" class=""BlackV12"" title="""&rsWeekHits("Ar_Name")&" "&rsWeekHits("Ar_DateTime")&""">"&GuStringCut(rsWeekHits("Ar_Name"),24)&"</a><br>"
rsWeekHits.movenext
loop
end if
rsWeekHits.close
set rsWeekHits=Nothing
%></td>
</tr>
<%end if%>
<tr>
<td height="1"></td>
</tr>
</table></td>
<td width="572" class="T_TD_BGColor_1_2" align="center" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="98%" height="10">
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_R.gif"><table border="0" cellpadding="0" cellspacing="0" width="288" height="26"><tr><td width="45" align="center"><img src="Style/<%=WebSiteStyle%>/TD_T_Sendmail.gif" width="26" height="26" border="0"></td><td width="240" valign="bottom"><font class="WSText">发 送 文 章</font></td></tr></table></td>
</tr>
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="10" align="center" valign="top">
<%
if SendmailAllow="1" and Trim(Request.Form("GuComm"))="Sendmail" then
dim SM_SendmailAddressTo,SM_SendmailSubject,SM_SendmailAddressFrom,SM_SendmailName,SM_SendmailBodyText
dim Gu_SendmailAddressTo,Gu_SendmailSubject,Gu_SendmailAddressFrom,Gu_SendmailName,Gu_SendmailBodyText
Gu_SendmailAddressTo=Trim(Request.Form("SM_SendmailAddressTo"))
SM_SendmailSubject=Trim(Request.Form("SM_SendmailSubject"))
SM_SendmailAddressFrom=Trim(Request.Form("SM_SendmailAddressFrom"))
SM_SendmailName=Trim(Request.Form("SM_SendmailName"))
SM_SendmailBodyText=Trim(Request.Form("SM_SendmailBodyText"))
if SendmailValidationCode="1" and UCase(Trim(Request.Form("GuValidationCodeInput")))<>Request.Cookies("GuValidationCodeCookies") then
Response.write "<center><table border=""0"" cellpadding=""0"" cellspacing=""1"" width=""558"" height=""80"" class=""T_BGColor_2""><tr><td class=""T_TD_BGColor_2_2"" align=""""> <img src=""Style/"&WebSiteStyle&"/Title_07.gif"" width=""60"" height=""60"" border=""0"" align=""absmiddle""> <font class=""RedS12"">发送失败，验证码输入错误</font></td></tr></table></center>"
elseif Gu_SendmailAddressTo="" or SM_SendmailSubject="" or SM_SendmailBodyText="" then
Response.write "<center><table border=""0"" cellpadding=""0"" cellspacing=""1"" width=""558"" height=""80"" class=""T_BGColor_2""><tr><td class=""T_TD_BGColor_2_2"" align=""""> <img src=""Style/"&WebSiteStyle&"/Title_07.gif"" width=""60"" height=""60"" border=""0"" align=""absmiddle""> <font class=""RedS12"">发送失败，请将邮件信息填写完整</font></td></tr></table></center>"
elseif Len(Trim(Request.Form("SM_SendmailBodyText")))>SendmailContentKB then
Response.write "<center><table border=""0"" cellpadding=""0"" cellspacing=""1"" width=""558"" height=""80"" class=""T_BGColor_2""><tr><td class=""T_TD_BGColor_2_2"" align=""""> <img src=""Style/"&WebSiteStyle&"/Title_07.gif"" width=""60"" height=""60"" border=""0"" align=""absmiddle""> <font class=""RedS12"">发送失败，邮件正文字数超过了限制</font></td></tr></table></center>"
else
dim rsAr8,ArticleName,ArticleContent
set rsAr8=Server.CreateObject("Adodb.RecordSet")
GuSQL="select Ar_Name,Ar_Content from "&GuTablePrefix&"_Article where Ar_UserPublish='0' and Ar_ID="&Trim(Request.QueryString("ID"))
rsAr8.open GuSQL,GuConn,1,1
if rsAr8.eof and rsAr8.bof then
Response.write "<center><table border=""0"" cellpadding=""0"" cellspacing=""1"" width=""558"" height=""80"" class=""T_BGColor_2""><tr><td class=""T_TD_BGColor_2_2"" align=""center""><img src=""Style/"&WebSiteStyle&"/Title_07.gif"" width=""60"" height=""60"" border=""0"" align=""absmiddle""> <font class=""MaroonS12"">数据获取失败，没有找到相关文章</font></td></tr></table></center><br><br>"
else
ArticleName=rsAr8("Ar_Name")
ArticleContent=rsAr8("Ar_Content")
rsAr8.close
set rsAr8=Nothing
dim rsSM9,Gu_SendmailBodyOther
set rsSM9=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Config where Co_ID=1"
rsSM9.open GuSQL,GuConn,1,1
if not(rsSM9.eof and rsSM9.bof) then
Gu_SendmailBodyOther=rsSM9("Co_SendmailBodyOther")
end if
rsSM9.close
set rsSM9=Nothing
if SendmailSubject<>"" then
Gu_SendmailSubject=SendmailSubject
else
if SM_SendmailSubject<>"" then
Gu_SendmailSubject=SM_SendmailSubject
else
Gu_SendmailSubject=ArticleName
end if
end if
if SendmailAddressFrom<>"" then
Gu_SendmailAddressFrom=SendmailAddressFrom
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -