将表单内容向邮件提交的简单实现

表单页中:<form name=formname action="sendok.asp?url=test.asp&mailto=xugj2000@sohu.com">,url为提交邮件后转向的页面,mailto为提交的邮箱
表单项定义示例:<input type=text name=客户姓名>,name取得直接为好,它将在邮件中体现.

以下为sendok.asp文件代码(有些不必要的表单信息比如按钮也做了提交,可以根据具体情况进行剔除)
<%
‘’‘’利用cdont组件发送表单信息至邮箱,要求服务器空间支持cdont.若是其它组件,可改写
‘’‘’url为发送后转向网址
‘’‘’mailto为发送的目标邮箱名称
url=request.querystring("url")
mailto0=request.querystring("mailto")
thisbody=""
for each i in request.Form
thisbody=thisbody&i&":"&request.form(i)&"<br>"
response.write i&":"&request.form(i)&"<br>"
next
mailfrom0=mailto0 ‘’‘’这里我将mailfrom跟mailto用了一样,好像无所谓
call sendmail(mailfrom0,mailto0,"用户订单",thisbody)

response.write "<script>alert(‘’您的订单已提交!感谢您的参与‘’);location.href=‘’<%=url%>‘’;</script>"

Function sendmail(mailfrom,mailto,mailsubject,mailbody)
If (mailto<>"" and mailsubject<>"" and mailbody<>"") Then
dim objmail
set objmail=server.createobject("cdonts.newmail")
objmail.from=mailfrom
objmail.to=mailto
objmail.subject=mailsubject
objmail.body=mailbody
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.send
set objmail=nothing
sendmail=1
Else
sendmail=2
End If
End Function
%>

原文转自：http://www.ltesting.net