新安数据

代码如下:
<％
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "..." 输入smtp服务器验证登陆名
msg.MailServerPassword = "..." 输入smtp服务器验证密码
msg.From = "...@..." 发件人
msg.FromName = FromName
msg.AddRecipient "...@...","...@..." 收件人
msg.Subject = "test" 主题
msg.Body = "this is body!" 正文
msg.Send ("smtp Server Name") smtp服务器地址

set msg = nothing
％>