关于在WIN2000 SERVER上用CDONTS发邮件的问题
我写了个简单的用CDONTS发送邮件的ASP文件,在NT4上面运行正常,但是在WIN2000上运行却不行。还有,最可气的是在WIN2000上运行不了的它不会像在NT上一样报出错在哪里,它只是显示一页系统的错误页面。
<%@ Language=VBScript %>
<%
sub SendMail(fromWho,toWho,Subject,Body)
dim objMail
set objMail=server.CreateObject("CDONTS.Newmail")
objMail.from=fromWho
objMail.to=toWho
objMail.subject=Subject
objMail.body=Body
objMail.importance=2
objMail.send
set objMail=nothing
end sub
fromWho=trim(Request.Form("fromwho"))
toWho=trim(Request.Form("towho"))
Subject=trim(Request.Form("subject"))
Body=trim(Request.Form("body"))
if toWho<>"" then
SendMail fromWho,toWho,Subject,Body
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor="#eeeeee">
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<br>TO:<input name="towho" size="30">
<br>FROM:<input name="fromwho">
<br>SUBJECT:<input name="subject">
<br><textarea name="body" cols="40" rows="5"></textarea>
<br><input type="submit" value="SendMail">
</form>
</BODY>
</HTML>