|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的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>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。 |
|