【求助】如何用mail()函式將網頁內容以html格式傳送到我的信箱



贊助商連結


tycryr
2004-08-09, 11:42 PM
請教各位大大:
我想作一個線上訂購的網頁,當網友填完資料,按下按鈕就會把網頁資料以html格式傳送到我夠到我的信箱
我的是Email:tycryr@pchome.com.tw
內容如下
<html>

<head>
<meta http-equiv="Content-Language" content="zh-tw">
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>訂購單</title>
</head>

<body>
<p>訂購單</p>
<p>訂購單位:&nbsp;</p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" U-File="_private/form_results.txt"
S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
<p>公司名稱:<input type="text" name="T1" size="40">&nbsp;&nbsp;&nbsp;&nbsp;
聯絡電話:<input type="text" name="T2" size="20"></p>
<p>訂&nbsp; 購&nbsp; 人:<input type="text" name="T3" size="40">&nbsp;&nbsp;&nbsp;&nbsp;
行動電話:<input type="text" name="T5" size="20"></p>
<p>地&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 址:<input type="text" name="T4" size="40">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
傳真號碼:<input type="text" name="T6" size="20"></p>
<p>&nbsp;&nbsp;&nbsp;&nbsp; E-Mail:<input type="text" name="T7" size="40"></p>
<p>回寄收據:<input type="radio" value="V1" checked name="R1">否 是 <input type="radio" name="R1" value="V2">抬頭:<input type="text" name="T8" size="30">&nbsp;
地址:<input type="text" name="T9" size="30">&nbsp; </p>
</form>
</body>

</html>
請教完整的程式要如何寫,謝謝

贊助商連結


linux_xp
2004-08-10, 12:16 AM
Macromedia Dreamweaver MX 2004

不用寫,用做的

:D

rogershu
2004-08-10, 01:38 AM
最簡單的
action=mailto:tycryr@pchome.com.tw?subject=訂購單

jessee780522
2004-08-10, 01:41 PM
有沒有寫ASP或PHP的經驗?
否則...
除非server端有安裝FrontPage Extension...
不然要靠HTML加點Script傳的話是.....不可能的事 XD

VicLin
2004-08-10, 01:54 PM
你要Php還Perl?
這是我以前寫的Perl寄信程式
為了使別人寄信給我 可以不用知道我的信箱
不過後來廣告信還是一堆= ="
雖然mail2000有自動慮廣告信的功能 我看不到
但每次打開廣告夾還是一堆

Php.....我是還沒用過
但是有書在旁邊 要做馬上可以好

#!/usr/bin/perl
## ~---------------------
## ~ 取得資料
## ~---------------------
sub getdata{
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
}else{
$in = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$in);
foreach $pair(@pairs) {
($name,$value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; #解碼
$FORM{$name} = $value;
}
}
## ~---------------------
## ~ 係統設定
## ~---------------------
$ENV{'TZ'} = "CST-8" ; #時區設定
$mail_to = 'xxx@xxx.xxx'; ## 收信者
$mail_path = '/usr/sbin/sendmail'; ## 寄信程式
$mail_frontsubject = 'Victor送信程式 : '; ##
$mail_priority = 'High';
$jump_to = 'sendok.htm';
## ~---------------------
## ~ 得到係統時間
## ~---------------------
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year += 1900 ;
$mon += 1 ;
$now = "$year/$mon/$mday - $hour:$min";
## ~---------------------
## ~ 主要程式
## ~---------------------
&getdata; ## 取得資料



$mail_from = $FORM{mail_from};
$mail_text = $FORM{mail_text};
$mail_subject = "$mail_frontsubject$FORM{mail_subject}";

open(MAIL,"| $mail_path -t");
print MAIL "X-Mailer: Victor MailSender\n";
print MAIL "X-MSMail-Priority: $mail_priority\n";
print MAIL "From: $mail_from\n";
print MAIL "To: $mail_to\n";
print MAIL "Reply-to: $mail_from <$mail_from>\n";
print MAIL "Subject: $mail_subject\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-type: text/plain; charset=big5\n";
print MAIL "Content-Transfer-Encoding: quoted-printable\n\n";
print MAIL "----Victor MailSender----\n";
print MAIL "From : $mail_from\n";
print MAIL "Subject : $FORM{mail_subject}\n";
print MAIL "Mail sent at $now .\n\n";
print MAIL "$mail_text\n";
close(MAIL);
print "Location: $jump_to\n\n";