主题：【求助！】请问谁比较懂网页技术？ -- airman

共:💬12 🌺4 新:

信息技术

全看树展主题 · 分页首页上页下页末页

家园

【求助！】请问谁比较懂网页技术？

最近帮朋友做个网页，需要弄个提交表单。不用提交到数据库，直接邮件发送就可以。

在网上找了段代码，可是传到服务器上却不能成功发送。哪位高人给看看，是否需要修改。

因为网页代码比较长（其实应该可以删不少，不过我对asp实在不是很懂，所以就全文复制了），我发在回帖中。

请高手帮忙，谢谢！

关键词(Tags): #ASP，#Jmail，#表单提交，

复【求助！】请问谁比较懂网页技术？

家园

网上的代码(一)

<%@ 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( "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

未完..

复【求助！】请问谁比较懂网页技术？

家园

网上的代码（二）

jmail.Close

set jmail = nothing

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>

<body>

<%if msg<>"" then%>

<br><%=msg%><a href="javascript:history.go(-1)">返回上一页</a>

<%else%>

</table>

<tr>

</td>

<tr>

<p align="center"><font color="#FF9933" size="3"><b>石药集团人才自荐</b></font></p> </tr>

照片</td>

</tr>

未完..

复【求助！】请问谁比较懂网页技术？

家园

网上的代码（三）

</tr>

</tr>

<td width="69">计算机等级</td>

<td width="60">职称或专业资格</td>

</tr>

</tr>

</tr>

</tr>

<tr>

<td colspan="2"><textarea name="yuanxiao" cols="10" rows="2" id="yuanxiao">（从最高学历开始填写）</textarea></td>

</tr>

<td width="78" rowspan="2">主要工作经历</td>

<td width="83">部门及职务</td>

</tr>

<tr>

</tr>

<td width="78">个人档案存放地址</td>

</tr>

<td width="78" rowspan="2">技能培训情况</td>

<td colspan="3">培训单位和主要讲师</td>

</tr>

<tr>

</tr>

<td width="78">行业工作经验</td>

</tr>

<td width="78">主要工作成绩/奖罚</td>

</tr>

</tr>

<td width="78">你对未来发展的想法与规则</td>

</tr>

</table></td>

</tr>

<tr>

<td colspan="4" class=forumrow>您的姓名：

你的E-mail：

邮件标题：

</td>

</tr>

<tr>

</td>

</tr>

</table>

</form><%end if%>

</body>

</html>

完。

提示说只需修改7、8、9、15、16行的“****”内容就可以直接使用，可是我却用不了。服务器支持Jmail组件。

复网上的代码(一)

家园

jmail.dll是否在服务器上注册了？

复【求助！】请问谁比较懂网页技术？

家园

用下面的代码放到一个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

复用下面的代码放到一个ASP文件中，测试一下邮件功能是否正常

家园

HTTP500 内部服务器错误

关于“isgo = jmail.Send(smtpserver) '''发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改”

这句，请问该在哪里修改？

另外，您所说的“下面这段代码应该可以直接给你设定的邮件地址发送邮件来测试邮件功能是否正常”中红字的意思我不太理解？我在哪里设定的？您是指之前的语句里面设定的？

呵呵，不好意思，对这个完全是个小学生，问题弱智，见谅、见笑~！

复 HTTP500 内部服务器错误

家园

这几个地方需要设定

假设你的网站是 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.dll是否在服务器上注册了？

家园

不是很明白您的意思

反正服务器是支持Jmail

复这几个地方需要设定

家园

谢谢！

还是不成功。

jmail.MailServerUserName = "airman"而不是"[email protected]"？

jmail.AddRecipient "[email protected]"

这个中间没有"="？

我也再研究研究。

复谢谢！

家园

好像是有点错

MailServerUserName 可能是 airman 也可能是 [email protected]

取决于你的系统是怎么设定的。可以参考你的，比如OUTLOOK EXPRESS里的设定。

AddRecipient 这个可能我有疏忽。这是个FUNCTION，所以，也许应该是 AddRecipient("[email protected]") 这样的形式。

你试试看。VB快忘没了。

复好像是有点错

家园

好，回去试试。

唉，那个文件已经被我改的“面目全非”了..

过几天再说吧，有什么问题再向您请教~~！

全看树展主题 · 分页首页上页下页末页

有趣有益，互惠互利；开阔视野，博采众长。
虚拟的网络，真实的人。天南地北客，相逢皆朋友

版面群落趣味社区帮助常见问题网站简介基本河规隐私条款使用条款广告说明