www.gusucode.com > 盐城分类信息网asp源码程序 > admin/user_editmailchk.asp
<!--#include file=conn.asp--> <!--#include file=cookies.asp--> <!--#include file=../config.asp--> <!--#include file=../mail.asp--> <link href="inc_style.css" rel="stylesheet" type="text/css"> <% dim rs,sql,id,email,s1,mailbiaoti email=trim(request("maildizhi")) mailbiaoti=trim(request("mailbiaoti")) s1=trim(request("s1")) if email="" or mailbiaoti="" or s1="" then response.write "<li>没有填写完整!" response.end end if call mail() response.write "<li>发送邮件成功!" cl closedb %> <% sub mail() dim mailbody,Jmail mailbody=""&s1&"" Set Jmail=server.createobject("Jmail.Message") Jmail.Charset ="gb2312" Jmail.Silent =true Jmail.Priority = 3 Jmail.MailServerUserName = mailname Jmail.MailServerPassword = mailpass Jmail.From = mailform Jmail.FromName =""&title&"" Jmail.Subject =""&mailbiaoti&"" Jmail.AddRecipient ""&email&"" Jmail.Body = mailbody Jmail.Send(mailsmtp) Set Jmail=nothing end sub %> <%sub cl()%> <body onLoad="setTimeout(window.close, 2000)"> <%end sub%>