我是这样子改的,反正是不对,可我又不晓得错那了.''
提示错误(
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'JMail'
/ts/shop.asp，行 322 )
<%
'设置发信人
if IsValidEmail(request.form("frommail"
)=false then
response.write"<SCRIPT language=javascript>alert('发信人邮件地址格式不对或不存在此用户邮箱！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
founderr=true
else
frommail=request.form("frommail"
end if
'判断对谁发信
if IsValidEmail(request.form("tomail"
)=false then
response.write"<SCRIPT language=javascript>alert('收信人邮件地址格式不对或不存在此用户邮箱！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
founderr=true
else
tomail=request.form("tomail"
end if
'发信
if request("mail"
="owen" then
Set OWENmail=Server.CreateObject("JMail.SMTPMail"
JMail.MailServerUserName = "request.form("frommail"
" '登录用户名
JMail.MailServerPassWord = "123456" '登录密码
OWENmail.Charset = "gb2312"
OWENmail.ContentType = "text/html"
OWENmail.Sender = frommail
OWENmail.Subject = "" & Request.Form("联系人"
& "[吊装订单消息]"
OWENmail.AddRecipient(""&tomail&""
mess = "<table width=""98%"" border=0 align=center cellpadding=4 cellspacing=0><tr><td width=""19%""><strong><font color=#FF6600>发布网上订单</font></strong></td><td></td></tr><tr><td>类 型：</td><td>" & Request.Form("类型"
& "</td></tr><tr><td>工程名称：</td><td>" & Request.Form("工程名称"
& "</td></tr><tr><td>工程地点：</td><td>" & Request.Form("工程地点"
& "</td></tr><tr><td>拟租时间：</td><td>" & Request.Form("拟租时间"
& "</td></tr><tr><td valign=top>吊物信息：</td><td>" & Request.Form("吊物信息"
& "</td></tr><tr><td><strong><font color=#FF6600>联系方式</font></strong></td><td> </td></tr><tr><td>联 系 人：</td><td>" & Request.Form("联系人"
& "</td></tr><tr><td>联系电话：</td><td>" & Request.Form("联系电话"
& "</td></tr><tr><td>E - mail：</td><td>" & Request.Form("frommail"
& "</td></tr></table>"
OWENmail.Body = mess
OWENmail.Execute
OWENmail.Close
Set OWENmail = Nothing
response.write "<br><br><br>"
response.write "<script>alert('恭喜！！！您的邮件发送成功,我司会尽快与您联系！');location.href='shop.asp';</script>"
End If
%>
