<%
mailserver="smtp."&split(C_email,"@")(1)   '邮局服务器地址（smtp服务器地址）   
username=C_email   'smtp服务器验证登陆名（邮局中开设的任何一个信箱的地址）   
password=C_mpwd  'smtp服务器验证密码，即邮箱密码   
receive=C_email   '接受反馈信息的email地址（可以是您的任何有效信箱）   
sender=C_email
sendermail=C_email '发邮件人的EMAIL地址

function sendmail(title,content)    
Set msg=Server.CreateObject("JMail.Message")   
msg.silent=true   
msg.Logging=true   
msg.Charset="gb2312" 
msg.ContentType="text/html"  
msg.MailServerUserName=username   
msg.MailServerPassword=password         
msg.From=sendermail           
msg.FromName=sender   
msg.AddRecipient(receive)   
msg.Subject=title  
    
msg.Body=content
   
msg.Send(mailserver)   
msg.close   
set msg=nothing 
end function

%>