1,求asp提交表单发送邮件的程序源码
留言时间:" & now() & "
"body=body & "
留言IP:" & request.ServerVariables("REMOTE_ADDR") & "
"body=body & "
客户姓名:" & name1 & "
"body=body & "
手机号码:" & mobile & "
"body=body & "
留言内容:" & content & ""if gw_sendmail("57404811@qq.com","**网站留言-" & name1,body)=true then '这里填自己的邮箱 call alert("发送成功!","/")else call alert("错误:发送失败!","javascript:window.history.back();")end if%>
求ASP在线发送邮件代码
你要是有smtp服务器,你的空间要是支持jmail的话
下面例子代码
on Error resume next
Set Jmail=server.createobject("Jmail.Message")
if Err.Number0 then
errMsg=errMsg&"当前服务器不支持Jmail组件,所以不能发确认信了"
err.clear
else
'path=Server.MapPath("/images/468_03.gif")
Jmail.Logging = true
Jmail.Charset = "gb2312"
Jmail.Encoding = "base64"
'JMail.ContentTransferEncoding = "base64"
Jmail.ContentType ="text/html" 'multipart/mixed
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = smtpUser '(这里换成您的SMTP验证帐号)
Jmail.MailServerPassword = smtpPassword '(这里填写您的SMTP认证密码)
Jmail.From = classEmail
Jmail.FromName = "xxx"
Jmail.Subject = "欢迎您!"
Jmail.AddRecipient email ' (收信人地址)
Jmail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'cID=JMail.AddAttachment(path,true)
mailBody=" Untitled Document 注册确认信 "& userName &":你好 欢迎注册成为"&className&"的新成员。 以下是您的注册信息,请注意保留。 账号:"&userName&" 密码:"&replace(trim(request.Form("password")),"'","")&"密码提示问题:"&question&"提示问题答案:"&answer&" 有任何问题可以在班级留言中提出,或给管理员发站内消息(未批准的成员也可以发站内消息),或发信给管理员 www.cs002.com "
'mailBody=mailBody& ""
'Jmail.HTMLBody = mailBody
Jmail.Body = mailBody
'Jmail.Send(smtpServer)
if not Jmail.Send(smtpServer) then
errMsg=errMsg+"下面是发送Log:"
errMsg=errMsg+"" & Jmail.log & ""
else
errMsg=errMsg+"Email发送成功!"
end if
'ErrStr =JMail.errormessage
Jmail.close()
Jmail.ClearAttachments
Set Jmail=nothing
end if 'end of CreateObject

