本人网页中需要将用户填写的内容用邮件的方式自动发送出去，请问如何实现?如果需要使用ASP来编写，请问编写的内容如何触发？也就是当点击网页上“发送邮件”的图标时，相关代码应该写在什么地方？本人是个HTML菜鸟，不知道HTML对消息驱动是怎么个处理的，或者干脆就没有这么个概念？
---------------------------------------------------------------
http://www.aspsky.net/article/index.asp?classid=2&Nclassid=32
---------------------------------------------------------------
下面是3个流行的发信组件的发信函数。看看吧。
根据英文，各自的方法，属性应该都可以看得懂
1
2sub Jmail(email)
3Dim JMail,SendMail
4Set JMail=Server.CreateObject("JMail.SMTPMail")
5JMail.Logging=True
6JMail.Charset="gb2312"
7JMail.ContentType = "text/html"
8JMail.ServerAddress=SMTPServer
9JMail.Sender=SystemEmail
10JMail.Subject=topic
11JMail.Body=mailbody
12JMail.AddRecipient email
13JMail.Priority=3
14JMail.Execute
15Set JMail=nothing
16if err then
17SendMail=err.description
18err.clear
19else
20SendMail="OK"
21end if
22end sub
23
24sub Cdonts(email)
25dim objCDOMail
26Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
27objCDOMail.From =SystemEmail
28objCDOMail.To =email
29objCDOMail.Subject =topic
30objCDOMail.BodyFormat = 0
31objCDOMail.MailFormat = 0
32objCDOMail.Body =mailbody
33objCDOMail.Send
34Set objCDOMail = Nothing
35if err then
36SendMail=err.description
37err.clear
38else
39SendMail="OK"
40end if
41end sub
42
43sub aspemail(email)
44Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
45recipient=email
46sender=SystemEmail
47subject=topic
48message=mailbody
49mailserver=SMTPServer
50result=mailer.SendMail(mailserver, recipient, sender, subject, message)
51if err then
52SendMail=err.description
53err.clear
54else
55SendMail="OK"
56end if
57end 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
---------------------------------------------------------------
首先要在主机上注册jmail组件，你的主机上应该有吧，要是没有就安一个，要不然用楼上的方法
email.asp
---------------------------------------------------
1
2If Request("Send") <> Empty Then
3
4yijian=request("ly")
5name=request("xingming")
6tel=request("tel")
7email=request("address")
8
9str1="-------------------"&vbcrlf
10str1=str1&"姓名:"&trim(name)&vbcrlf
11str1=str1&"电话:"&trim(tel)&vbcrlf
12str1=str1&"地址:"&trim(email)&vbcrlf
13str1=str1&"意见:"&yijian&vbcrlf
14str1=str1&"时间:"&now()&vbcrlf
15str1=str1&"----------------------------"
16'response.write str1
17'response.end
18
19Set JMail = Server.CreateObject("JMail.SMTPMail")
20JMail.Charset = "gb2312" '设定邮件的字符集，默认为"US-ASCII" 一般中文用"gb2312"
21JMail.ContentType = "text/plain" '这个邮件的头设置， 默认为 "text/plain" 能设置成你需要的任何情况。 '你想发送HTML信息,改这个头文件为 "text/html"
22JMail.ServerAddress ="webmail.dta.net.cn" 'SERVER的地址。可以有很多的SERVER地址，后可跟端口号
23JMail.Sender = email'邮寄的地址
24JMail.Subject = "标题" '邮件的标题。
25
26JMail.AddRecipient "[email protected]"'加入一个收件者
27'JMail.AddRecipient "[email protected]"'加入一个收件者
28JMail.Body = str1 'E-Mail的主体
29
30JMail.Priority = 3'邮件的优先级，可以范围从1到5。越大的优先级约高，比如，5最高，1最低,一般设置为3
31
32
33JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 'addheader加入一个头信息
34'remote_addr发出请求的机器的IP地址
35JMail.LazySend = false '这个属性是true的话会将邮件放入缓冲直至发出为止，的不到任何的错误信息
36'JMail.silent=true
37JMail.Execute'执行邮件发送到SERVER
38'If JMail.Execute()=false Then
39'Response.write "
<font color="red">服务器出错！</font>
1"
2'Response.End
3'End If
4set jMail=nothing
5
6response.write "
<script language="javascript">alert('已发送!');</script>
1"
1<html>
2<head>
3<title></title>
4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
5</head>
6<body bgcolor="#FFFFFF" leftmargin="0" text="#000000" topmargin="0">
7<form action="fk.asp" method="POST" name="form1" onsubmit="return validinput">
8<table align="center" border="0" cellpadding="0" cellspacing="0" height="522" width="339">
9<tr>
10<td valign="top" width="339">
11<table align="center" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
12<tr>
13<td colspan="2" height="190"> </td>
14</tr>
15<tr>
16<td colspan="2">
17<div align="center"><span class="unnamed2">
18<textarea class="unnamed1" cols="40" name="ly" rows="15" type="text"></textarea>
19</span></div>
20</td>
21</tr>
22<tr>
23<td colspan="2" height="21">
24<table align="center" border="0" cellpadding="2" cellspacing="0" class="unnamed1">
25<tr>
26<td height="22" width="109">姓名：
27<input class="unnamed1" name="xingming" size="8" type="text"/>
28</td>
29<td height="22" width="141">电话：
30<input class="unnamed1" name="tel" size="13" type="text"/>
31</td>
32</tr>
33<tr>
34<td colspan="2">地址：
35<input class="unnamed1" name="address" size="40" type="text"/>
36</td>
37</tr>
38</table>
39</td>
40</tr>
41<tr>
42<td colspan="2" height="5">
43<table align="center" border="0" cellpadding="0" cellspacing="0" width="131">
44<tr>
45<td width="62">
46<div align="center">
47<input name="send" onclick="form_submit();" type="submit" value="提交"/>
48</div>
49</td>
50<td width="69">
51<div align="center">
52<input class="unnamed1" name="reset" type="submit" value="重写"/>
53</div>
54</td>
55</tr>
56</table>
57</td>
58</tr>
59<tr>
60<td colspan="2" height="24"> </td>
61</tr>
62</table>
63</td>
64</tr>
65</table>
66</form>
67</body>
68</html>
1<script language="javascript">
2function form_submit()
3{
4validinput=true;
5
6if (form1.xingming.value==""){
7validinput=false;
8alert("请输入您的姓名！");
9return;
10}
11
12if (form1.ly.value==""){
13validinput=false;
14alert("请输入您的信息！");
15return;
16}
17
18return;
19}
20</script>