作者：agun
日期：2000-07-18 18:50:24
<?
//Program writen by sadly www.phpx.com
//modified by agun "a_gun@sina.com" 2000/6/20
//我忘了gb2312.txt是從哪下的了 ^_^
function gb2unicode($gb)
{
	if(!trim($gb))
		return $gb;
	$filename="c:\php3\gb2312.txt";
	$tmp=file($filename);
	$codetable=array();
	
	while(list($key,$value)=each($tmp))
		$codetable[hexdec(substr($value,0,6))]=substr($value,8,5);
	
	$ret="";
	while($gb)
	{
		if (ord(substr($gb,0,1))>127)
		{
			$this=substr($gb,0,2);
			$gb=substr($gb,2,strlen($gb));
			$ret.="&#".$codetable[hexdec(bin2hex($this))-0x8080].";";
		}
		else
		{
			$ret.=substr($gb,0,1);
			$gb=substr($gb,1,strlen($gb));
		}
	}
	return $ret;
}

header ("Content-Type: text/vnd.wap.wml");
echo "<?xml version=\"1.0\"?>";
?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="hello" title="WAP"> 
<p><?php
echo gb2unicode("中國agun阿棍");
?>
</p> 
</card> 
</wml>