- 程序有所改变。发帖如还有问题请报告
- 【征集】西西河的经济学，及清流措施，需要主动参与者，『稷下学宫』新认证方式，24年网站打算和努力目标
主题：【求助！】请问谁比较懂网页技术？ -- airman
家园 【求助！】请问谁比较懂网页技术？ 最近帮朋友做个网页，需要弄个提交表单。不用提交到数据库，直接邮件发送就可以。
在网上找了段代码，可是传到服务器上却不能成功发送。哪位高人给看看，是否需要修改。
因为网页代码比较长（其实应该可以删不少，不过我对asp实在不是很懂，所以就全文复制了），我发在回帖中。
请高手帮忙，谢谢！
家园 用下面的代码放到一个ASP文件中，测试一下邮件功能是否正常 是不能发送，还是有错误信息，还是没有收到？
根据自己以前了解的，下面这段代码应该可以直接给你设定的邮件地址发送邮件来测试邮件功能是否正常。必要的注释我已经加了，需要修改的地方也说明了。你可以修改一下然后放到网站上直接运行这个看看是否有出错信息。
另外，文档可以在这里找到 www.dimac.net
<%@ Language = VBScript %>
<%
dim jamil, isgo, msg
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
jmail.From = "your own email address here"
jmail.FromName = "For Test"
jmail.ReplyTo = "Your own email address here"
jmail.Subject = "测试用"
jmail.AddRecipient "email address you want to send info to"
jmail.Body = "测试内容" '' should be jmail.HTMLBody="blabla.." 如果你需要HTML格式的邮件的话
jmail.MailServerUserName = smtpuser '' 替换为你的邮件地址的用户名
jmail.MailServerPassWord = smtppwd ''你的邮件地址的密码
isgo = jmail.Send(smtpserver) '''发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改
if isgo then
msg="邮件发送成功！谢谢你的支持。"
else
msg = jmail.ErrorMessage
end if
response.write msg
response.end
%>
家园 HTTP500 内部服务器错误 关于“isgo = jmail.Send(smtpserver) '''发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改”
这句，请问该在哪里修改？
另外，您所说的“下面这段代码应该可以直接给你设定的邮件地址发送邮件来测试邮件功能是否正常”中红字的意思我不太理解？我在哪里设定的？您是指之前的语句里面设定的？
呵呵，不好意思，对这个完全是个小学生，问题弱智，见谅、见笑~！
家园 这几个地方需要设定 假设你的网站是 www.example.com
假设你的邮件地址是 [email protected]
假设你邮件地址的密码是 airmanman
假设要发给 [email protected]
以下需要修改为：
jmail.From = "[email protected]"
jmail.ReplyTo = "[email protected]"
jmail.AddRecipient "[email protected]"
jmail.MailServerUserName = "airman"
jmail.MailServerPassWord = "airmanman"
isgo = jmail.Send("smtp.example.com")
不过，估计直接用 www.example.com也可以
另外，要实际使用的话，有必要对用户的输入信息做必要的html编码。记不得在ASP中怎么做了，应该有那么一个函数，也许是 htmlentities 。
家园 谢谢！ 还是不成功。
jmail.MailServerUserName = "airman"而不是"[email protected]"？
jmail.AddRecipient "[email protected]"
这个中间没有"="？
我也再研究研究。
- 复 谢谢！
家园 好像是有点错 MailServerUserName 可能是 airman 也可能是 [email protected]
取决于你的系统是怎么设定的。可以参考你的，比如OUTLOOK EXPRESS里的设定。
AddRecipient 这个可能我有疏忽。这是个FUNCTION，所以，也许应该是 AddRecipient("[email protected]") 这样的形式。
你试试看。VB快忘没了。
家园 网上的代码（三） </tr>
<tr bordercolor="#CCCCCC">
<td width="78"><P>血型</P></td>
<td width="51"><input name="xuexing" type="text" size="10"></td>
<td width="55">身高</td>
<td width="83"><input name="shengao" type="text" size="10"></td>
<td width="69">婚姻状况</td>
<td width="83"><input name="henyin" type="text" size="10"></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">外语类别</td>
<td width="51"><input name="wanyu" type="text" size="10"></td>
<td width="55">外语等级</td>
<td width="83"><input name="dengji" type="text" size="10"></td>
<td width="69">计算机等级</td>
<td width="83"><input name="jisuanji" type="text" size="10"></td>
<td width="60">职称或专业资格</td>
<td width="69"><input name="zhicheng" type="text" size="10"></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">E-MAIL</td>
<td colspan="3"><input name="email" type="text" id="email" size="25"></td>
<td width="69">电话</td>
<td width="83"><input name="dianhua" type="text" id="dianhua" size="10"></td>
<td width="60">工作年限</td>
<td width="69"><input name="gongzuo" type="text" id="gongzuo" size="10"></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">求职意向</td>
<td colspan="7"><textarea name="qiuzhi" cols="60" rows="2" id="qiuzhi"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78" rowspan="2">教育经历</td>
<td colspan="2">毕业院校</td>
<td width="83">学历</td>
<td width="69">所学专业</td>
<td width="83">学位</td>
<td colspan="2">起止时间</td>
</tr>
<tr>
<td colspan="2"><textarea name="yuanxiao" cols="10" rows="2" id="yuanxiao">（从最高学历开始填写）</textarea></td>
<td width="83"><textarea name="xueli" cols="10" rows="2" id="xueli"></textarea></td>
<td width="69"><textarea name="zhuanye" cols="8" rows="2" id="zhuanye"></textarea></td>
<td width="83"><textarea name="xuewei" cols="10" rows="2" id="xuewei"></textarea></td>
<td colspan="2"><textarea name="shijian0" cols="10" rows="2" id="shijian0"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78" rowspan="2">主要工作经历</td>
<td colspan="2">工作单位</td>
<td colspan="2">时间</td>
<td width="83">部门及职务</td>
<td colspan="2">异动原因</td>
</tr>
<tr>
<td colspan="2"><textarea name="danwei" cols="13" rows="2" id="danwei"></textarea></td>
<td colspan="2"><textarea name="shijian1" cols="10" rows="2" id="shijian1"></textarea></td>
<td width="83"><textarea name="bumen" cols="10" rows="2" id="bumen"></textarea></td>
<td colspan="2"><textarea name="yidong" cols="10" rows="2" id="yidong"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">个人档案存放地址</td>
<td colspan="7"><textarea name="dangan" cols="70" rows="2" id="dangan"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78" rowspan="2">技能培训情况</td>
<td colspan="2">培训内容</td>
<td colspan="3">培训单位和主要讲师</td>
<td colspan="2">时间</td>
</tr>
<tr>
<td colspan="2"><textarea name="peixunneirong" cols="15" rows="2"></textarea></td>
<td colspan="3"><textarea name="peixundanwei" cols="20" rows="2"></textarea></td>
<td colspan="2"><textarea name="shijian2" cols="13" rows="2"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">行业工作经验</td>
<td colspan="7"><textarea name="hangye" cols="70" rows="2"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">主要工作成绩/奖罚</td>
<td colspan="7"><textarea name="chengji" cols="70" rows="2"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">自我评价（兴趣爱好、特长技能）</td>
<td colspan="7"><textarea name="pingjia" cols="70" rows="2"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">你对未来发展的想法与规则</td>
<td colspan="7"><textarea name="weilai" cols="70" rows="2"></textarea></td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78" height="28">目前薪酬</td>
<td colspan="3"><input name="muqian" type="text" id="muqian" value="" size="20"></td>
<td width="69">期望薪酬</td>
<td colspan="3"><input name="qiwang" type="text" id="qiwang" value="" size="20"></td>
</table></td>
</tr>
<tr>
<td colspan="4" class=forumrow>您的姓名：
<input name=name type=text id="name" size=12>
你的E-mail：
<input name=email type=text id="email" size=22>
邮件标题：
<input name=topic type=text value="这里写上标题" size=18>
</td>
</tr>
<tr>
<td width="112" class=forumrow></td>
<td height=20 colspan="3" class=forumrow>
<input type="Submit" value="发送邮件" name="Submit">
<input type="reset" name="Clear" value="重新填写">
</td>
</tr>
</table>
</form><%end if%>
</body>
</html>
完。
提示说只需修改7、8、9、15、16行的“****”内容就可以直接使用，可是我却用不了。服务器支持Jmail组件。
家园 网上的代码（二） jmail.Closeset jmail = nothing
end if
end if
%>
<html>
<head>
<style>
BODY
{
SCROLLBAR-ARROW-dCOLOR:#ff0000;
background:#CAD7F7;
FONT-SIZE: 9pt;
COLOR: #000000;
FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif, 宋体;
background-color: #FFFFFF;
}
A {text-decoration: none; font-size: 9pt;}
A:visited {TEXT-DECORATION: none; color: #555555;}
A:active {TEXT-DECORATION: none; color: #000000;}
A:hover {COLOR: #0099cc; TEXT-DECORATION: underline; TEXT-DECORATION:none; position:relative; left: 1px; top: 1px}
A:link {text-decoration: none; color: #0000A0;}
.t{LINE-HEIGHT: 1.4;}
P {FONT-SIZE:9pt; LINE-HEIGHT: 12pt;}
TD{font-size: 9pt; LINE-HEIGHT: 12pt;}
div {font-size: 9pt;}
input {font-family: "Tahoma", "Verdana"; font-size: 9pt;}
</style>
<title>石药集团人才自荐</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<%if msg<>"" then%>
<br><%=msg%><a href="javascript:history.go(-1)">返回上一页</a>
<%else%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
</table>
<form action="sendmail.asp" method=post>
<table width="560" border="0" align=center cellpadding="2" cellspacing="1" bordercolor="#666666">
<input type="hidden" name="action" value="ok">
<tr>
<td colspan="4" class=forumrow>
</td>
<tr>
<td colspan="4" class=forumrow><table width="100%" border="1">
<tr bordercolor="#CCCCCC">
<th colspan="9" scope="col">
<p align="center"><font color="#FF9933" size="3"><b>石药集团人才自荐</b></font></p> </tr>
<tr bordercolor="#CCCCCC">
<td width="78"><P align=left>姓名</P></td>
<td width="51"><input name="xingming" type="text" size="10"></td>
<td width="55"><P align=left>性别</P></td>
<td width="83"><input name="xingbie" type="text" size="10"></td>
<td width="69"><P align=left>出生年月</P></td>
<td width="83"><input name="chusheng" type="text" size="10"></td>
<td colspan="2" rowspan="3">
照片</td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78">籍贯</td>
<td width="51"><input name="jiguan" type="text" size="10"></td>
<td width="55">民族</td>
<td width="83"><input name="minzu" type="text" size="10"></td>
<td width="69">政治面貌</td>
<td width="83"><input name="zhengzhi" type="text" size="10"></td>
未完..
家园 网上的代码(一) <%@ Language = VBScript %><%
action=request("action")
if action="ok" then
'==================================================
' 参数设置开始，请修改相应参数
smtpserver = "****" '发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改
smtpuser = "****" '与SMTP服务器对应的邮箱用户名，请修改
smtppwd = "****" '与SMTP服务器对应的邮箱密码，请修改
'如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码
'与相应SMTP服务器对应的邮件地址
'注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地
'址，比如163.com的SMTP服务器在检查发信人邮件地址是不是以163.com
'结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的
smtpemail = "****" 'SMTP服务器发信邮箱，请修改
myemail="****" '用来接收邮件的邮箱，请修改,可以与SMTP服务器发信邮箱不同
' 参数设置结束
'==================================================
sendname = trim(Request("name")) '发件人名字
email = trim(Request("email")) '发件人邮箱
topic = trim(Request("topic"))
if sendname="" or email="" or topic="" then
response.write "请填写每一项!<a href=javascript:history.go(-1)>返回上一页</a>"
response.end
end if
mailbody=mailbody &"<style>A:visited { TEXT-DECORATION: none }"
mailbody=mailbody &"A:active { TEXT-DECORATION: none }"
mailbody=mailbody &"A:hover { TEXT-DECORATION: underline }"
mailbody=mailbody &"A:link { text-decoration: none;}"
mailbody=mailbody &"BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}"
mailbody=mailbody &"TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }</style>"
mailbody=mailbody &"<TABLE border=0 width='95%' align=center><TBODY><TR><TD>"
mailbody=mailbody &"您好!我是"&sendname&"<br><br>"
mailbody=mailbody & "姓名: " & request( "xingming" ) &"<br><br>"
mailbody=mailbody & "性别: " & request( "xingbie" ) &"<br><br>"
mailbody=mailbody & "性别: " & request( "xingbie" ) &"<br><br>"
mailbody=mailbody & "出生年月: " & request( "chusheng" ) &"<br><br>"
mailbody=mailbody & "籍贯: " & request( "jiguan" ) &"<br><br>"
mailbody=mailbody & "民族: " & request( "minzu" ) &"<br><br>"
mailbody=mailbody & "政治面貌: " & request( "zhengzhi" ) &"<br><br>"
mailbody=mailbody & "血型: " & request( "xuexing" ) &"<br><br>"
mailbody=mailbody & "身高: " & request( "shengao" ) &"<br><br>"
mailbody=mailbody & "婚姻状况: " & request( "hunyin" ) &"<br><br>"
mailbody=mailbody & "外语类别: " & request( "waiyu" ) &"<br><br>"
mailbody=mailbody & "外语等级: " & request( "dengji" ) &"<br><br>"
mailbody=mailbody & "计算机等级: " & request( "jisuaji" ) &"<br><br>"
mailbody=mailbody & "职称或专业资格: " & request( "zhicheng" ) &"<br><br>"
mailbody=mailbody & "电话: " & request( "dianhua" ) &"<br><br>"
mailbody=mailbody & "工作年限: " & request( "gongzuo" ) &"<br><br>"
mailbody=mailbody & "求职意向: " & request( "qiuzhi" ) &"<br><br>"
mailbody=mailbody & "教育经历-毕业院校: " & request( "yuanxiao" ) &"<br><br>"
mailbody=mailbody & "教育经历-学历: " & request( "xueli" ) &"<br><br>"
mailbody=mailbody & "教育经历-所学专业: " & request( "zhuanye" ) &"<br><br>"
mailbody=mailbody & "教育经历-学位: " & request( "xuewei" ) &"<br><br>"
mailbody=mailbody & "教育经历-起止时间: " & request( "shijian0" ) &"<br><br>"
mailbody=mailbody & "工作经历-工作单位: " & request( "danwei" ) &"<br><br>"
mailbody=mailbody & "工作经历-时间: " & request( "shijian1" ) &"<br><br>"
mailbody=mailbody & "工作经历-部门及职务: " & request( "bumen" ) &"<br><br>"
mailbody=mailbody & "工作经历-异动原因: " & request( "yidong" ) &"<br><br>"
mailbody=mailbody & "个人档案存放地址: " & request( "dangan" ) &"<br><br>"
mailbody=mailbody & "技能培训情况-培训内容: " & request( "peixunneirong" ) &"<br><br>"
mailbody=mailbody & "技能培训情况-单位和讲师: " & request( "peixundanwei" ) &"<br><br>"
mailbody=mailbody & "技能培训情况-时间: " & request( "shijian2" ) &"<br><br>"
mailbody=mailbody & "行业工作经验: " & request( "hangye" ) &"<br><br>"
mailbody=mailbody & "主要工作成绩/奖罚: " & request( "chengji" ) &"<br><br>"
mailbody=mailbody & "自我评价: " & request( "pingjia" ) &"<br><br>"
mailbody=mailbody & "你对未来发展的想法与规则: " & request( "weilai" ) &"<br><br>"
mailbody=mailbody & "目前薪酬: " & request( "muqian" ) &"<br><br>"
mailbody=mailbody & "期望薪酬: " & request( "qiwang" ) &"<br><br>"
mailbody=mailbody &"*************************************************************************************"
mailbody=mailbody &"<br>此邮件是 小新技术网www.xker.com--新水年华QQ:12231446 制作在线邮件系统发送，请勿直接回复此邮件！<br>"
mailbody=mailbody &"该邮件的发件人为"&sendname&" 发件人邮箱为"&email&"<br>"
mailbody=mailbody &"如果需要回复，请发邮件至"&email&"，切记！本站对邮件的内容不负任何法律责任！<br>"
mailbody=mailbody &"*************************************************************************************"
mailbody=mailbody &"</TD></TR></TBODY></TABLE>"
if sendname <> "" and email <> "" then
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
jmail.From = smtpemail
jmail.FromName = sendname
jmail.ReplyTo = email
jmail.Subject = topic
jmail.AddRecipient myemail
jmail.Body = mailbody
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
if isgo then
msg="邮件发送成功！谢谢你的支持。"
else
msg = "邮件发送失败！请检查您的参数设置是否正确！"
end if
未完..
