本人网页中需要将用户填写的内容用邮件的方式自动发送出去，请问如何实现?如果需要使用ASP来编写，请问编写的内容如何触发？也就是当点击网页上“发送邮件”的图标时，相关代码应该写在什么地方？本人是个HTML菜鸟，不知道HTML对消息驱动是怎么个处理的，或者干脆就没有这么个概念？
---------------------------------------------------------------
http://www.aspsky.net/article/index.asp?classid=2&Nclassid=32
---------------------------------------------------------------
dim str
str=str&"您好!"
str=str&" dgdggg。"
str=str&"dgfdgdgdgg！<br>"
str=str&" dgdgggfgf。<br>"
str=str&" dgdgg" str=str&"dgdsgdgg。<br>"
str=str&" dgdggg" str=str&"dgdgdgdgg。<br>"
str=str&" dgdgggg！<br>"
str=str&" dfggdg<br>"
str=str&" bbbbbbbbbbb<br>"
str=str&" aaaaaaaaaaa<br>"
filename="test.gif" "附件文件名
path=Server.MapPath("\jefenet\images\" & filename) "附件的路径
Set theMail=Server.CreateObject("CDONTS.NewMail")
theMail.From="test@263.net" "发件人信箱
theMail.To ="test@21cn.com" "收件人信箱
theMail.Subject ="电子邮件功能测试！" "主题
theMail.BodyFormat=0 "定义以Html的格式发送邮件
theMail.MailFormat=0 "定义以Mime的格式发邮件
theMail.Body=Str "邮件正文
On Error Resume Next "如果找不到附件，则跳过
theMail.AttachFile path,filename
theMail.Send
set theMail=nothing
---------------------------------------------------------------
<FORM name=MayorMailBox
onsubmit="return FrontPage_MayorMailBox_Validator(this)"
action=sendmail.asp method=post>
<P>发 信 人 姓 名 ： <INPUT tabIndex=1 maxLength=16 size=16
name=AddresserName> </P>
<P>发信人Email地址： <INPUT tabIndex=2 maxLength=40 size=30
name=AddresserEmailAddress> </P>
<P>发信人联系电话 ： <INPUT tabIndex=3 size=15 name=AddresserTelNo> </P>
<P>发信人联系地址 ： <INPUT tabIndex=4 size=50 name=AddresserAddress> </P>
<P>发信人邮政编码 ： <INPUT tabIndex=5 size=6 name=AddresserPostalCode> </P>
<P>收信人： <SELECT tabIndex=6 size=1 name=AddresseeName> <OPTION
value="beijing@beijing.com" selected>北京市政府</OPTION> <OPTION
value="beijing@beijing.com">代理市长王岐山</OPTION> <OPTION value="beijing@beijing.com">王岐山副市长</OPTION>
<OPTION value="beijing@beijing.com">刘敬民副市长</OPTION> <OPTION value="beijing@beijing.com">张茅副市长</OPTION>
<OPTION value="beijing@beijing.com">翟鸿祥副市长</OPTION> <OPTION
value="beijing@beijing.com">刘志华副市长</OPTION> <OPTION value="beijing@beijing.com">孙安民副市长</OPTION>
<OPTION value=范伯元>范伯元副市长</OPTION> <OPTION
value="beijing@beijing.com">牛有成副市长</OPTION> <OPTION value="beijing@beijing.com">陆昊副市长</OPTION></SELECT>
</P>
<P>标 题： <INPUT tabIndex=7 maxLength=50 size=44 name=MailSubject>
（最多25个汉字）</P>
<DIV align=center>
<P><BIG><STRONG>正 文：<BR></STRONG></BIG><TEXTAREA tabIndex=8 name=MailContext rows=10 cols=74></TEXTAREA>
</P></DIV>
<DIV align=center>
<P><INPUT tabIndex=9 type=submit value=提交 name=Action> <INPUT tabIndex=10 type=reset value=重来 name=ResetButton> </P></DIV>
<DIV align=center></DIV>
</FORM>
senmail.asp
<%
name=Request.Form("AddresserName")
email= Request.Form("AddresserEmailAddress")
tel=Request.Form ("AddresserTelNo")
add= Request.Form("AddresserAddress")
zip= Request.Form("AddresserPostalCode")
to1= Request.Form("AddresseeName")
subj= Request.Form("MailSubject")
cont= Request("MailContext")
set webmail=server.createobject("cdonts.newmail")
webmail.to=to1
webmail.from=email
webmail.subject=subj
webmail.body=cont
webmail.send
set webmail=nothing
response.write "发送成功<br/>"
%>
---------------------------------------------------------------
<%
dim CLStr,msg,mailserver,username,password,receive
mailserver="mail.tjzero.com"
username="zhong@tjzero.com"
password="12345"
receive="wbc@tjzero.com"
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = username
msg.MailServ