[リストへもどる]
一 括 講 読

投稿時間:01/10/21(Sun) 00:45
投稿者名:りょうぞう
Eメール:ryozo@r-ken.co.jp
URL :
タイトル:簡易ショッピングバスケット(web裏技)
web裏技
http://www.rescue.ne.jp/
簡易ショッピングバスケット (cago112Z)のメール送信部分を改造し、
送信文字数の制限ははずします。

1-----
webform.cgi
168行目 if (!open(OUT,"| $sendmail〜
から
210行目 close(OUT);
までをすべて行頭に#をつけ、コメント行にする。

2-----
さらにそのあとに以下の行を追加
$msg = "";
$count = @DATA_N;
foreach (0..$count-1) {
if ($DATA_V[$_] =~ /\n/) { $msg = $msg . "$DATA_N[$_] =\n\n$DATA_V[$_]\n\n";}
else {$msg = $msg . "$DATA_N[$_] = $DATA_V[$_]\n"; }
}
use Win32::OLE;
$oBasp = Win32::OLE->new('basp21');
$oBasp->SendMail("mail.rocket3.net","$mailto","$email","$subject","{$msg","");


※残念ながら再配布は禁止ということなので修正版はUPできません。



- Web Forum -