貼段PHP畫圖的程式,給希望用PHP作圖的朋友一點啟發,協助!

來源:互聯網
上載者:User
程式 主要包括三個檔案:
1、view.php是調用程式。
2、chart.php是用來組建圖表的程式。
3、gbtoutf8.php是用來中文解碼的(註:已解決中英文混合不能正常顯示的問題)

1、view.php
<?
include("gbtoutf8.php");
?>
<html>
<head>
<title>  </title>
<meta name="Author" content="XIANG Li">
</head>
<?
/*此處資料可從資料庫中取得*/
$aStr = "IT,PC,Phone,Sever,Passport,Software";
$aSoft = "Win2000,Win98,Office,Foxmail,Outlook";
$aHard = gb2utf8("地板,窗戶,玻璃,桌子,燈管,植被");
$title1 = gb2utf8('2002年IT維護report');
$title2 = gb2utf8('2002年軟體維護report');
$title3 = gb2utf8('2002年固定資產report');
?>
<body>
<div align="center">
<table>
<tr>
    <td><input type="image" src="./chart.php?aStr=<?=$aStr?>&title=<?=$title1?>"></td>
</tr>
<tr><td> </td></tr>
<tr>
    <td><input type="image" src="./chart.php?aStr=<?=$aSoft?>&title=<?=$title2?>"></td>
</tr>
<tr><td> </td></tr>
<tr>
    <td><input type="image" src="./chart.php?aStr=<?=$aHard?>&title=<?=$title3?>"></td>
</tr>
</table></div>
</body>
</html>

2、chart.php
<?php
/*
*  功能:產生統計圖表
*  程式員:wlxz
* 日期:2002-00-00
*/

Header("Content-type: image/png");
  $im = ImageCreate (350, 280);
  $col_oth = ImageColorAllocate($im, 0,0,0);
  $col_orn = ImageColorAllocate($im, 255,192,0);
  $col_yel = ImageColorAllocate($im, 255,255,0);
  $col_red = ImageColorAllocate($im, 255,0,0);
  $col_grn = ImageColorAllocate($im, 0,255,0);
  $col_blu = ImageColorAllocate($im, 0,0,255);
  $col_wit = ImageColorAllocate($im, 255,255,255);
  $col_array = array($col_oth, $col_orn, $col_yel, $col_red, $col_grn, $col_blu);

$dot1 = 28;
$dot2 = 20;
$font="c:/winnt/fonts/simhei.ttf";
$aStr = explode(",", trim($_GET['aStr']));
$title = trim($_GET['title']);

ImageTTFText($im,18,0,100,50,$col_wit,$font,$title);//寫標題

  for($i=1;$i<count($col_array);$i++){
  ImageFilledRectangle($im,50*$i-$dot2,$dot1*$i,50*$i,200,$col_array[$i]);
  ImageRectangle($im,50*$i-$dot2,$dot1*$i,50*$i,200,$col_wit);
  ImageRectangle($im,50*$i-$dot2-1,$dot1*$i-1,50*$i+1,200,$col_wit);
  ImageTTFText($im,14,270,50*$i-15,205,$col_wit,$font,$aStr[$i-1]);
  
// ImageLine($im,50*$i-$dot2,$dot1*$i,50*$i-$dot2,200,$col_wit);
  ImageLine($im,50*$i-$dot2,$dot1*$i,50*$i,$dot1*$i,$col_wit);
  }
  ImageRectangle($im,10,10,300,200,$col_wit);
  ImageRectangle($im,11,11,301,201,$col_wit);

//右邊百分比
  for($i=1;$i<count($col_array);$i++){
    ImageLine($im,300,$i*33,306,$i*33,$col_wit);
    $str = (100-$i*5)."%";
    ImageTTFText($im,14,0,315,$i*33+2,$col_wit,$font,$str);
  }

  ImagePNG($im);
  ImageDestroy($im);
?>

3.gbtoutf8.php
<?
/*
*  功能:把GB2312編碼轉換成UTF-8的編碼
*  程式員:wlxz
* 日期:2002-00-00
*/

function gb2utf8($gb){
    if(!trim($gb))
        return $gb;

    $filename="gb2312.txt";
    $tmp=file($filename);
    $codetable=array();
    
    while(list($key,$value)=each($tmp))
        $codetable[hexdec(substr($value,0,6))]=substr($value,7,6);
    
    $ret="";
    $utf8="";
    
    while($gb){
        if (ord(substr($gb,0,1))>127)
            {
            $this=substr($gb,0,2);
            $gb=substr($gb,2,strlen($gb));
            $utf8=u2utf8(hexdec($codetable[hexdec(bin2hex($this))-0x8080]));

            for($i=0;$i<strlen($utf8);$i+=3)
                $ret.=chr(substr($utf8,$i,3));
            }
            else{
                $ret.=substr($gb,0,1);
                $gb=substr($gb,1,strlen($gb));
                }
    }
    
    return $ret;
}

function u2utf8($c){
    for($i=0;$i<count($c);$i++)
        $str="";

    if ($c < 0x80){
        $str.=$c;
    }
    else if ($c < 0x800){
        $str.=(0xC0 | $c>>6);
        $str.=(0x80 | $c & 0x3F);
    }
    else if ($c < 0x10000){
        $str.=(0xE0 | $c>>12);
        $str.=(0x80 | $c>>6 & 0x3F);
        $str.=(0x80 | $c & 0x3F);
    }
    else if ($c < 0x200000){
        $str.=(0xF0 | $c>>18);
        $str.=(0x80 | $c>>12 & 0x3F);
        $str.=(0x80 | $c>>6 & 0x3F);
        $str.=(0x80 | $c & 0x3F);
    }
    
    return $str;
}


function gb2unicode($gb){
    if(!trim($gb))
        return $gb;
    
    $filename="gb2312.txt";
    $tmp=file($filename);
    $codetable=array();

    while(list($key,$value)=each($tmp))
        $codetable[hexdec(substr($value,0,6))]=substr($value,9,4);
    $utf="";
    while($gb){
        if (ord(substr($gb,0,1))>127){
            $this=substr($gb,0,2);
            $gb=substr($gb,2,strlen($gb));
            $utf.="&#x".$codetable[hexdec(bin2hex($this))-0x8080].";";
            }
            else{
                $gb=substr($gb,1,strlen($gb));
                $utf.=substr($gb,0,1);
                }
    }
    return $utf;
}
?>

相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。