<%functionunicode(str)dimi,j,c,i1,i2,u,fs,f,punicode=""p=""fori=1tolen(str)c=mid(str,i,1)j=ascw(c)ifj<0thenj=j+65536endififj>=0andj<=128thenifp="c"thenunicode=""&unicodep="e"endifunicode=unicode&celseifp="e"thenunicode=unicode&""p="c"endifunicode=unicode&"&#"&j&am...

前几天我在oso论坛上问有没有这个源程序，没人回复。终于下定决心移植一个这样的函数，感谢网友Keyes提供移植用的Delphi源代码。其调用方式为$txt=big5togb($txt)。    （注：源代码中的include"data_big5.php";这个文件在就是一个数组，在http://caocao.oso.com.cn/data_big5.zip，请编辑下载到oso上，做一个链接，因为这个文件我过几天就要删除了。）<?/**************************************************...

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