请教各位牛人！！为什么发不出附件

zqxqq 2003-10-06 07:11:28
<%
dim topic,mailbody,sendname,email,frommail,i,file1
file1=trim(request.Form("file1"))
topic=request.Form("Subject")
mailbody=request.Form("Content")
sendname=request.Form("sendname")
frommail=request.Form("from")
const smtpserve="smtp.chtc.biz"
const smtpuser="zhangyc@chtc.biz"
const smtpass="123456"
sub sendour(email)
Set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jMail.ContentType = "text/html"
jmail.From = frommail '//这里成你的发信人地址
jmail.FromName = sendname '//发信人姓名
jmail.Subject = topic '//标题
jmail.AddRecipient email '//地址
jmail.Body = mailbody '//内容
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord =smtpass
JMail.AddAttachment file1
isgo = jmail.Send( smtpserve)
jmail.Close
set jmail = nothing
end sub
%>
<html>
<head>
<title>发送邮件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/class.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<TABLE width="700" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="9%"> <DIV align=center><IMG height=39
src="images/via_t.gif" width=38></DIV></TD>
<TD vAlign=top width="91%"> <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height=30 vAlign=bottom><STRONG>已发送邮件</STRONG> </TD>
<TD width="200" vAlign=bottom> </TD>
</TR>
<TR>
<TD
height=2 colspan="2" bgColor=#000000></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<br>
<TABLE
width="700" border=0 align="center" cellPadding=0 cellSpacing=1 bgColor=#cccccc>
<TBODY>
<TR>
<TD bgColor=#eeeeee> <DIV align=center><br>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="60">主题：</td>
<td>
<% response.Write(topic)%>
</td>
<td width="40">附件：</td>
<td width="200">
<% response.Write(file1)%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="60">内容：</td>
<td>
<% response.Write(mailbody)%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"><div align="center">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">发送人：
<%
response.Write(sendname)%>
</div></td>
<td><div align="center">回复邮件：
<% response.Write(frommail)
response.Write(path)
%>
</div></td>
</tr>
</table>
</div>
<div align="center"></div></td>
</tr>
<tr>
<%
i=request.form("sendmail").count-1
myVar = Request.form("sendmail")
if not isempty(myVar) then
myvarArray = split(myVar,",")
end if
%>
<td align="center">收件人姓名</td>
<td align="center">已发送邮件</td>
<td align="center">已发送手机短信</td>
</tr>
<%
for j=0 to i
mailArray = split(myvarArray(j),"|")
response.Write("<tr>")
response.Write("<td align='center'>")
response.Write(mailarray(0))
response.Write("</td>")
response.Write("<td align='center'>")
response.Write(mailarray(1))
call sendour(mailarray(1))
response.Write("</td>")
response.Write("<td align='center'>")
response.Write(mailarray(2))
response.Write("</td>")
response.Write("<tr>")
next
%>
</table>
<BR>
</DIV></TD>
</TR>
</TBODY>
</TABLE>
<br>
</body>
</html>
...全文
66 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
PeterMCT 2003-10-07
  • 打赏
  • 举报
 回复
帮你顶
孟子E章 2003-10-06
  • 打赏
  • 举报
 回复
附件路径对？？
zqxqq 2003-10-06
  • 打赏
  • 举报
 回复
上面是例子
zqxqq 2003-10-06
  • 打赏
  • 举报
 回复
http://www.szruc.net/admin/sendmail.asp
angelheavens 2003-10-06
  • 打赏
  • 举报
 回复
看的头疼
是不是附件太大(看邮件服务器设置)
zqxqq 2003-10-06
  • 打赏
  • 举报
 回复
<!--#include file="../INC/Conn.asp"-->
<%
dim sqlstr
dim banji
dim selbanji,file1
file1=request("file1")
if session("Admin")<>1 then
response.redirect("/liuyan/logon.asp?returl=/admin/sendmail.asp")
end if
banji=Request("banji")
if banji="" or banji="all" then
banji="所有班级"
selbanji="all"
else
selbanji=banji
end if
set rs=Server.CreateObject("ADODB.RECORDSET")
rs.ActiveConnection=conn
sqlstr="select banji from banji order by iRowID desc"
rs.CursorType=adOpenStatic
rs.Open sqlstr

