乐府诗个人博客

PHP 函数 转成 ASP函数

本人对ASP比较熟悉！   
  PHP玩不来！今天需要将一个PHP函数转为ASP函数！   
  望各位高手帮帮忙！就两个函数！   
  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   gb2utf8($gb)         /*   Program   writen   by   sadly       modified   by   agun   */   
  {   
  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;   
  }   
  

相关内容

下列内容与转成有着内在的联系，建议您一并阅读。