请教高手:(急急急)留言表单内容提交后发到email里收不到是什么回事啊(接上面已修改后的问题)?
junoy 2003-10-09 02:25:54 上面提交的页面已经过一大哥指点后,修改如下,好像还是收不到啊
哪位高手可以帮我亲自测试一下看看是否能收得到呢,小弟非常感谢
我先是想把"wqfdsafsafsaf"这段简单的字符串发到我的邮箱(x_2037115@163.com)里面
<%
On Error Resume Next
Dim email
set email=server.CreateObject("cdonts.newmail")
If Not IsObject(email) Then
SendMail = Err.Description
End If
email.BodyFormat =1 'HTML格式,如果是纯文本则是1
email.MailFormat =0
email.From="yao14@163.com" '用户邮箱
email.To ="x_2037115@163.com" '我的邮箱
email.Subject ="您好啊junoy" '邮件标题
email.Body="wqfdsafsafsaf" '邮件内容
email.Send
If Err Then
SendMail = Err.Description
Else
SendMail = "OK"
End If
Set email = Nothing
if SendMail <> "OK" then
Response.Write("<script>alert('发送邮件时出错,出错信息:" & chr(10) & chr(13) & SendMail & "');")
Response.Write("history.back();</script>")
end if
Response.Write("<script>alert('成功将您反馈的信息发送到我们公司的Email邮箱中!!!');location='fwrxa.asp';</script>")
%>