|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。jmail|函数Asp使用Jmail发信的函数Loster(OICQ:181306)[假如转载请勿删除此信息,感谢!]
函数名:Send_Email()
感化:使用Jmail4.3组件发送E-Mail
参数:
Email:范例:字符串。感化:吸收E-Mail的地点。
E_Subject:范例:字符串。感化:函件主题。
Information:范例:字符串。感化:函件内容。
S_Type:范例:布尔值。感化:是不是为Html格局函件。True为Html格局。False为文本格局。
C_M_Chk:范例:布尔值。感化:Smtp服务器是不是必要身份考证
假如发送乐成,函数将前往True不然前往False
************************************************************************************
FunctionSend_Email(Email,E_Subject,Information,S_Type,C_M_Chk)
ConstC_Email=““发送者的邮箱
ConstC_HostName=““发送者的名字
ConstC_Smtp=“smtp.xxx.com“Smtp服务器地点
ConstC_M_User=““假如Smtp服务器必要考证身份,请输出用户名
ConstC_M_Pass=““请输出暗码
DimSender
Err.Clear
OnErrorResumeNext
IfEmail=""OrInformation=""OrE_Subject=""Then
Send_Email=False
ExitFunction
EndIf
setSender=Server.CreateObject("Jmail.message")
Sender.Logging=true
Sender.From=C_Email
Sender.Fromname=C_HostName
sender.addrecipientEmail
sender.subject=E_Subject
IfS_Type=FalseThen
sender.appendtextInformation
Else
Sender.AppendHtmlInformation
EndIf
sender.maildomain=C_Smtp
IfC_M_Chk=TrueThen
sender.mailserverusername=C_M_User
sender.mailserverpassword=C_M_Pass
EndIf
sender.Priority=1
sender.send(C_Smtp)
IfErr.Number0Then
Send_Email=False
Else
Send_Email=True
EndIf
Err.Clear
EndFunction
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|