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

    Conn.Execute("update blog_Content set log_CommNums=log_CommNums+1 where log_ID="&post_logID)

    '评论邮件通知
    Dim email_commid, SQLcomm, log_commcomm
    SQLcomm="Select TOP 1 * FROM blog_Comment Where comm_Author='"&username&"' order By comm_ID Desc "
    Set log_commcomm=conn.execute(SQLcomm)
        email_commid=log_commcomm("comm_ID")
    log_commcomm.Close
    Set log_commcomm=Nothing
    dim email_log_title
    SQLcomm="Select * FROM blog_Content Where log_ID="&post_logID&""
    Set log_commcomm=conn.execute(SQLcomm)
        email_log_title=log_commcomm("log_Title")
    log_commcomm.Close
    Set log_commcomm=Nothing
    If blog_Isjmail Then
        dim emailcontent,emailtitle
        emailtitle = "您发表的文章《"&email_log_title&"》已有客人发表了评论"
        if blog_postFile = 2 then
            emailcontent = "["&username&"]在您的博客中发表了评论,请点击查"&siteURL&"article/"&post_logID&".htm#comm_"&email_commid&"。评论内容如下："&post_Message&""
        else
            emailcontent = "["&username&"]在您的博客中发表了评论,请点击查"&siteURL&"default.asp?id="&post_logID&"#comm_"&email_commid&"。评论内容如下："&post_Message&""
        end if
        call sendmail(blog_email,emailtitle,emailcontent)
'        call sendmail(username,post_logID,email_commid,email_log_title,1,post_Message)
    End If
    '评论邮件通知结束

    set quest = Conn.Execute("select top 1 comm_Content from blog_Comment where comm_ID=" & cID)

    set quest = Conn.Execute("select top 1 a.comm_Content,a.comm_Author,b.log_title,b.log_ID,a.email from blog_Comment a inner join blog_Content b on a.blog_ID=b.log_ID where a.comm_ID=" & cID)

     PostArticle logId, False

        If blog_Isjmail and trim(quest(4))<>"" Then
            dim emailcontent,emailtitle
            emailtitle = "您在"&siteName&"上发表的评论已被回复"
            dim CommUrl
            if blog_postFile = 2 then
                CommUrl = "请点击查看"&siteurl&"article/"&quest(3)&".htm#comm_"&cID&"。"
            else
                CommUrl = "请点击查看"&siteurl&"default.asp?id="&quest(3)&"#comm_"&cID&"。"
            end if
            emailcontent = "尊敬的｛"&quest(1)&"｝，您好，你在["&siteName&"]上发表的关于["&quest(2)&"]日志的评论，现已被["&memName&"]回复，回复内容为：["&replay&"]，"&CommUrl&"谢谢您的评论，欢迎再次光临！"
            call sendmail(quest(4),emailtitle,emailcontent)
end if