<%
on error resume next
if getvalue(false,"vAction")="0" then
err.clear
'
'Send email by smtp
'
Set cdo=Server.CreateObject("cdo.Message")
'
'Smtp server check user logon information
'
strSmtpSender="x@ncccad.net"
strSmtpSenderPassword="x"
strSmtpServer="211.165.132.2"
cdo.TextBody=getvalue(true,"body")
cdo.Subject=getvalue(true,"subject")
cdo.From=strSmtpSender
cdo.To=getvalue(true,"e0")
cdo.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
cdo.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")="1" '//Eable smtp authenticate
cdo.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")=strSmtpSender '//set your username here
cdo.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")= strSmtpSenderPassword '//set your password here
'cdo.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode")= 0x0804
cdo.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= strSmtpServer '//set your password here
cdo.Configuration.Fields.Update()
cdo.Send
set cdo=nothing
if err.number<>"0" then
sa "失败"
else
sa "成功"
end if
end if
%>
.::欢迎访问南充人防信息网::.
