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

Question

把你的标单提交到这样一个叶面
<%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 & " &nbsp;&nbsp; " & 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 = "[email protected]" '您的邮件服务器登录名   
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 & " &nbsp;&nbsp; " & 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模式了

Answer 1

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

Answer 2

你试一下这个<FORM ACTION="mailto:[email protected]" 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>

Answer 3

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