[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿時間: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できません。


このメッセージに返信する場合は下記フォームから投稿して下さい

おなまえ
Eメール
題   名
メッセージ    手動改行 強制改行 図表モード
URL
削除キー (記事削除時に使用。英数字で8文字以内)
プレビュー

以下のフォームから自分の投稿した記事を削除できます
■記事No ■削除キー



- Web Forum -