急！我是菜鸟，高分求!!我想做一个表单，然后点提交后那些信息以邮件形式发到我的邮箱里

[sygaty_77]

急！我是菜鸟，我想做一个表单，然后点提交后那些信息以邮件形式发到我的邮箱里

能把表单信息以文本格式发到我的信箱就可以了！
我一定给高分

!

[sygaty_77]

在线等

[sygaty_77]

没有一个人告诉我吗？

[WYlslrt]

我见过这例子，想不起来了，楼主等等我找找

[baby678]

把你的标单提交到这样一个叶面
<%sub sendusermail()
on error resume next
topic="您在" & Forumname & "的注册资料"
mailbody=mailbody &"<style>A:visited { TEXT-DECORATION: none }"
mailbody=mailbody &"A:active { TEXT-DECORATION: none }"
mailbody=mailbody &"A:hover { TEXT-DECORATION: underline overline }"
mailbody=mailbody &"A:link { text-decoration: none;}"
mailbody=mailbody &"A:visited { text-decoration: none;}"
mailbody=mailbody &"A:active { TEXT-DECORATION: none;}"
mailbody=mailbody &"A:hover { TEXT-DECORATION: underline overline}"
mailbody=mailbody &"BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}"
mailbody=mailbody &"TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }</style>"
mailbody=mailbody &"<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody &"<TD valign=middle align=top>"
mailbody=mailbody &""&htmlencode(username)&"，您好：<br><br>"
mailbody=mailbody &"下面是您的注册信息：<br>"

'////下面换成你标单中提交的内容

mailbody=mailbody &"密 码："&htmlencode(request("psw"))&"<br>" '////这里换成你标单中的内容


mailbody=mailbody &"<br><br>"
mailbody=mailbody &"<center><font color=red>再次感谢您注册本系统，让我们一起来建设这个网上家园！</font>"
mailbody=mailbody &"</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & Copyright & "    " & Version

select case EmailFlag
case 0
sendmsg="系统未开启邮件功能，请记住您的注册信息。"
case 1
call jmail(useremail)
case 2
call Cdonts(useremail)
case 3
call aspemail(useremail)
case else
sendmsg="系统未开启邮件功能，请记住您的注册信息"
end select
if SendMail="OK" then
if cint(Emailreg)=1 then
sendmsg="您的注册信息和密码已经发往您的邮箱，请使用系统给您的密码登陆。"
else
sendmsg="您的注册信息已经发往您的邮箱，请注意查收。"
end if
else
sendmsg="由于系统错误，给您发送的注册资料未成功。"
end if
end sub

sub Jmail(email,topic,mailbody)
on error resume next
dim JMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=Forum_info(4)
JMail.Sender=Forum_info(5)
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=1
JMail.MailServerUserName = "[e-mail]" '您的邮件服务器登录名
JMail.MailServerPassword = "nihaoma" '登录密码
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub Cdonts(email,topic,mailbody)
on error resume next
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =Forum_info(5)
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,topic,mailbody)
on error resume next
dim mailer,recipient,sender,subject,message
dim mailserver,result
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=email
sender=Forum_info(5)
subject=topic
message=mailbody
mailserver=Forum_info(4)
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub Emailbody(body)
Emailbody=Emailbody &"<style>A:visited { TEXT-DECORATION: none }"
Emailbody=Emailbody &"A:active { TEXT-DECORATION: none }"
Emailbody=Emailbody &"A:hover { TEXT-DECORATION: underline overline }"
Emailbody=Emailbody &"A:link { text-decoration: none;}"
Emailbody=Emailbody &"A:visited { text-decoration: none;}"
Emailbody=Emailbody &"A:active { TEXT-DECORATION: none;}"
Emailbody=Emailbody &"A:hover { TEXT-DECORATION: underline overline}"
Emailbody=Emailbody &"BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}"
Emailbody=Emailbody &"TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }</style>"
Emailbody=Emailbody &"<TABLE border=0 width='95%' align=center><TBODY><TR>"
Emailbody=Emailbody &"<TD valign=middle align=top>"
Emailbody=Emailbody & body
Emailbody=Emailbody &"</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
Emailbody=Emailbody & Copyright & "    " & Version
Emailbody=mailbody
end sub
%>

在后台设置smtp的叶面中加入：
<select name="EmailFlag">
<option value="0" <%if EmailFlag=0 then%>selected<%end if%>>不支持
<option value="1" <%if EmailFlag=1 then%>selected<%end if%>>JMAIL
<option value="2" <%if EmailFlag=2 then%>selected<%end if%>>CDONTS
<option value="3" <%if EmailFlag=3 then%>selected<%end if%>>ASPEMAIL
</select>
就可以选择多种mail模式了

[sygaty_77]

好繁杂呀！
能不能有不需要后台的？

[剑心]

当然可以了啊
这个你会做个form吧
把form的action属性设为你的邮件地址
试试吧
ok

[sygaty_77]

to:wanghr100(灰豆宝宝.net)
你那个需要在本机进行邮件设置！
我需要的是纯代码，
与本地环境没有关系！
直接从网页上发到我的信箱上！

[wanghr100]

你试一下这个

<FORM ACTION="mailto:[e-mail]" METHOD=GET>
主题<INPUT NAME=subject TYPE=input VALUE="">
<p>
内容 <BR>
<TEXTAREA NAME=body COLS=50 ROWS=5>
http://www.cnlk.com
http://www.csdn.net
</TEXTAREA>
<INPUT TYPE=submit VALUE="发邮件">
</FORM>