jmail发送页面给多个邮件
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<%' on error resume next
sql="insert into bd(a1,a2,a3,a4,a5,a6,a7,a8,a9) values('"&request("select")&"','"&request("textfield")&"','"&request("textfield2")&"','"&request("textfield3")&"','"&request("select2")&"','"&request("textfield4")&"','"&request("textfield5")&"','"&request("textfield6")&"','"&request("textarea")&"')"
Function JMail(Email)
''自动发送Email
set jmail = server.CreateObject("jmail.message") ''创建对象
jmail.Silent = true ''一般不用改
jmail.Charset = "utf8" ''信件的语言编码
jmail.ContentType = "text/html" ''信件的格式html或纯文本
jmail.From = "public@rmtonlinejp.com" ''发信人邮箱
jmail.FromName = "rmtonline" ''发信人姓名
jmail.Subject = "rmtonline定单" ''信件主题
' email = "jsycywm@126.com" ''收信人地址
jmail.AddRecipient Email
jmaibody = " <html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=shift_jis""><META HTTP-EQUIV=""pragma"" CONTENT=""no-cache""><META HTTP-EQUIV=""Cache-Control"" CONTENT=""no-cache, must-revalidate""><link href=""http://www.rmtonlinejp.com/text.css"" rel=""stylesheet"" type=""text/css"" />"
jmaibody = jmaibody & "<style type=""text/css"">"
jmaibody = jmaibody & "<!--"
jmaibody = jmaibody & "body {"
jmaibody = jmaibody & " margin-left: 0px;"
jmaibody = jmaibody & " margin-top: 0px;"
jmaibody = jmaibody & " margin-right: 0px;"
jmaibody = jmaibody & " margin-bottom: 0px;"
jmaibody = jmaibody & "}"
jmaibody = jmaibody & ".STYLE2 {"
jmaibody = jmaibody & " color: #FF0000;"
jmaibody = jmaibody & " font-weight: bold;"
jmaibody = jmaibody & "}"
jmaibody = jmaibody & "-->"
jmaibody = jmaibody & "</style></head><body><img src='"&request("picurl")&"' width=""104"" height=""22"" />"
jmaibody = jmaibody & " <table width=""100%"" border=""1"">"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#EEEEEE"" class=""text"">僒乕僶乕柤 *</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><select name=""select"" class=""text"">"
jmaibody = jmaibody & " <option selected=""selected"">"&request("select")&"</option>"
jmaibody = jmaibody & " </select></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#EEEEEE"" class=""text"">庴庢僉儍儔柤 *</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><label>"
jmaibody = jmaibody & " <input name=""textfield"" type=""text"" value="""&request("textfield")&""" />"
jmaibody = jmaibody & " </label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#eeeeee"" class=""text"">峸擖婓朷岥悢*</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><input type=""text"" name=""textfield2"" value="""&request("textfield2")&""" />"
jmaibody = jmaibody & " 口</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#eeeeee"" class=""text"">嬥妟丗 (墌)</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><label>"
jmaibody = jmaibody & " <input name=""textfield3"" type=""text"" value="""&request("textfield3")&""" readonly />"
jmaibody = jmaibody & " </label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#eeeeee"" class=""text"">偛婓朷偺偍巟暐曽朄 * </td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><label>"
jmaibody = jmaibody & " <select name=""select2"">"
jmaibody = jmaibody & " <option selected>"&request("select2")&"</option>"
jmaibody = jmaibody & " </select> </label></td> </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#eeeeee"" class=""text"">偍巟暐偄柤媊 * </td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><label>"
jmaibody = jmaibody & " <input name=""textfield4"" type=""text"" value="""&request("textfield4")&""" />"
jmaibody = jmaibody & " <br />"
jmaibody = jmaibody & " 偐傫偨傫寛嵪偺曽偼yahooID傪丄怳崬傒偺曽偼娍帤偱婰擖壓偝偄丅。</label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#eeeeee"" class=""text"">偍巟暐偄柤媊 (僇僞僇僫) </td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><label>"
jmaibody = jmaibody & " <input name=""textfield5"" type=""text"" value="""&request("textfield5")&""" />"
jmaibody = jmaibody & " <br />"
jmaibody = jmaibody & " 拲)怳崬傒偺曽偼昁偢僇僞僇僫傪婰擖壓偝偄丅。</label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#eeeeee"" class=""text STYLE2"">儊乕儖傾僪儗僗 *</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><label>"
jmaibody = jmaibody & " <input name=""textfield6"" type=""text"" value="""&request("textfield6")&""" />"
jmaibody = jmaibody & " </label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td bgcolor=""#EEEEEE"" class=""text"">旛峫棑</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & " <td class=""text""><label>"
jmaibody = jmaibody & " <textarea name=""textarea"" cols=""40"" rows=""5"">"&request("textarea")
jmaibody = jmaibody & "</textarea>"
jmaibody = jmaibody & " </label></td> </tr> <tr> <td class=""text""> </td> </tr>"
jmaibody = jmaibody & "</table> </body></html>"
jmail.Body = jmaibody
response.write jmaibody
jmail.MailServerUserName = "rmtonlinejp@ykbm.com" ''服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = "rmtonlinejp" ''服务器登陆密码(您的邮件密码)
jmail.Send("mail.ykbm.com") ''服务器地址
jmail.Close
set jmail = Nothing
End Function
Email = "jcm810yt@bird.ocn.ne.jp,ywm998@163.com,ywm998@126.com"
Dim SplEmail
SplEmail = Split(Email,",")'假定多个Email地址用逗号隔开，分割成数组
For II = 0 To UBound(SplEmail)
Call JMail(SplEmail(II))
'response.write "<script>alert('第" & II + 1 & "封邮件发送成功!');</script>"
response.write "<script>alert(""ご注文ありがとうございます。すぐメールでご連絡します!"");window.history.go(-1);</script>"
Next
' Call Send_Mail("dicky_gu@ateam.com.cn","dicky_gu@ateam.com.cn","adafdsfads")
response.write "<script>alert(""ご注文ありがとうございます。すぐメールでご連絡します!"");window.history.go(-1);</script>"
%>
