|
#2
gupiao1752010-09-20 20:12
|
我把这个表单信息传送到mail.asp网页
<form name="upload" method="post" action="mail.asp" enctype="multipart/form-data">
你的名字 <input type="text" name ="form1" value="测试文本" /><br />
申请职位 <input type="text" name ="title" value="申请职位" /><br />
你的邮箱 <input type="text" name ="email" value="邮箱" /><br />
简历1 <input type="file" name="file1" /><br />
简历2 <input type="file" name="file2" /><br />
<br />
<input class="iButton" type="submit" value="确定发送" />
</form>
mail.asp代码
<%
title= trim(request("title"))
name=request("form1")
email=request("email")
file1=request("file1")
%>
<%
'On error resume next
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
JMail.From = "hwc201411@ ' 发送者邮箱地址,也就是你自己的发件邮箱!
JMail.FromName = request("form1") ' 发送者姓名
JMail.Subject = request("title") ' 邮件主题
' 身份验证
JMail.MailServerUserName = "hwc201411" ' 身份验证的用户名,只写@163前面的那个帐号,不包括@以后的部分!
JMail.MailServerPassword = "hwc15877277166" ' 身份验证的密码,163邮箱密码!
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddRecipient("286958108@)
JMail.AddAttachment (Server.MapPath(file1), True) 发送附件代码
JMail.Body =name & vbnewline & title & vbnewline & email & vbnewline & dianhua & vbnewline & content
JMail.Send("smtp.)
JMail.Close()' 关闭并清除对象
Set JMail = Nothing
if err.number<>0 then
Response.write "<script>alert('抱歉,邮件发送失败！');</script>"
Response.write "<script>history.go(-1);</script>"
else
Response.write "<script>alert('恭喜！邮件发送成功！');</script>"
Response.write "<script>history.go(-1);</script>"
end if
%>
表单的其他信息可以传送，但是附件不行。
Microsoft VBScript 编译器错误 '800a0414'
调用过程(Sub)时不能使用括号
\mail.asp, line 21 就是红色那段代码
