asp中用的jmail发送代码：

章丘做网站的时候，有些客户要求，在网站使用的表单；要发送到企业邮箱中，代码如下 ：

 Dim oJmail
  On Error Resume Next
  Set oJmail=Server.CreateObject("Jmail.Message")
  if 0 = Err Then
   Err=0
    oJmail.Logging=true '起用日志功能
    oJmail.Silent=True     '不将错误返回给操作系统
    oJmail.Charset="gb2312"
    oJmail.From="964560096@qq.com" '设置邮件发送者的邮件地址
    oJmail.FromName="900"          '设置邮件发送者的姓名显示的名称
    oJmail.AddRecipient"964560096@qq.com" '设置接收邮件人的邮箱地址
    'oJmail.AddRecipientCC "" '抄送给谁
    oJmail.MailServerUserName="964560096@qq.com"
    oJmail.MailServerPassword="*****"
    oJmail.Subject="Employment Application Form"'邮件的主题
    dim msg
    msg=msg&""

    
    oJmail.HtmlBody=msg
    oJmail.Send("smtp-ent.21cn.com")
   end if

  oJmail.close
  set oJmail=nothing
  response.write("<script language=＆#106avascript>alert('OK');")
  response.write("</script>")

%>