现在一ASP问题请教——提交表单？100相送哦！

[batboy99]

现在一ASP问题请教:
做一个邮件在线发送邮件的程序,参考网址:http://211.99.204.86/support.htm;

功能描述:按要求填好表单后,点击递交,将会把客户的留言内容,包括E-mail等作息发送到指定邮箱中.

如果存放到数据库里，我知道怎么做，可是要提交到指定的邮箱里，如何做呢？
请教你们？谢谢！

[batboy99]

Jaron(唐伯虎点蚊香) ，你好，请问你写的，sub Jmail(email)，sub Cdonts(email)，sub aspemail(email)，是三种不同的方法吗？请问这三种方法，分别需要什么环境支持？谢谢！

[Jaron]

function sendmail(byval mailFrom,mailto,mailsubject,mailbody) '来自,接收人,主题,邮件内容(支持HTML格式)
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.From = mailFrom
myMail.To = mailTo
myMail.cc = mailCC
myMail.Subject = mailSubject
myMail.Body = mailBody
myMail.Send
Set myMail = Nothing
sendmail="邮件已发送至您注册的信箱：<font color=red> "& mailto &"</font>，请登录您的信箱查询邮件内容"
end function

[Jaron]

直接用
sendmail("[e-mail]","[e-mail]","主题","内容")

[Jaron]

根据英文，各自的方法，属性应该都可以看得懂
<%
sub Jmail(email)
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub Cdonts(email)
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail
objCDOMail.To =email
objCDOMail.Subject =topic
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body =mailbody
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub aspemail(email)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=email
sender=SystemEmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>

request提交的信息


Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =""&FromEmail&""
objCDOMail.To =""&tomail&""
objCDOMail.Subject =""&Title&""
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body =""&Content&""
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendResult=0
e=e+1
else
SendResult=1
s=s+1
end if

[jiejifeng]

Jaron(唐伯虎点蚊香) ( ) 的就行，看你空间支持什么，还可以选择用jmail......

[danjingwu]

我是用<form>标签做的，你看看对你有帮助吗？
<FORM action=mailto:[e-mail] method=post encType=text/plain>
</form>

[batboy99]

请问jmail，需要什么支持？

[wguaner]

Dim subject,mytype,name,email,tel,from,add,content
subject=cstr(Request("subject"))
mytype=cstr(Request("mytype"))
name=cstr(Request("name"))
email=cstr(Request("email"))
tel=cstr(Request("tel"))
from=cstr(Request("from"))
add=cstr(Request("add"))
content=cstr(Request("content"))
Dim Jmail
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "gb2312"
Jmail.Logging=true
Jmail.Silent = true
Jmail.Priority = 3
Jmail.From = "xxx@xxx"
Jmail.FromName = "name"
Jmail.MailServerUserName = "xxx@xxx"
Jmail.MailServerPassword = "xxx"
Jmail.AddRecipient "xxx@xxx"
Jmail.Subject = subject
Jmail.Body = content

if not Jmail.Send("smtpserver") then
Response.Redirect("send_failed.htm")
else
Response.Redirect("send_success.htm")
JMail.close
Set JMail=nothing
end if
%>

[bananasmiling]

jmail只要到网上下载一个程序就可以了..它也是发信的组件,,你可以在WWW.GOOGLE.COM搜索最新的JMAIL,,下载最新的程序就可以运行阿信的程序了.<%
sub Jmail(email)
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>
或者:
<%
Dim subject,mytype,name,email,tel,from,add,content
subject=cstr(Request("subject"))
mytype=cstr(Request("mytype"))
name=cstr(Request("name"))
email=cstr(Request("email"))
tel=cstr(Request("tel"))
from=cstr(Request("from"))
add=cstr(Request("add"))
content=cstr(Request("content"))
Dim Jmail
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "gb2312"
Jmail.Logging=true
Jmail.Silent = true
Jmail.Priority = 3
Jmail.From = "xxx@xxx"
Jmail.FromName = "name"
Jmail.MailServerUserName = "xxx@xxx"
Jmail.MailServerPassword = "xxx"
Jmail.AddRecipient "xxx@xxx"
Jmail.Subject = subject
Jmail.Body = content

if not Jmail.Send("smtpserver") then
Response.Redirect("send_failed.htm")
else
Response.Redirect("send_success.htm")
JMail.close
Set JMail=nothing
end if
%>