<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>发送表单</title>
</head>
<body>
<script type="text/javascript" language="JavaScript" src="../../../util.metriserve.com/utild8f0.html?un=PAK752&ws=1"></script>
<div id="lineup" style="position: absolute; visibility: visible; z-index:2"><img src="../images/lineup.gif" height="1" width="100%" border="0" hspace="0" vspace="0"></div>
<div id="menu" style="position: absolute; visibility: ; z-index:3" onMouseOver="clearTimeout(ST);" onMouseOut="ST=setTimeout('killfenetre()',500);"></div>
<%
firstname = Request.Form ("firstname")
lastname = Request.Form ("lastname")
jobtitle = Request.Form ("jobtitle")
company = Request.Form ("company")
address = Request.Form ("address")
town = Request.Form ("town")
zipcode = Request.Form ("zipcode")
country = Request.Form ("country")
phone = Request.Form ("phone")
fax = Request.Form ("fax")
email= Request.Form ("email")
office = Request.Form ("office")
Training_Needs= Request.Form ("Training_Needs")
text1 = Request.Form ("industrysector")
employees = Request.Form ("employees")
typeofcompany = Request.Form ("typeofcompany")
comment = Request.Form ("comment")
trainingme = Request.Form ("trainingme")
trainingcie = Request.Form ("trainingcie")
%>
<%
' 创建jmail对象:
Set JMail = Server.CreateObject("JMail.SMTPMail")
set mail=CreateObject("jmail.Message")
mail.Charset ="gb2312"
mail.From ="xuefaxinxiang@gmail.com"
mail.AddRecipient "xuefaxinxiang@gmail.com"
mail.AddRecipient office
mail.MailDomain="xuefaxinxiang.gmail.com"
mail.MailServerUserName = "xuefaxinxiang@gmail.com"
mail.MailServerPassWord = "*********（此处密码见谅）"
mail.subject="联系我们"
' 下面就是填表在内容区填写的内容，&是连接符，vbcrlf表示换行回车:
mess = mess & "---------------Webmail表单开始-------------------" & vbcrlf
mess = mess & "姓名：" & lastname & firstname & vbcrlf
mess = mess & "法名：" & jobtitle & vbcrlf
mess = mess & "归依年份：" & company & vbcrlf
mess = mess & "地址：" & address & vbcrlf
mess = mess & "城市：" & town & vbcrlf
mess = mess & "国家：" & country & vbcrlf
mess = mess & "电话：" & phone & vbcrlf
mess = mess & "电子邮件：" & email & vbcrlf
mess = mess & "---------------Webmail表单结束-------------------"
mail.Body = mess
On Error Resume Next
mail.Send("smtp.gmail.com")
mail.close()
set mail=nothing
response.write "感谢您填写相关信息，我们会尽快与您联系 ！ "
%>
</body>
</html>
我总是收不到邮件 已经调试好几次了 高手们帮忙看看 那里代码写错了 汗