推荐下天枫常用ASP函数封装，推荐大家使用(19)

        if err then
            SendMail= "没有安装JMail组件"
            err.clear
            exit function
        end if
        JMail.Logging=True
        JMail.Charset="gb2312"
        JMail.ContentType = "text/html"
        JMail.ServerAddress=MailServerAddress
        JMail.AddRecipient=AddRecipient
        JMail.Subject=Subject
        JMail.Body=MailBody
        JMail.Sender=Sender
        JMail.From = MailFrom
        JMail.Priority=1
        JMail.Execute 
        Set JMail=nothing 
        if err then 
            SendMail=err.description
            err.clear
        else
            SendMail="OK"
        end if
    end function

    '****************************************************
    '函数名：ResponseCookies
    '作  用：写入COOKIES
    '参  数：Key ----cookie名
    '        value ----cookie值
    '        expires ---- cookie过期时间
    '****************************************************
    Public Function ResponseCookies(Key,Value,Expires)
        DomainPath=Left(Request.ServerVariables("script_name"),inStrRev(Request.ServerVariables("script_name"),"/"))
        Response.Cookies(Key)=""&Value&""
        if Expires<>0 then Response.Cookies(Key).Expires=date+Expires
        Response.Cookies(Key).Path=DomainPath
    End Function