包含zblog邮件通知的词条
- ZBLOG
- 2022-12-19 04:26:19
- 11
今天给各位分享zblog邮件通知的知识,其中也会对进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!
本文目录一览:
- 1、ZBLOG PHP的留言本怎么去掉必须输入邮箱一项
- 2、Jmail群发邮件的源码
- 3、zblog首页怎么修改?
- 4、怎么关闭wordpress新用户注册邮件通知?
- 5、有哪些好的药学邮件订阅或者网站?
- 6、哪位用过zblog,我想设置所有评论和留言都需要审核,怎么操作
ZBLOG PHP的留言本怎么去掉必须输入邮箱一项
首先找到\SCRIPT\common.js文件,找到如下代码,去掉双斜杠
"
if(strEmail==""){
//alert(str01);
//return false;
}
"
然后找到\THEMES\当时所应用的主题\TEMPLATE\b_article_commentpost.html
查找代码label for="inpEmail"#ZC_MSG053#,修改为label for="inpEmail"#ZC_MSG053#(*)!
Jmail群发邮件的源码
试试以下代码:核心就是循环调用发邮件代码就可以了
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%
%
Server.ScriptTimeOut=9999999
Response.Buffer = True
dim FoundErr, ErrMsg, Action
dim MailServerUserName, MailServerPassWord, MailDomain, MailServer
dim MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom, Priority
FoundErr = False
ErrMsg = ""
Action = Trim(Request("action"))
ComeUrl = ""
%
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
HTML
HEAD
TITLE群发邮件系统/TITLE
META http-equiv=Content-Type content="text/html; charset=gb2312"
META content="Microsoft FrontPage 4.0" Name=GENERATOR
STYLE type=text/css
a {text-decoration: none;} /* 链接无下划线,有为underline */
a:link {color: #000000;text-decoration: none;} /* 未访问的链接 */
a:visited {color: #000000;text-decoration: none;} /* 已访问的链接 */
a:hover {color: #ff6600;text-decoration: none;} /* 鼠标在链接上 */
a:active {color: #000000;text-decoration: none;} /* 点击激活链接 */
TD {
FONT-SIZE: 18px; COLOR: #000000; FONT-FAMILY: '宋体';LINE-HEIGHT: 150%;
}
BODY {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
INPUT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
SELECT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
.title
{
background:#0DB432;
color: #ffffff;
font-weight: normal;
}
.border
{
border: 1px solid #0DB432;
}
.tdbg{
background:#f0f0f0;
line-height: 120%;
}
.tdbg1{
background:#A3E2B1;
line-height: 120%;
}
/STYLE
/HEAD
BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0
br
%
Select Case Action
Case "send"
Call sendMail()
Case Else
Call Main()
End Select
If FoundErr = True Then
Response.Write WriteErrMsg(ErrMsg, ComeUrl,"错误信息")
End If
Response.write"/BODY/HTML"
sub main()
If Not IsObjInstalled("JMail.Message") Then
FoundErr=True
ErrMsg = "服务器不支持JMail组件,请正确安装"
Exit Sub
End If
%
form action="wssf.asp?Action=send" method=post
table width="80%" class="border" border="0" cellspacing="1" cellpadding="4" align="center" height="589"
tr
td height="40" colspan="2" align="center" class="title"
pb 群发邮件系统/b/p /td
/tr
tr
td width='30%' class='tdbg1' height="25"strong邮件服务器地址:/strong /td
td class='tdbg' height="25"
input name='MailServer' type='text' id='MailServer' value='smtp.163.com' size='40' FONT color=#ff0000*/FONT
/td
/tr
tr
td width='30%' class='tdbg1' height="25"strong登录用户名一:/strong
/td
td class='tdbg' height="25"
input name='MailServerUserName1' type='text' id='MailServerUserName1' value='XXX' size='40' FONT color=#ff0000*/FONT
/td
/tr
tr
td width='30%' class='tdbg1' height="25"strong登录密码一:/strong
/td
td class='tdbg' height="25"
input name='MailServerPassWord1' type='password' id='MailServerPassWord1' value='***' size='40' FONT color=#ff0000*/FONT
/td
/tr
tr
td width="30%" class="tdbg1" height="25"您的姓名:/td
td class="tdbg" height="25"input name="name" type=text id="name" size=30
FONT color=#ff0000*/FONT/td
/tr
tr
td width="30%" class="tdbg1" height="25"您的E-mail:/td
td class="tdbg" height="25"input name="email" type=text id="email" value="XXX@163.com" size=30
FONT color=#ff0000*/FONT/td
/tr
tr
td width="30%" class="tdbg1" height="25"收件人姓名:/td
td class="tdbg" height="25"input name="toname" type=text id="toname" size=30
FONT color=#ff0000*/FONT/td
/tr
tr
td width="30%" class="tdbg1" height="25"收件人Email:/td
td class="tdbg" height="25"input name="toemail" type="text" id="toemail" size="30" maxlength="100"
FONT color=#ff0000*/FONT/td
/tr
tr
td width="30%" class="tdbg1" height="25"邮件标题:/td
td class="tdbg" height="25"input type=text name="topic" size=30
FONT color=#ff0000*/FONT/td
/tr
tr
td width="30%" class="tdbg1" height="500"邮件内容:/td
td class="tdbg" height="500"textarea name="body" cols=74 rows=34 id="body"/textarea
FONT color=#ff0000*/FONT/td
/tr
tr
td width="30%" class="tdbg" height="27"/td
td height=27 class="tdbg"
input type="Submit" value="发送邮件" name="Submit"
input type="reset" name="Clear" value="重新填写"
/td
/tr
/table
/form
%
End Sub
Sub sendMail()
MailServer = trim(Request("MailServer")) 'SMTP服务器地址:smtp.163.com, 请修改
MailServerUserName = trim(Request("MailServerUserName")) 'SMTP登录用户名:XXX@163.com, 请修改
MailServerPassWord = trim(Request("MailServerPassWord")) 'SMTP登录密码:***, 请修改,注意大小写
MailDomain = trim(Request("MailDomain")) 'SMTP域名:163.com, 请修改
FromName = trim(Request("name")) '发件人名字
MailFrom = trim(Request("email")) '发件人邮箱
MailtoName = trim(Request("toname")) '发件人名字
MailtoAddress=trim(Request("toemail")) '收件人邮箱
Subject = trim(Request("topic"))
MailBody = trim(Request("body"))
Priority=3
If FromName="" or MailFrom="" or MailtoName="" or Subject="" or MailBody="" then
FoundErr = True
ErrMsg = "请填写完整每一项信息!"
Exit Sub
End If
ErrMsg = JSendMail()
If ErrMsg"" Then
FoundErr = True
Exit Sub
Else
Response.Write WriteErrMsg("", ComeUrl,"成功信息")
End If
End Sub
Function JSendMail()
On Error Resume Next
JSendMail = ""
Dim JMail,tempMessage
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312" '邮件编码
JMail.silent = True
JMail.ContentType = "text/html" '邮件正文格式
JMail.ServerAddress=MailServer '用来发送邮件的SMTP服务器
'如果服务器需要SMTP身份验证则还需指定以下参数
JMail.MailServerUserName = MailServerUserName1 '登录用户名
JMail.MailServerPassWord = MailServerPassWord1 '登录密码
JMail.AddRecipient MailtoAddress, MailtoName '收信人
JMail.Subject = Subject '主题
JMail.HtmlBody = MailBody '邮件正文(HTML格式)
JMail.Body = MailBody '邮件正文(纯文本格式)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = Priority '邮件等级,1为加急,3为普通,5为低级
Dim emailArray
If MailtoAddress="" then
set fsObj = Server.CreateObject("Scripting.FileSystemObject")
FilePath = Server.MapPath("email.txt")
set txtsObj = fsObj.OpenTextFile(FilePath, 1, false)
i = 0
Do While Not txtsObj.atEndOfStream
emailArray(i)=txtsObj.ReadLine
JMail.AddRecipient Trim(emailArray(i)),MailtoName
i=i+1
loop
Else
JMail.AddRecipient MailtoAddress, MailtoName
End If
JMail.Send (MailServer)
tempMessage = JMail.ErrorMessage
JMail.Close
Set JMail = Nothing
If tempMessage"" then
FoundErr = True
JSendMail = tempMessage
end if
Set JMail = Nothing
End Function
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = CreateObject(strClassString)
If Err.Number = 0 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Function WriteErrMsg(sMsg, sComeUrl,Massages)
Dim strMsg
strMsg = strMsg "htmlheadtitle"Massages"/titlemeta http-equiv='Content-Type' content='text/html; charset=gb2312'" vbCrLf
strMsg = strMsg "/headbodybrbr" vbCrLf
strMsg = strMsg "table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center" vbCrLf
strMsg = strMsg " tr align='center' class='title'td height='22'strong"Massages"/strong/td/tr" vbCrLf
if FoundErr=True Then
strMsg = strMsg " tr class='tdbg'td height='100' valign='top'b产生错误的可能原因:/b" sMsg "/td/tr" vbCrLf
Else
strMsg = strMsg " tr class='tdbg'td height='100' valign='top'brb恭喜,成功用JMail发送邮件!/b" sMsg "/td/tr" vbCrLf
End If
strMsg = strMsg " tr align='center' class='tdbg'td"
If sComeUrl "" Then
strMsg = strMsg "a href='javascript:history.go(-1)' 返回上一页/a"
Else
strMsg = strMsg "a href='javascript:window.close();'【关闭】/a"
End If
strMsg = strMsg "/td/tr" vbCrLf
strMsg = strMsg "/table" vbCrLf
strMsg = strMsg "/body/html" vbCrLf
WriteErrMsg = strMsg
End Function
%
zblog首页怎么修改?
请说具体点,你的意思是说首页导航条的文字吗?如果是导航条的文字,你可以--登录后台--链接管理--里修改!
怎么关闭wordpress新用户注册邮件通知?
关闭wordpress新用户注册邮件通知方法:
打开wp-includes/pluggable.php 文件
搜索定位到:
代码如下 wp_mail(get_option(‘admin_email’), sprintf(__(‘[%s] New User Registration’), $blogname), $message);
注释之,保存即可。
代码如下 //wp_mail(get_option(‘admin_email’), sprintf(__(‘[%s] New User Registration’), $blogname), $message);
上面这个方法是直接去掉邮件通知功能
有哪些好的药学邮件订阅或者网站?
临床药学目前是一门很火的专业,因为我国临床药师配备的缺口很大,这个专业的实践性非常强,对个人的素质和学习能力要求特别高,不是谁都适合学这个专业,必须坚持学习的决心,和对病人服务的耐心。
哪位用过zblog,我想设置所有评论和留言都需要审核,怎么操作
还是不懂,怎么设置关键词,描述呀,谢谢啦需要程序的百度一下,zblog
zblog邮件通知的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、zblog邮件通知的信息别忘了在本站进行查找喔。
本文由admin于2022-12-19发表在靑年PHP官网,如有疑问,请联系我们。
本文链接:https://www.qnphp.com/post/35660.html