作者 主題: [分享]用 perl 寫 CGI 時的中文顯示問題  (閱讀 2977 次)

0 會員 與 1 訪客 正在閱讀本文。

shalitee

  • 懷疑的國中生
  • **
  • 文章數: 55
    • 檢視個人資料
use CGI qw(:standard);

print header(-charset=>big5),start_html("Sinotech Mail Query System");
my $sender=param("user");

print p("<font size=6><B>Report :</B></font>");
print p("<font size=4><B>Sender E-mail Address : </B>$sender\@sinotech.com.tw</f
ont>");
print ("<TABLE border='3'>");
print ("<TR><TD width='150'><B>Messages ID</B></TD><TD width='150'><B>Time</B></
TD><TD width='250'><B>Reciver</B></TD><TD width='150'><B>Status</B></TD></TR>");
--------------------------
小羽晴好可愛~~

abelyang

  • 酷!學園 學長們
  • 俺是博士!
  • *****
  • 文章數: 1097
    • 檢視個人資料
[分享]用 perl 寫 CGI 時的中文顯示問題
« 回覆 #1 於: 2004-08-19 16:08 »
有時候 use CGI 會出現丟出來的都是 ISO8859-1 時
也可以去改 CGI.pm
$self->charset('ISO-8859-1');

改成你要的 Language 即可哦...就可以不用寫在每隻程式裏
如果 cgi 中要 output 不同的 charset, 用這種方法可能就不合適了