评论留言增加邮箱网址及博主回复通知评论留言人 For Pj3  157（11/2日修改网址判断）

   showmsg "回复信息","回复留言成功!<br/><a href=""LoadMod.asp?plugins=GuestBookForPJBlog"">单击返回留言本</a>","MessageIcon","plugins"

    '留言邮件通知
        Dim SQLcomm, log_commcomm
        SQLcomm="Select TOP 1 * FROM blog_book Where book_ID="&MsgID
        Set log_commcomm=conn.execute(SQLcomm)
        if trim(log_commcomm("email"))<>"" then
            dim emailcontent,emailtitle
            emailtitle = "您在"&siteName&"上发表的留言已被回复"
            emailcontent = "尊敬的｛"&log_commcomm("book_Messager")&"｝，您好，您在["&siteName&"]上发表的留言，现已被["&memName&"]回复，回复内容为：["&MsgReplyContent&"]，请点击查看"&siteURL&"LoadMod.asp?plugins=GuestBookForPJBlog#book_"&MsgID&"。谢谢您的留言，欢迎再次光临！"
            call sendmail(log_commcomm("email"),emailtitle,emailcontent)
    '        call sendmail(username,"",email_bookid,"",0,post_Message)
        end if
        log_commcomm.Close
        Set log_commcomm=Nothing
    '留言邮件通知结束

%>

Function IsRightUrl(UrlStrng)  '网址判断
  Dim regEx, retVal
  Set regEx = New RegExp
  regEx.Pattern = "^((https|http|ftp|rtsp|mms)?://)?(([0-9a-z_!~*'().&=+$%-]+: )?[0-9a-z_!~*'().&=+$%-]+@)?(([0-9]{1,3}\.){3}[0-9]{1,3}|([0-9a-z_!~*'()-]+\.)*([0-9a-z][0-9a-z-]{0,61})?[0-9a-z]\.[a-z]{2,6})(:[0-9]{1,4})?((/?)|(/[0-9a-z_!~*'().;?:@&=+$,%#-]+)+/?)$"
  regEx.IgnoreCase = False
  retVal = regEx.Test(UrlStrng)


  If retVal Then
    IsRightUrl = true
  Else
    IsRightUrl = false
  End If
End Function

Function sendmail(username,post_logID,email_commid,email_log_title,comm,post_Message)  '邮件发送

End Function

Function sendmail(blogemail,emailtitle,emailcontent)  '邮件发送
    on error resume next
    if trim(blog_jmail)="1" then
            Set msg = Server.CreateObject("JMail.Message")
            msg.silent = true
            msg.Logging = true
            msg.Charset = "gb2312"
            msg.MailServerUserName = blog_smtpuser
            msg.MailServerPassword = blog_smtppassword  
            msg.From = blog_smtpmail
            msg.FromName = sitename
            msg.AddRecipient blogemail,sitename
            msg.Subject = emailtitle
            msg.Body = emailcontent
            msg.Send(blog_smtp)
            msg.close
            set msg = nothing
    Else
            Set objMail = Server.CreateObject("CDONTS.NewMail")
            objMail.To = blogemail
            objMail.From =blog_smtpmail
            objMail.Subject = emailtitle
            objMail.Body = emailcontent
            objMail.Send
            Set objMail = Nothing
    End If
End Function