<
%
Function fCdoForm(mFrom, mTo, mSubject, mBody, mSmtp, mPort, mTimeout, mUser, mPwd, mAuth, mSend)
Dim msg,iConf
Set msg = Server.CreateObject( " CDO.Message " )
' ----------------------------------------------------------
Set iConf = Server.CreateObject( " CDO.Configuration " )
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/sendusing " ) = mSend
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) = mSmtp
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/smtpserverport " ) = mPort
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout " ) = mTimeout
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/smtpauthenticate " ) = mAuth
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/sendusername " ) = mUser
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/sendpassword " ) = mPwd
iConf.Fields.Update
' ----------------------------------------------------------
Set msg.Configuration = iConf
msg.From = mFrom
msg.To = mTo
msg.Subject = mSubject
msg.HTMLBody = mBody
On Error Resume Next
msg.Send
if Err.Number <> 0 then
Response.Write( " <script>alert('邮件发送失败,请填写有效的电子邮件!');history.back();</script> " )
' Response.Write(Err.Description)
Response.End()
else
Response.Write( " <script>alert('发送成功!');location.href='SendEmail.asp';</script> " )
end if
Set iConf = Nothing
Set msg = Nothing
End Function
If Request.QueryString( " action " ) = " send " Then
Dim iFrom,iTo,iSubject,iBody,iSmtp,iPort,iTimeout,iUser,iPwd,iAuth,iSend
iFrom = Trim (Request.Form( " mFrom " ))
iTo = Trim (Request.Form( " mTo " ))
iSubject = Trim (Request.Form( " mSubject " ))
iBody = Trim (Request.Form( " mBody " ))
iSmtp = Trim (Request.Form( " mSmtp " ))
iPort = Trim (Request.Form( " mPort " ))
iTimeout = Trim (Request.Form( " mTimeout " ))
iUser = Trim (Request.Form( " mUser " ))
iPwd = Trim (Request.Form( " mPwd " ))
iAuth = Trim (Request.Form( " mAuth " ))
iSend = Trim (Request.Form( " mSend " ))
Call fCdoForm(iFrom,iTo,iSubject,iBody,iSmtp,iPort,iTimeout,iUser,iPwd,iAuth,iSend)
End If
% >
Function fCdoForm(mFrom, mTo, mSubject, mBody, mSmtp, mPort, mTimeout, mUser, mPwd, mAuth, mSend)
Dim msg,iConf
Set msg = Server.CreateObject( " CDO.Message " )
' ----------------------------------------------------------
Set iConf = Server.CreateObject( " CDO.Configuration " )
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/sendusing " ) = mSend
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) = mSmtp
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/smtpserverport " ) = mPort
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout " ) = mTimeout
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/smtpauthenticate " ) = mAuth
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/sendusername " ) = mUser
iConf.Fields( " http://schemas.microsoft.com/cdo/configuration/sendpassword " ) = mPwd
iConf.Fields.Update
' ----------------------------------------------------------
Set msg.Configuration = iConf
msg.From = mFrom
msg.To = mTo
msg.Subject = mSubject
msg.HTMLBody = mBody
On Error Resume Next
msg.Send
if Err.Number <> 0 then
Response.Write( " <script>alert('邮件发送失败,请填写有效的电子邮件!');history.back();</script> " )
' Response.Write(Err.Description)
Response.End()
else
Response.Write( " <script>alert('发送成功!');location.href='SendEmail.asp';</script> " )
end if
Set iConf = Nothing
Set msg = Nothing
End Function
If Request.QueryString( " action " ) = " send " Then
Dim iFrom,iTo,iSubject,iBody,iSmtp,iPort,iTimeout,iUser,iPwd,iAuth,iSend
iFrom = Trim (Request.Form( " mFrom " ))
iTo = Trim (Request.Form( " mTo " ))
iSubject = Trim (Request.Form( " mSubject " ))
iBody = Trim (Request.Form( " mBody " ))
iSmtp = Trim (Request.Form( " mSmtp " ))
iPort = Trim (Request.Form( " mPort " ))
iTimeout = Trim (Request.Form( " mTimeout " ))
iUser = Trim (Request.Form( " mUser " ))
iPwd = Trim (Request.Form( " mPwd " ))
iAuth = Trim (Request.Form( " mAuth " ))
iSend = Trim (Request.Form( " mSend " ))
Call fCdoForm(iFrom,iTo,iSubject,iBody,iSmtp,iPort,iTimeout,iUser,iPwd,iAuth,iSend)
End If
% >