主题：表单提交邮件代码

关键词： 表单提交邮件                                          
    以下代码采用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="***@***.***">
其中"***@***.***"替换成你所要发送到的邮箱.
    另外,请注意,此代码在本地服务器上是无法实现效果的,只有提交到远程才能实现...