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

表单页中:<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

%>