一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

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

时间:2008-01-18 编辑:简简单单 来源:一聚教程网

表单页中:
,url为提交邮件后转向的页面,mailto为提交的邮箱
表单项定义示例:,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)&"
"
response.write i&":"&request.form(i)&"
"
next
mailfrom0=mailto0 ''这里我将mailfrom跟mailto用了一样,好像无所谓
call sendmail(mailfrom0,mailto0,"用户订单",thisbody)
response.write ""
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
%>

热门栏目