[讨论]在用"CDO的NTS发送电子邮件"时遇到的怪问题~~~~
我在用自己编写的CDO的NTS发送电子邮件时,出现一个很奇怪的问题:我有两个邮箱,一个是eyou的,另一个是126的,奇怪的是我在测试的时候,发送到eyou的邮件可以收到,而发往126的却收不到!!??
哪位知道是怎么回事,程序应该是没有问题的,我猜测是126将发过去的邮件当成病毒挡在门外了,可有什么办法不让服务器认为是病毒呢,有兴趣的一起讨论讨论啊!
下面是具体程序,也可以点上面的连接下载:
****************************************************************************************************
写邮件页面:write.asp
****************************************************************************************************
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="photo/Forum_admin.css" type="text/css">
<title>本地发邮件</title>
</head>
<body>
<form action="mailpost.asp" method="post" name="form" id="mailform">
<table width="444" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666" style="border-collapse:collapse ">
<tr>
<td width="115"></td>
<td width="323">用CDO的NTS发送电子邮件</td>
</tr>
<tr>
<td align="right">收件人</td>
<td><input name="sender" type="text" id="sender" style="font-size: 9pt; border: 1px solid #7D85A2; background-color: #e9e9e9" >
*</td>
</tr>
<tr>
<td width="115" border="1" height="" align="right">发件人</td>
<td width="323" border="1"><input name="receiver" type="text" id="receiver" style="font-size: 9pt; border: 1px solid #7D85A2; background-color: #e9e9e9" >
*</td>
</tr>
<tr>
<td height="19" align="right">主 题</td>
<td><input name="title" type="text" id="title" style="font-size: 9pt; border: 1px solid #7D85A2; background-color: #e9e9e9" >
*</td>
</tr>
<tr>
<td align="right">内 容</td>
<td><textarea name="content" cols="40" rows="5" id="content"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="发送">
<input type="reset" name="Submit2" value="取消"></td>
</tr>
</table>
</form>
</body>
</html>
*********************************************************************************************************
发送页面:mailpost.asp
*********************************************************************************************************
<%
if request("receiver")="" then
response.write "<script language='javascript'>"
response.write "alert('填写发件人地址!');"
response.write "history.go(-1);"
response.write "</script>"
end if
if request("sender")="" then
response.write "<script language='javascript'>"
response.write "alert('填写收件人地址');"
response.write "history.go(-1);"
response.write "</script>"
end if
if request("title")="" then
response.write "<script language='javascript'>"
response.write "alert('填写邮件主题!');"
response.write "history.go(-1);"
response.write "</script>"
end if
if request("content")="" then
response.write "<script language='javascript'>"
response.write "alert('填写邮件内容!');"
response.write "history.go(-1);"
response.write "</script>"
end if
'-----------------------------------------------------------------
dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.from=request("receiver")
mail.To=request("sender")
mail.subject=request("title")
mail.body=request("content")
mail.send
set mail=nothing
'-------------------------------------------------------------------
response.write "<script language='javascript'>"
response.write "alert('发送成功!');"
response.write "window.location='write.asp';"
response.write "</script>"
%>
*******************************************************************************************************
哪位知道是怎么回事,程序应该是没有问题的,我猜测是126将发过去的邮件当成病毒挡在门外了,可有什么办法不让服务器认为是病毒呢,有兴趣的一起讨论讨论啊!