常用ASP函数集【经验才是最重要的】(13)

        showHtml=showHtml&"</tr>"
    End If
        showHtml=showHtml&"</table>"
    ShowRsArr=showHtml
End Function


'-----------------------------------------外接组件使用函数↓------------------------------------------

Function sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody) 'Jmail 发送邮件
  Set vibo_mail = Server.CreateObject("JMAIL.Message")    '建立发送邮件的对象
  vibo_mail.silent = true                                 '屏蔽例外错误，返回FALSE跟TRUE两值j
  vibo_mail.logging = true                                '启用邮件日志
  vibo_mail.Charset = "gb2312"                            '邮件的文字编码为国标

  'vibo_mail.ContentType = "text/html"                     '邮件的格式为HTML格式
  'vibo_mail.Prority = 1                                   '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

  vibo_mail.AddRecipient to_Email                         '邮件收件人的地址
  vibo_mail.From = from_Email                             '发件人的E-MAIL地址
  vibo_mail.FromName = from_Name                          '发件人姓名
  vibo_mail.MailServerUserName = "system@aaa.com"       '登录邮件服务器所需的用户名
  vibo_mail.MailServerPassword = "asdasd"     '登录邮件服务器所需的密码
  vibo_mail.Subject = mail_Subject                        '邮件的标题