大众途昂v6报价及图片:怎么在网页上做一个意见与建议表单,就是网友写好后,点击下提交,就直接到邮箱了那种!

此代码在本地服务器上是无法实现效果的,只有提交到远程才能实现...

以下代码采用VBSCRIPT代码提交表单内容,显示结果是各值分行显示的效果,当然你可以修改以下代码,实现更漂亮的显示格式,此代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<title>邮件发送结果</title>
<%
if trim(request.Form("sendmail"))="" then
response.write "没有找到要发送的目标邮件地址！"
response.end
end if
if request.Form("submit")="" then
response.write "提交按钮的标签是任意的，但名称一定是submit"
response.End()
end if
dim body,username,password,smtp,subject,bottom
body=""
username="mailagent@dreamun.com"
password="mailagent1"
smtp="mail.dreamun.com"
subject="客户给您的留言信息！"
bottom="----"
set JmailMsg=server.createobject("jmail.message")
JmailMsg.mailserverusername=username
JmailMsg.mailserverpassword=password

JmailMsg.addrecipient trim(request.Form("sendmail"))
JmailMsg.from=username
JmailMsg.fromname="自动发送的邮件！"

JmailMsg.charset="gb2312"
JmailMsg.logging=true
JmailMsg.silent=true
JmailMsg.subject=subject
for each items in request.form
if items="sendmail" or items="submit" then
:
else
body=body&items&":"&request.form(items)&"<br>"
end if
next
body=body&bottom
JmailMsg.htmlbody=body

JmailMsg.body="我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持,如果你使用的是我公司的企业邮局，您可以点击上面的《浏览超文本格式邮件》链接来查看该邮件。 "

if not JmailMsg.send(smtp) then
response.write "发送失败！可能是服务器忙，请稍候重发一次。"
response.wirte "<br>Submit Fail,Please Re Submit."
else
response.write "发送成功！"
response.write "<br>Submit OK!"
end if
JmailMsg.close
set JmailMsg=nothing
%>

以上代码可存储在单独的文件里,表单提交值由此文件处理,当然还要在表单结束时插入一句代码:
<input name="sendmail" type="hidden" id="sendmail" value="***@***.***">
其中"***@***.***"替换成你所要发送到的邮箱.