用asp在window2000下发电子邮件,cpu占用100%,而邮箱中塞满邮件?如何解决!(100分)

  • 主题发起人 主题发起人 zwy
  • 开始时间 开始时间
Z

zwy

Unregistered / Unconfirmed
GUEST, unregistred user!
[:(]用asp编写一个邮件发送程序(源程序随处可见),利用window2000 advanced server
的smtp邮件服务,程序中只发送一次,而程序执行的结果却令电脑cpu占用达100%,邮箱塞
满邮件。根据多次运行结果,据初步判断是window2000死循环发送,而该程序在nt下不会
出现如上现象。请有碰到类似情况的高手朋友们指点!这是否又是微软的又一漏洞?我
的系统配置如下:window2000 advanced server,win2000 sp2及sp3的部分补丁,如果是
系统设置问题,请问该如何设置?请高手快伸手解救!不然只好天天[:(][:(][:(]。
 
应该是程序的死循环
把程序贴出来看看
 
to duqiu
首先多谢你光顾此问题!
其次,根据您的建议,现贴出源程序如下:
<%@ Language=VbScript %>
<% '电子邮件发送程序: e_mail_cgi.asp
dim str_mailzt,str_mailnr,str_fromname,str_fileup1,str_fileup2,str_fileup3
str_mailzt=trim(request("mail_zt"))
str_mailnr=trim(request("mail_nr"))
str_fromname=trim(request("from_name"))
str_fileup1=trim(request("file_up1"))
str_fileup2=trim(request("file_up2"))
str_fileup3=trim(request("file_up3"))
if (instr(str_fileup1,":/")<>2 and (instr(str_fileup1,".")<>len(str_fileup1)-3 or instr(str_fileup1,".")<>len(str_fileup1)-4)) then
str_fileup1=""
End If
if (instr(str_fileup2,":/")<>2 and (instr(str_fileup2,".")<>len(str_fileup2)-3 or instr(str_fileup2,".")<>len(str_fileup2)-4)) then
str_fileup2=""
End If
if (instr(str_fileup3,":/")<>2 and (instr(str_fileup3,".")<>len(str_fileup3)-3 or instr(str_fileup3,".")<>len(str_fileup3)-4)) then
str_fileup3=""
End If
Set myMail = Server.CreateObject("CDONTS.NewMail")
with mymail
.from = str_str_fromname
.to ="ndnw@sina.com"
.subject = str_mailzt
.body = str_mailnr
.BodyFormat =1
.mailFormat = 0
if str_fileup1 <>"" then
.AttachFile (str_fileup1)
end if
if str_fileup2 <>"" then
.AttachFile (str_fileup2)
end if
if str_fileup3 <>"" then
.AttachFile (str_fileup3)
end if
.send
end with
Set myMail = Nothing
%>

<HTML>
<HEAD><TITLE></TITLE>
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
<style type=text/css>
<!--
.cur4 {FONT-FAMILY: "宋体";
FONT-SIZE: 13px}
.head {coloR: green;
FONT-FAMILY: "宋体";
FONT-SIZE: 13px;FONT-WEIGHT: bolder}
.head0 {coloR: #0000ff;
FONT-FAMILY: "宋体";
FONT-SIZE: 13px;FONT-WEIGHT: bolder}
TD {FONT-FAMILY: "宋体";
FONT-SIZE: 9pt}
a:link{text-decoration:none}
a:visited{text-decoration:none;color:#lightred}
a:active{text-decoration:none;color:green}
a:hover{text-decoration:none;color:#ff6600}
-->
</style>
</head>
<div align="center"><center>
<BODY aLink=#ff0000 bgcolor=#5F908F leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE align=center cellPadding=0 cellSpacing=0 width=655 bgcolor=#FFE7B7>
<TBODY>
<tr height=60><td></td></tr>
<TR>
<td align=center><font class=cur4>邮件发送成功!,请<A href="javascript:history.back()">[返回]</a></font>
</td></tr>
<tr height=60><td></td></tr>
</tbody>
</table>
</body>
</center>
</div>
</html>
 
以上问题本人已自行解决了!但还有一个问题:用asp编写以上的程序利用win2000的
“smtp”发送,为何只能发送*.txt,*.htm及图片,确不能发送如*.wps,*.doc等问题?
若哪位解决了这个问题,本人将给加100分!
 
后退
顶部