日期:2008-12-26  浏览次数:21188 次

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