在线发邮件
srgzf 2006-04-24 04:21:18 为何这样发不出去呢
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="email.asp">
<input type="submit" name="Submit" value="发送邮件">
</form>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
set myMail=server.createObject("Newmail.Message")
myMail.from="fang@abc.com"
myMail.to="srgbzf@163.com"
myMail.subject="发送测试"
myMail.body="dsffffffffffffffffff1111111111111111"
myMail.send
set myMail=nothing
Response.Write "你的邮件发送成功"
%>
</body>
</html>
//可以执行到这个提示,但对方没有收到呢