感谢网友Keyes提供移植用的Delphi源代码。其调用方式为$txt=gbtobig5($txt)。
;;;;（注：源代码中的include "data_gb.php";这个文件在就是一个数组，在http://caocao.oso.com.cn/data_gb.zip，请编辑下载到oso上，做一个链接，因为这个文件我过几天就要删除了。）

<?
/***********************************************************************
;;;;;;;Written by caocao
;;;;;;;caocao@eastday.com
;;;;;;;http://caocao.oso.com.cn

;;;;;;;With the help of Keyes
;;;;;;;Keyes2000@263.net
;;;;;;;http://my-wjl.scu.edu.cn/~Keyes
***********************************************************************/
function isgb($code)
{
;;if (strlen($code)>=2)
;;{
;;;;$code=strtok($code,"");
;;;;if ((ord($code[0]) < 161)||(ord($code[0]) >= 247))
;;;;{
;;;;;;return (0);
;;;;}
;;;;else
;;;;{
;;;;;;if ((ord($code[1]) <= 161)||(ord($code[1]) >= 254))
;;;;;;{
return (0);
;;;;;;}
;;;;;;else
;;;;;;{
return (1);
;;;;;;}
;;;;}
;;}
;;else
;;{
;;;;return (1);
;;}
}

function gboffset($code)
{
;;if (strlen($code) >= 2)
;;{
;;;;$code=strtok($code,"");
;;;;return ((ord($code[0]) - 161) * 94 + (ord($code[1]) - 161));
;;}
;;else
;;{
;;;;return(-1);
;;}
}

function wordtostring($code)
{
;;return (chr(hexdec(substr($code,0,2))).chr(hexdec(substr($code,2,2))));
}

function gbtobig5($code)
{
;;include "data_gb.php"
;;$output=""
;;$length=strlen($code);
;;$code=strtok($code,"");
;;$idx=0;
;;while ($idx < $length)
;;{
;;;;$tmpStr=$code[$idx].$code[$idx+1];
;;;;;
;;;;if (isgb($tmpStr))
;;;;{
;;;;;;$offset=gboffset($tmpStr);
;;;;;;if (($offset >= 0)||($offset <= 8177))
;;;;;;{
$output.=wordtostring($gborder[$offset]);
$idx++;
;;;;;;}
;;;;;;else
;;;;;;{
$output.= $code[$idx];
;;;;;;}
;;;;}
;;;;else
;;;;{
;;;;;;$output.= $code[$idx];
;;;;}
;;;;$idx++;
;;}
;;return ($output);
};
?>;;

【本文版权归作者与奥索网共同拥有，如需转载，请注明作者及出处】;;;;

标签： 函数