<%
Name=Request.Form("name")
Email=Request.Form("email")
Http=Request.Form("http")
Text=Request.Form("text")
mailsubject=Request.Form("mailsubject")
%>
<%
Set myMail = Server.CreateObject("CDONTS.NewMail") 他说这代码有错原因是：无效的类别字符串
myMail.From = Email
myMail.To = "feifeiaini1@126.com"
myMail.Subject =mailsubject
myMail.Body = "★★留言人:" & Name & vbCrLf & "★★主页: " & Http & vbCrLf & "★★留言内容:" & Text
myMail.Send
Set myMail=Nothing%>

请帮忙检查哈`````这个应该杂改````先谢谢咯

没有安装组件吧

我也不知道我在网上下的`
`
`
````````````该怎么用喃```？该怎样改请说明

版主帮忙解决哈问题嘛

很可能是没有安装组件，你用Jmail也可以发邮件啊
Jmail组件可以下载到，下安装就载后行了

不用安装组件可以实现此功能吗？

如果可以请说哈应该怎么些怎么用

不用安装组件好像实现不了哦！以下是Jmail邮件发送代码，前提是你要安装Jmail组件！
<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
mail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
%>

恩```
````

`````````谢谢咯哈``````
`
`
`````请问谁知道我上面的代码是哪里不对````

创建  " CDONTS.NewMail " 失败,也就是说没有安装该组件