发送E-mail为何不行?(代码运行正常,不报错!)
<!--#include file="conn.asp"-->
<%
dim rs,exec,username,email,mail
username=trim(request.form("username"))
email=trim(request.form("email"))
exec="select * from Users where Username='"&username&"' and E-mail="&email
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
if not rs.eof and not rs.bof then
set mail=server.createObject("CDONTS.NewMail")
mail.TO="mhxz5680@163.com"
mail.From=email
mail.Importance =2
mail.Subject=request.form("title")
mail.Body=request.form("content")
mail.Send
Set mail=Nothing
response.Write"<script language='javascript'>alert('发送成功!');history.go(-1);</script>"
else
response.Write"<script language='javascript'>alert('你的用户和E-mail不匹配!');history.go(-1);</script>"
end if
%>