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

表单页中:<form name=formname action="sendok.asp?url=test.asp&[email protected]">,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://com.8s8s.com/it/it7744.htm