http://www.now.cn/support/host/mailtestasp.net
<% inputMailTo = Trim(Request.Form("inputMailTo")) inputMailFrom = Trim(Request.Form("inputMailFrom")) inputMailSubject = Trim(Request.Form("inputMailSubject")) textBoxMailBody = Trim(Request.Form("textBoxMailBody"))
dim ErrMsgInputMailTo,ErrMsgInputMailFrom,ErrMsgInputMailSubject,ErrMsgTextBoxMailBody,MsgSendResult
sendMail
sub sendMail() if inputMailTo = "" then ErrMsgInputMailTo = "不能为空" exit sub end if if ValidateEmail(inputMailTo) = false then ErrMsgInputMailTo = "E-Mail Address Error" exit sub end if if inputMailFrom = "" then ErrMsgInputMailFrom = "不能为空" exit sub end if if ValidateEmail(inputMailFrom) = false then ErrMsgInputMailFrom = "E-Mail Address Error" exit sub end if if inputMailSubject = "" then ErrMsgInputMailSubject = "不能为空" exit sub end if if textBoxMailBody = "" then ErrMsgTextBoxMailBody = "不能为空" exit sub end if
Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = inputMailTo mail.From = inputMailFrom mail.Subject = inputMailSubject mail.Body = textBoxMailBody mail.Send
MsgSendResult = "发送成功!From: " + inputMailFrom + "; To: " + inputMailTo
end sub %> <html> <head> <title>发送邮件 By ASP</title> </head> <body> <div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#eeeeee" id="AutoNumber1"> <form id="formMail" method="post" action=""> <tr> <td width="20%" height="24">收件人地址: </td> <td width="80%" height="24"> <input type="text" id="inputMailTo" name="inputMailTo" size="48" value="<% = inputMailTo %> "> <font color="#ff0000"> <strong> <% = ErrMsgInputMailTo %> </strong> </font> </td> </tr> <tr> <td width="20%" height="24">发件人地址: </td> <td width="80%" height="24"> <input type="text" id="inputMailFrom" name="inputMailFrom" size="48" value="<% = inputMailFrom %> "> <font color="#ff0000"> <strong> <% = ErrMsgInputMailFrom %> </strong> </font> </td> </tr> <tr> <td width="20%" height="24">邮件主题: </td> <td width="80%" height="24"> <input type="text" id="inputMailSubject" name="inputMailSubject" size="48" value="<% = inputMailSubject %> "> <font color="#ff0000"> <strong> <% = ErrMsgInputMailSubject %> </strong> </font> </td> </tr> <tr> <td width="20%" height="24">邮件内容: </td> <td width="80%" height="24"> <textarea id="textBoxMailBody" name="textBoxMailBody" Rows="6" Cols="48"> <% = textBoxMailBody %> </textarea> <font color="#ff0000"> <strong> <% = ErrMsgTextBoxMailBody %> </strong> </font> </td> </tr> <tr> <td colspan="2" align="center"> <input type="submit" value="Send Mail" id="buttonSendMail" name="buttonSendMail"> </td> </tr> <tr> <td colspan="2" align="center" height="24"> </td> </tr> <tr> <td colspan="2" align="center"> <font color="#ff0000"> <strong> <% = MsgSendResult %> </strong> </font> </td> </tr> </form> </table>
</div> </body> </html>
<% Function ValidateEmail(Expression) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[\w\.-]+@[\w\.-]+\.[a-zA-Z]+$" ValidateEmail = objRegExp.Test(Expression) End Function %>
|