發新話題
打印

簡易寄信系統

本主題由 肥肥 於 8-9-2016 21:06 提升

簡易寄信系統



<script language="JavaScript">var mailsys="IE mail"; var author="Jon Eyrick";
if (author == "Jon Eyrick"){ phrompt=prompt; snarkconf=confirm;
}
function mailsome1(){ who=phrompt("收信者電郵",""); what=phrompt("信件主題","");
if (snarkconf("是否電郵至 "+who+"電郵主題是 "+what+"?")==true){ parent.location.href='mailto:'+who+'?subject='+what+'';
}
}
</script>
<form><center><input type="button" value="Send e.mail" onClick="mailsome1()"></center></form>



以上內容全部不需改動...click 掣就可電郵給人

因論壇內不能顯示效果 可貼去本站語法測試板試看

TOP

我想o係我個網頁度整個留言版面就send到email俾我

我係用html既~"~我上網睇其他網頁既html教學學到

但係唔知點解按send之後我個email都係收唔到既,係咪差緊d野呀?

唔知有冇大大可以教小妹一下呢^^?

[FORM]
[P]To:kakabb[/p]
[p]From:
[INPUT type=text NAME="username" size="20" value=""]


[p][TEXTAREA NAME="comment" ROWS=8 COLS=60 wrap=physical][/TEXTAREA]
[P][INPUT TYPE=submit value="Send"][INPUT TYPE=reset value="Reset"][/p]


[FORM ACTION="mailto:kakabb0123@sinahappy.com?SUBJECT=Mail_From_Kaka's_Home" enctype="text/plain"][FORM METHOD="POST"] [/form]
將[ ] 這兩個附號換回 <>就會出左以下的:



To:kakabb


From:







但係整左出黎既頁面係咁樣樣,我打左字係個空格再send,
email a/c都冇收到email唷>< HELP
http://kakabb0123.sinahappy.com/guestbook.html

TOP

姓名:

內容:



<FORM NAME = "Mail" ACTION="mailto:bun@bunbunhk.com?subject=訪客來信"
METHOD="POST" ENCTYPE="text/plain">
姓名:<INPUT TYPE="TEXT" NAME="姓名" SIZE="25"><br>
<br>
內容:<br>
<TEXTAREA NAME="內容" COLS="45" ROWS="6"></TEXTAREA>
<br>
<INPUT TYPE=SUBMIT value="送出資料" hidefocus="true">
</FORM>




請重將上列語法貼上再試...請注意...除 bun@bunbunhk.com 之電郵地址更改外...其他切勿更改...

TOP

謝謝你~ 但是有沒有一個語法是可以按一下"送出資料"就能傳訊給我? 即是比如說除了輸入"姓名"以外, 也可以弄一個框框來輸入"寄件人的Email Address"? 而代替那個網際網路精靈 ~"~ 再輸入好"內容"之後按"送出資料"就收到? 謝謝回覆^^

TOP

引用:
kory0123 在 2008-3-6 08:47 PM 發表: 謝謝你~ 但是有沒有一個語法是可以按一下"送出資料"就能傳訊給我? 即是比如說除了輸入"姓名"以外, 也可以弄一個框框來輸入"寄件人的Email Address"? 而代替那個網際網路精 ...
你使用第一個 (簡易寄信系統)之程式即可!!!
我唔係人.........

TOP

如果我想用收信的方式來接收留言,是不是要寫一個.cgi的程式碼?
寫在WordPad 後存成 .cgi 副檔名嗎?

.cgi程式碼是這樣寫嗎qq?因為我也是複製網友們的分享...

#!/usr/bin/perl
$|=1; #關閉緩衝記憶區
#-----請修改以下兩筆資料
$mailpath = "/usr/sbin/sendmail.cgi"; #郵寄程式路徑在此設定
$mailto = 'kakabb0123@sinahappy.com'; #收信人信箱地址在此設定
#-----此行以下部份不必修改
# 接收 Get、Post 傳遞內容
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/>/>/g;
$value =~ s/ $FORM{$name} = $value;
}
$mailto = ($FORM{mailto} ne '') ? $FORM{mailto} : $mailto;
if (($FORM{name} eq '') || ($FORM{email} eq '') || ($FORM{subject} eq '') || ($FORM{content} eq '')) {
die "有空欄位未確實填寫!!
回上一頁";
}
#寄出留言
open(MAIL,"| $mailpath $mailto") || die "無法開通 $mailpath!\n";
print MAIL "To: $mailto\n"; #收信人信箱地址
print MAIL "Form: $FORM{email}\n"; #留言者名稱<信箱地址>
print MAIL "Subject: $FORM{subject}\n"; #標題主旨
print MAIL "寄件人:$FORM{name}<$FORM{email}>\n";
print MAIL "======================================\n";
print MAIL "$FORM{content}\n"; #留言內容
print MAIL "======================================\n";
print MAIL "\n\n";
close(MAIL);
#留言完成訊息
print "Content-type:text/html;charset=big5\n\n";
print "留言已成功\寄出.";
exit; #結束程式


然後把上面的txt檔改成.cgi檔,再上載到我的網頁位置嗎?
想問一下大大們知道sina.com有沒 .cgi 的空間來支援 sendmail 寄信功能?
而且不知道以上我寫的 sendmail 程式碼確實路徑位置對不對~"~??

TOP

引用:
kory0123 在 2008-3-6 11:59 PM 發表: 如果我想用收信的方式來接收留言,是不是要寫一個.cgi的程式碼? 寫在WordPad 後存成 .cgi 副檔名嗎? .cgi程式碼是這樣寫嗎qq?因為我也是複製網友們的分享... #!/usr/bin/perl $|=1; #關閉緩衝記憶區 #--- ...
大部份免費網頁寄存都不支援 cgi ..以前http://www.netfirms.com/有免費提供...現在亦沒有供應了...你可試在網上找尋那處有cgi 之網頁寄存提供...且 cgi 之語法亦與 html 不盡相同...你可在網上找尋 cgi 教學看看...
我唔係人.........

TOP