用ASP发送邮件

'creat by qqlxinye@tom.com
'time 2008-09-19
'qq:273453129
'web www.qqlxinye.cn
dim outSmtp,outUser,outPsd,recUser,recSubmit,bodyContent,AddAttachment,ifsend
function init_mail(str1,str2,str3,str4,str5,str6,str7)
  outSmtp=str1
  outUser=str2
  outPsd=str3
  recUser=str4
  recSubmit=str5
  bodyContent=str6
  AddAttachment=str7
  if isnull(outSmtp)or isnull(outUser)or isnull(outPsd) or isnull(recUser) or isnull(recSubmit) or isnull(bodyContent)  then
   ifsend=false
  end if
end function
function send()
  if not ifsend then
   Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
  Const cdoSendUsingPort=2
  Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
  Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
  Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
  Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
  Const cdoBasic=1
  Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
  Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"
 
  Dim objConfig ' As CDO.Configuration
  Dim objMessage ' As CDO.Message
  Dim Fields ' As ADODB.Fields
 
  Set objConfig = Server.CreateObject("CDO.Configuration")
  Set Fields = objConfig.Fields
 
  With Fields
  .Item(cdoSendUsingMethod) = cdoSendUsingPort
  .Item(cdoSMTPServer) =outSmtp
  .Item(cdoSMTPServerPort) = 25
  .Item(cdoSMTPConnectionTimeout) = 10
  .Item(cdoSMTPAuthenticate) = cdoBasic
  .Item(cdoSendUserName) = outUser
  .Item(cdoSendPassword) = outPsd
  .Update
  End With
 
  Set objMe