我用的是163的邮箱这么写 contact.asp的内容可以吗
测试显示发送成功 但是邮箱里没有 邮件啊
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim email,topic,mailbody,sendto
yname=request("name")
yemail=request("email")
ycontent=request("message")
mailbody=mailbody+"名字:"+yname
mailbody=mailbody+"<br>邮箱:"+yemail
mailbody=mailbody+"<br>内容:"+ycontent
topic="[网页留言,]"+yname
sendto="lwp@163.com"
call Jmail(topic,mailbody,sendto)
sub Jmail(topic,mailbody,sendto)
on error resume next
dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Logging = True
JMail.ContentType = "text/html"
JMail.Charset = "gb2312"
JMail.From = "lwp@163.com"
JMail.Subject = topic
JMail.Body = mailbody
JMail.AddRecipient sendto
JMail.Priority = 3
JMail.mailserverusername="lwp@163.com"
JMail.mailserverpassword="*******"
JMail.Send("smtp.163.com")
'关闭并清除对象
JMail.Close()
Set JMail = Nothing
if err.number = 0 then
Response.Write(mailbody)
Response.Write("status=formOk")
end if
end sub
%>