以文本方式查看主题

-  ╋艺 镇╋  (http://wdystv.com/bbs/index.asp)
--  ┣◇网站建设&Web语言  (http://wdystv.com/bbs/list.asp?boardid=4)
----  表单提交邮件代码  (http://wdystv.com/bbs/dispbbs.asp?boardid=4&id=1421)

--  作者:admin
--  发布时间:2008/5/5 9:37:14
--  表单提交邮件代码

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