JMailSpoof v0.1

<%if request("action")="send" then%> <% Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = Request("title") strContent = Request("content") strSender = Request("Name") strEmail = Request("to") strMailAddress = Request("smtp") strMailUser = Request("usr") strMailPass = Request("pwd") Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" JMail.From = Request("From") JMail.FromName = strSender JMail.Subject =strSubject JMail.MailServerUserName = strMailUser JMail.MailServerPassword = strMailPass JMail.Priority = 3 JMail.AddRecipient(strEmail) JMail.Body = strContent JMail.Send(strMailAddress) %> <% else %> JMailSpoof v0.1

JMailSpoof by lake2

SMTP服务器*
用户名*
密码*
收件人邮箱*
发件人邮箱*
邮件主题*
发件人姓名*
内容：*

<%end if%>