<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>

<%

    Dim email,topic,mailbody,sendto
        ytopic=request.Form("ytopic")
        yname=request.Form("yname")
        yemail=request.Form("yemail")
    yhome=request.Form("yhome")
    ycontent=request.Form("ycontent")

        mailbody="<div style='font-size:10pt'>"
        mailbody=mailbody+"名字:"+yname+"<br>"
        mailbody=mailbody+"网址:"+yhome+"<br>"
        mailbody=mailbody+"邮件:"+yemail+"<br>"
    mailbody=mailbody+"内容:"+ycontent+"<br>"
    mailbody=mailbody+"</div>"

        topic="[反馈]"+ytopic
        sendto="*****@***.com"
                
        call Jmail(topic,mailbody,sendto)

        sub Jmail(topic,mailbody,sendto)
        on error resume next
        dim JMail
        Set JMail=Server.CreateObject("JMail.Message")
        JMail.Logging = True
        
        jmail.Charset = "GB2312" '邮件的文字编码为国标 
     jmail.ContentTransferEncoding = "base64"   
     jmail.Encoding = "base64"   
    jmail.ISOEncodeHeaders = false
        
        JMail.ContentType = "text/html"
        JMail.From = "*****@***.com"

jmail.MailServerUserName = "*****@***.com" '登录邮件服务器所需的用户名 
jmail.MailServerPassword = "*****" '登录邮件服务器所需的密码 

        JMail.Subject = topic 
        JMail.Body = mailbody
        JMail.AddRecipient  sendto
        JMail.Priority = 3
        JMail.Send("smtp.***.com")
    Set JMail = nothing
    '关闭并清除对象
    JMail.Close()
    Set JMail = Nothing
    if err.number = 0 then
        Response.Write("success=1")
    end if
        end sub
%>

</body>
</html>
