您所在位置：主题：用ASP发送邮件的问题(组件是WINDOW自带的CDO组件)
nnns
[专家分：120] 发布于 2008-08-19 20:49:00
各位高人给看一下!(新手大家多多关照!!!!!!)
以下是这两个文件一个是用CDO的NTS发送邮件的ＳＥＮＤＭＡＩＬ．ＡＳＰ程序如下
<%@language=vbscript%>
<%
if request.form("submit")<>"" then
fromwho=trim(request.form("fromwho"))
towho=trim(request.form("towho"))
subject=trim(request.form("subject"))
body=trim(request.form("body"))
if towho<>"" then
dim mymail
set mymail=server.createobject("cdonts.newmail")
mymail.from=fromwho
mymail.to=towho
mymail.subject=subject
mymail.body=body
mymail.send
set mymail=nothing
else
request.write"收件人信息不能为空"
request.end
end if
end if
%>
一个是ＨＴＭＬ文件如下
<html>
<head>
<title>电子邮件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="007g.jpg">
<form name="form1" method="post" action="sendmail.asp">
<table width="57%" border="1" align="center">
<tr valing="middle">
<td colspan="2" align="center" height"23">发送电子邮件</td>
</tr>
<tr>
<td width="27%" valign="middle" align="right" height="37">收信人邮件地址</td>
<td width="73" height="37">
<input name="towho" type="text" size="40">
</td>
</tr>
<tr>
<td width="27%" valign="middle" align="right" height="37">发信人邮件地址</td>
<td width="73" height="39">
<input name="fromwho" type="text" size="40">
</td>
</tr>
<tr>
<td width="27%" valign="middle" aling="right" height="32">主题：</td>
<td width="73%" height="32">
<input name="subject" type="text" size="40">
</td>
</tr>
<tr valign="middle">
<td align="right" height="112">信件内容：</td>
<td height="112">
<textarea name="body" cols=40 rows=5></textarea>
</td>
</tr>
<tr valign="middle">
<td colspan="2" height="17" align="center">
<input type="submit" value="发送邮件" name="submit">
<input type="reset" name="reset" value="取消">
</td>
</tr>
</table>
</form>
</body>
</html>
各位高人这两个文件那里有错误！大家给指点一下！ＴＨＡＮＫ ＹＯＵ！
以上的代码做的是两个文件是否可以做成一个！新人！大家多多指教！
以下是错误提示无法显示网页 您要访问的网页有问题，无法显示。 --------------------------------------------------------------------------------请尝试以下操作:打开 www.pcfun.cn 主页，然后查找指向您感兴趣信息的链接。 单击刷新按钮，或以后再试。单击搜索，寻找 Internet 上的信息。 也可查看相关站点列表。 HTTP 500 - 内部服务器错误 Internet Explorer
以下是这两个文件一个是用CDO的NTS发送邮件的ＳＥＮＤＭＡＩＬ．ＡＳＰ程序如下
<%@language=vbscript%>
<%
if request.form("submit")<>"" then
fromwho=trim(request.form("fromwho"))
towho=trim(request.form("towho"))
subject=trim(request.form("subject"))
body=trim(request.form("body"))
if towho<>"" then
dim mymail
set mymail=server.createobject("cdonts.newmail")
mymail.from=fromwho
mymail.to=towho
mymail.subject=subject
mymail.body=body
mymail.send
set mymail=nothing
else
request.write"收件人信息不能为空"
request.end
end if
end if
%>
一个是ＨＴＭＬ文件如下
<html>
<head>
<title>电子邮件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="007g.jpg">
<form name="form1" method="post" action="sendmail.asp">
<table width="57%" border="1" align="center">
<tr valing="middle">
<td colspan="2" align="center" height"23">发送电子邮件</td>
</tr>
<tr>
<td width="27%" valign="middle" align="right" height="37">收信人邮件地址</td>
<td width="73" height="37">
<input name="towho" type="text" size="40">
</td>
</tr>
<tr>
<td width="27%" valign="middle" align="right" height="37">发信人邮件地址</td>
<td width="73" height="39">
<input name="fromwho" type="text" size="40">
</td>
</tr>
<tr>
<td width="27%" valign="middle" aling="right" height="32">主题：</td>
<td width="73%" height="32">
<input name="subject" type="text" size="40">
</td>
</tr>
<tr valign="middle">
<td align="right" height="112">信件内容：</td>
<td height="112">
<textarea name="body" cols=40 rows=5></textarea>
</td>
</tr>
<tr valign="middle">
<td colspan="2" height="17" align="center">
<input type="submit" value="发送邮件" name="submit">
<input type="reset" name="reset" value="取消">
</td>
</tr>
</table>
</form>
</body>
</html>
各位高人这两个文件那里有错误！大家给指点一下！ＴＨＡＮＫ ＹＯＵ！
以上的代码做的是两个文件是否可以做成一个！新人！大家多多指教！
以下是错误提示无法显示网页 您要访问的网页有问题，无法显示。 --------------------------------------------------------------------------------请尝试以下操作:打开 www.pcfun.cn 主页，然后查找指向您感兴趣信息的链接。 单击刷新按钮，或以后再试。单击搜索，寻找 Internet 上的信息。 也可查看相关站点列表。 HTTP 500 - 内部服务器错误 Internet Explorer