<%
dim strSQL, rsObj
dim memberID, answer
memberID = RealString(Request.Form("memberID"))
answer = RealString(Request.Form("answer"))
strSQL = "SELECT * FROM member WHERE memberID = '"&memberID&"' AND answer = '"&answer&"'"
'Response.Write strSQL
'Response.End
set rsObj = conn.execute (strSQL)
if rsObj.eof or err then
%>
<script language = Javascript>
<!--
alert(" ***");
window.history.go(-1);
//-->
</script>
<%
else
Set msg = Server.CreateObject("JMail.Message") '建立发送邮件的对象
msg.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
msg.logging = true '启用邮件日志
msg.Charset = "GB2312" '邮件的文字编码为国标
msg.ContentType = "text/html" '邮件的格式为HTML格式
msg.AddRecipient rsObj("email") '邮件收件人的地址
msg.From = "***@163.com" '发件人的E-MAIL地址
msg.MailServerUserName = "***" '登录邮件服务器所需的用户名
msg.MailServerPassword = "***" '登录邮件服务器所需的密码
msg.Subject = "***" '邮件的标题
msg.Body = "***" '邮件的内容
msg.Prority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
msg.Send("smtp.163.com") '执行邮件发送（通过邮件服务器地址）
msg.Close() '关闭对象
%>
最近写了一段代码，可是提示
ActiveX 部件不能创建对象: 'Server.CreateObject'
信也总是发不出去，请求高人解答
參考答案:从错误信息能看出 服务器不支持，应该没安装Jmail组件，如果你是租用的空间，请与空间商联系，如果你有服务器权限，请安装Jmail组件
至于你的代码应该没问题，并且Jmail发信的代码，网上有许多，应该不是问题 主要是服务器要支持
