![Rank: 9](images/default/star_level3.gif) ![Rank: 9](images/default/star_level3.gif) ![Rank: 9](images/default/star_level1.gif)
- UID
- 1
- 威望
- 1240 点
- 金钱
- 10002 金币
- 点卡
- 317 点
|
1#
发表于 2003-12-9 12:11
| 只看该作者
[转帖]邮件发送CGI子程序范例
下面是一段完整的E-MAIL发送CGI程序,如你想编写一个邮件发送程序,这一段代码很有参考价值.这段代码我在网上运行通过.
sub mail2{
$mailprg= "/usr/sbin/sendmail";#邮件服务器位置
$rmail="swtvjsw\@163.net";#回复时的E-MAIL地址
$title="会员审核通过通知";#邮件标题
open(PSD,"$fddata")|| die $!;#以只读方式打开会员数据库文件
@lines1=< SD>;#将数据以行方式读入数组@linesl
close(PSD);#关闭数据文件
foreach $line1 (@lines1) {#进入循环
($cnt,$msg,$name,$yum,$mm,$live,$email,$www,$url,$tel,$zczt,$sex,$yzpm,$time)=split(/↑/,$line1);#将每行数据以"↑"进行分割并分别赋给等式左边的14个变量,其中变量$email是会员的E-MAIL地址,变量$name是会员名字,变量$yum是会员登陆名,变量$mm是会员密码.
$email=~s/ //g;#去除变量$email的多余空格
if($zczt eq "已审核" && $name eq $FORM{'name'}){#如果变量$zczt等于"已审核"和变量$name等于由表单送来的名.
open (mail,"| $mailprg") || die "logo system error";#打开邮件服务器
print mail "TO email\n";#将目的E-MAIL地址送入邮件服务器
print mail "From rmail\n";#将回复时的E-MAIL地址送入邮件服务器
print mail "Subject: $title\n";#将邮件标题送入邮件服务器
print mail "$name您好:\n";#将信件内容送入邮件服务器
print mail " 恭喜您已成为广州电子技术网大家庭中的一员,希望我们今后多多联系共同进步。\n";
print mail "您登陆的用户名:$yum;密码:$mm。\n";
print mail "思维 $Date\n";
print mail "----------------------------------------------------------\n";
print mail "程序制作:广州电子技术网-思维(http://gzdzw.51.net)\n";
print mail "\n\n";#邮件发送
close(mail);#关闭邮件服务器
last;}#判断语句结束并跳出循环
}#循环结束符号
print "<META HTTP-EQUIV=REFRESH CONTENT=\"0;URL=$cgiurl?action=sousuo1324&T1=$FORM{'T1'}&page=$FORM{'page'}\">\n";#程序运行完毕后返回的地址
exit;#退出此程序
} |
我是一个呼吸着现在的空气而生活在过去的人
这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
我已习惯了孤独,爱上孤独
他让我看清了自我,还原了自我
让我再静静的沉思中得到快乐和满足
再孤独的世界里我一遍又一遍
不厌其烦的改写着自己的过去
延伸到现在与未来
然而那只是泡沫般的美梦
产生的时刻又伴随着破灭的到来
在灰飞烟灭的瞬间我看到的是过程的美丽
而不是结果的悲哀。。。
|
|