怎样用WEB页面提交表单发送E-MAIL?

来源：百度知道 编辑：UC知道 时间：2024/05/29 07:09:36
就想网页0留言板一样，姓名。年龄，问题，联系方式等项目，用户直接在web页面上填写点提交就发送到我指定的邮箱。服务器空间是不是必须支持ASP的空间，还需要支持其他组件吗？我这有代码大家给看下啊！
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>邮件发送</title>
</head>

<body>
<%
sub SendMail(FormAddress,FormName,SMTPServer,SmtpUser,SmtpPassword,title,body,ToMailAddress)
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent = true
JMail.Logging = true
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
jmail.contenttype ="text/html"
JMail.From = FormAddress ' 发送者地址
JMail.FromName = FormName '发件人姓名
JMail.Subject =title '邮件爱你标题
JMail.MailServerUserName = SmtpUser ' 身份验证的用户名
JMail.MailServerPassword = SmtpPassword ' 身份验证的密码
JMail.Priority = 3
JMail.AddRecipient(ToMailAddress)
JMail.Body = body
JMail

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>邮件发送</title>
</head>

<body>
<%
Function sendEmail(Addressee,Paydisplay)
'##############################自动发送JMAIL邮件函数####################作者saruri 272212557
'所用邮箱必须支持smtp 我建议你用163的 雅虎的好像不支持 服务器要求支持jmail
'Addressee收件人地址
'Paydisplay邮件的内容部分包括支付结果==
mailserver="smtp.163.com" 'smtp服务器地址
mailname="XXXXX@163.com " '发信邮箱
mailpassword="XXXXX" '发信邮箱密码
dim msg
CLStr=Chr(13) & Chr(10)
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpassword
msg.From = mailname
msg.FromName = mailname
msg.AddRecipient (Addressee)