%>
<HTML><HEAD><TITLE>邮件群发</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="images/class.css" rel=stylesheet type=text/css>
<STYLE>FORM {
MARGIN: 0px
}
</STYLE>

<SCRIPT language=Javascript>

<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
<!--
function MM_goToURL() { //v3.0
var I, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (I=0; I<(args.length-1); I+=2) eval(args[I]+".location='"+args[I+1]+"'");
}
//-->
<!--
function sendmail_submit(){
temp=document.sendmail.from.value;
if(document.sendmail.Subject.value.length==0)
{
alert("主题不能为空！");
document.sendmail.Subject.focus();
return false;
}
if ((temp.indexOf("@")==-1) || (temp.indexOf("@")!=temp.lastIndexOf("@")) || temp.indexOf("@")==temp.length-1)
{
alert("Email地址格式不正确！");
document.sendmail.from.focus();
return false;
}
var count;
count=document.sendmail.sendmail.length;
if (count==0)
{
alert("您没有选择给谁发信！");
return false;
}
if(document.sendmail.Content.value.length==0)
{
alert("Email正文不能为空！");
document.sendmail.Content.focus();
return false;
}
for (i=0;i<count;i++)
{
document.sendmail.sendmail[i].selected=true;
}
document.sendmail.submit();
}

function selectall(){
var sendcount,allcount;
var optmail;
var tempflag;
sendcount=document.sendmail.sendmail.length;
//for(i=0;i<sendcount;i++)
// {
// document.sendmail.sendmail.remove(0);
// }
allcount=document.sendmail.allmail.length;
for(i=0;i<allcount;i++)
{
optmail=document.createElement("option");
optmail.text=document.sendmail.allmail[i].text;
optmail.value=document.sendmail.allmail[i].value;
tempflag = 0;
for(j=0;j<sendcount;j++){
if(document.sendmail.allmail[i].value==document.sendmail.sendmail[j].value)
{
tempflag = 1;
break;

}
}
if(tempflag==0) document.sendmail.sendmail.add(optmail);


}
for(i=0;i<allcount;i++){
if(document.sendmail.allmail[i].selected==true){
document.sendmail.allmail[i].selected=false;
}
}
}

function addmail(){
var allcount,sendcount,flag1,flag2;
var optmail;
allcount=document.sendmail.allmail.length;
sendcount=document.sendmail.sendmail.length;
flag1=0;
flag2=0;
for(i=0;i<allcount;i++){
if(document.sendmail.allmail[i].selected==true){
document.sendmail.allmail[i].selected=false;
for(j=0;j<sendcount;j++){
if(document.sendmail.allmail[i].value==document.sendmail.sendmail[j].value)
{
alert("您选择的Email已经存在了！");
flag1=1;
}
}
if(flag1==0)
{
flag2=1;
optmail=document.createElement("option");
optmail.text=document.sendmail.allmail[i].text;
optmail.value=document.sendmail.allmail[i].value;
document.sendmail.sendmail.add(optmail);
}
}
if(flag1==1)break;
}
if(flag2==0){
if (flag1==0)
{
alert("请选择要添加的Email！")
}
}
}
function addothermail(){
var sendcount,flag1,flag2;
var optmail;

sendcount=document.sendmail.sendmail.length;
flag1=0;
if(document.sendmail.othermail.value=="")
{
alert("您还没填Email呢!");
}
for(j=0;j<sendcount;j++)
{
if(document.sendmail.sendmail[j].value==document.sendmail.othermail.value)
{
alert("您选择的Email已经存在了！");
break;
}
}
if(flag1==0)
{
optmail=document.createElement("option");
optmail.text=document.sendmail.othermail.value;
optmail.value="其他邮件|"+document.sendmail.othermail.value+"|无";
document.sendmail.sendmail.add(optmail);
}



}

function delmail(){
var sendcount,flag,delcount;
var optmail;
flag=0;
delcount=0;
sendcount=document.sendmail.sendmail.length;
for(i=0;i<sendcount;i++){
if(document.sendmail.sendmail[i].selected==true){
flag=1;
for(j=i;j>0;j--)
{
document.sendmail.sendmail[j].value=document.sendmail.sendmail[j-1].value;
document.sendmail.sendmail[j].text=document.sendmail.sendmail[j-1].text;
}
delcount=delcount+1;
}
}
if (flag==0)
{
alert("请选择要删除的Email！");
}
for(i=0;i<delcount;i++)
{
document.sendmail.sendmail.remove(0);
}
for(i=0;i<document.sendmail.sendmail.length;i++)
{
document.sendmail.sendmail[i].selected=false;
}
}

function delall(){
var sendcount;
var optmail;
sendcount=document.sendmail.sendmail.length;
if (sendcount==0)
{
alert("没有可以删除的Email！");
}
for(i=0;i<sendcount;i++)
{
document.sendmail.sendmail.remove(0);
}
}
//-->
</SCRIPT>

</HEAD>
<BODY leftMargin=0 topMargin=0>
csdn的>，精彩连载！
正文  第一章 大学　　作为一个真正的程序员，首先应该尊重编程，热爱你所写下的程序，他是你的伙伴，而不是工具。　　/*　　*/　　我放弃清华计算机专业的保送资格而选择参加高考的消息震撼了全校，从校长到班主任到各科目任课老师都找我谈过话，我有点惊异他们的变化，在我获得全国信息大赛一等奖外加特别奖以前我似乎是个可有可无的人物，突然间变的如此的炙手可热，我觉得我的大脑前所未有的不够用。　　说起这个特别奖...
csdn的<>，精彩连载！
正文第一章 大学　　作为一个真正的程序员，首先应该尊重编程，热爱你所写下的程序，他是你的伙伴，而不是工具。　　/*　　*/　　我放弃清华计算机专业的保送资格而选择参加高考的消息震撼了全校，从校长到班主任到各科目任课老师都找我谈过话，我有点惊异他们的变化，在我获得全国信息大赛一等奖外加特别奖以前我似乎是个可有可无的人物，突然间变的如此的炙手可热，我觉得我的大脑前所未有的不够用。　　说起...
[转][小说]我是一名黑客
[转][小说]我是一名黑客 　　这几天眼睛要好受些了，因为刚买了一个15’的液晶显示器。也许你会觉得我以前的那个特丽珑的17"的显示器应该很威风才对。呵呵，对一个整天15个小时以上坐在显示器面前，距离不超过30厘米的人来说。那个CRT显示器绝对是一个祸害！眼睛红仲，布满血丝。头发脱落，食欲不振，出门还特别怕光，这些都和那个CRT显示器绝对脱不了关系。 　　分析这个攻击目标已经1个多星期了，
我是一个黑客
作者：无名  1.我是一个黑客  这几天眼睛要好受些了，因为刚买了一个15’的液晶显示器。也许你会觉得我以前的那个特丽珑的17"的显示器应该很威风才对。呵呵，对一个整天15个小时以上坐在显示器面前，距离不超过30厘米的人来说。那个CRT显示器绝对是一个祸害！眼睛红仲，布满血丝。头发脱落，食欲不振，出门还特别怕光，这些都和那个CRT显示器绝对脱不了关系。  分析这个攻击目标已
学习心得1------调试代码
版权声明：本文为博主（汉诺塔少年）原创文章，非商用自由转载-保持署名-著名出处，谢谢。https://blog.csdn.net/qq_40780910/article/details/82468476 心得1------调试代码   #为什么写这篇博客？ 这个假期在家学习，我开始对老师说的一句口头禅有了更多的体会：“当你以后开始参加工作， 你会发现大多数时间是花在调试（修改）代码上的，...
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章