utf8 ——>GB.2312的转换，才能
# p# v9 \0 D, N7 x; {对收到的字符进行查询等操作
1 ?' @+ T9 ?5 ]: B# [如何写这个转换程序？ : e7 C" C: h" o  A0 M

; ^0 x3 D5 L& l高手赐教！
% D- ~* z$ [, U/ ^8 j______________________________________________________________________________________________' F( O" M& w9 Q- H# D& U, }# A/ g
答1：
' r; V2 B$ |- x7 Nfunction gb2utf8($gb); V  u. ?7 O1 A/ b, m4 i
{: U: O3 j' i1 [  x# ^6 H' @; F
        if(!trim($gb))7 ?3 I9 w- o8 {: P: m
                return $gb;3 T# s* S! Z& {9 \' E5 d4 L
        $filename="gb2312.txt";
  n) P% |7 }8 w        $tmp=file($filename);
" S& a+ @: L; ?# v0 Q        $codetable=array();
0 v! B" |3 i2 U; u2 N' f! u        while(list($key,$value)=each($tmp))# Q7 {8 ]0 U' u6 j- _1 w
                $codetable[hexdec(substr($value,0,6))]=substr($value,7,6);7 o- V( s( {0 F* _+ y; V" `
8 O( H, P" j8 ^* I2 S6 e& s
        $utf8="";
; f. p. e- v) I/ y. I+ G: \: j        while($gb) {
9 g0 y- j7 g1 H                if (ord(substr($gb,0,1))>127) {: U/ Q: i0 M2 I6 ^, d" {
                        $this=substr($gb,0,2);
0 Y$ N) V8 d2 X                        $gb=substr($gb,2,strlen($gb));
3 ~( F; r6 g: z' B                        $utf8.=u2utf8(hexdec($codetable[hexdec(bin2hex($this))-0x8080]));* T% Y5 Z, r6 ?
                } else {
& T. z+ C' z" N' Y: D1 m9 {                        $gb=substr($gb,1,strlen($gb));
' H2 t- j$ o7 I3 b( x+ y& I7 v& N                        $utf8.=u2utf8(substr($gb,0,1));: b& C& F3 Y3 r) D: o6 |9 m! u
                }  U- Y6 e9 I, h+ M" _( y1 r
        }
: I( \% C( g$ I
8 d8 j% Z! ?" b/ }5 ^  V        $ret="";' G% F0 U& }& z' _2 N- h
        for($i=0;$i<strlen($utf8);$i+=3)8 Q5 A$ X) X: m4 ?: M/ s2 Z! h' Q" H; F
                $ret.=chr(substr($utf8,$i,3));6 |# }- x- l# Y7 a) K* O2 W
# C( L' a2 n7 M9 v( ~# ^, s
        return $ret;
/ ~) ]1 p% J0 f. E1 f! p}
9 `2 ]! ?0 E5 G. k2 p2 X7 `5 Y) f4 S: S- g7 \, @! J) a
function u2utf8($c) {/ i& @6 s2 Y7 p: n
        for($i=0;$i<count($c);$i++)0 Z& ~0 _3 D5 v& U" Z* ^
        $str="";* B; g% _* i8 f' J( J5 F
        if ($c < 0x80) {
, o* K% K9 \; M7 Y& d        $str.=$c;& d( X1 L+ J! V
        }
* ?; C# D7 N6 F$ D/ l9 G" }3 l        else if ($c < 0x800) {
! n7 F/ p$ M, q( F" B        $str.=(0xC0 | $c>>6);
1 C" a0 Z, y( _. g& e" L* B$ h        $str.=(0x80 | $c & 0x3F);8 t5 S, O# x5 ]5 E
        }
5 V( X( u6 F1 [2 _        else if ($c < 0x10000) {% A2 O4 D* A' K0 s
        $str.=(0xE0 | $c>>12);
7 K% ~  _1 o6 w  O1 W9 p        $str.=(0x80 | $c>>6 & 0x3F);2 V1 {" A* o, G# u" K, `; W
        $str.=(0x80 | $c & 0x3F);
8 J7 M: I, U8 x2 o! C' Y        }) l2 w# G2 [5 O
        else if ($c < 0x200000) {* m; N9 a. T$ a$ t; m! ?; V3 H$ E
        $str.=(0xF0 | $c>>18);
! y: w8 B& U" `1 }+ ]        $str.=(0x80 | $c>>12 & 0x3F);9 M# _1 I0 _6 q% }% f  Z6 i, S
        $str.=(0x80 | $c>>6 & 0x3F);
! l1 y8 r  |9 R5 K        $str.=(0x80 | $c & 0x3F);
; S$ ]1 @: k+ m! B4 u/ q) v6 j7 v( i        }
! ^( ~3 s4 @: |; L1 X        return $str;
5 }( X) h& r, _. I1 K  O+ l% X}

function utf82gb($gb){    /* Program writen by sadly   modified by agun */
, T, i3 X/ a% h7 s& M! }1 h: R6 g        if(!trim($gb)); T: V# ]) W" g" q( }
                return $gb;+ X: O" h! y$ Q" V: @3 l+ s
        $filename=IDIR."include/gb-unicode.table";/ }' ]: z0 n8 p7 ^8 V- S
        $tmp=file($filename);) N1 |3 ~& I) W. E$ _
        $codetable=array();4 e6 B- E2 y, v+ M2 \
        while(list($key,$value)=each($tmp))+ m7 d" @; l  `  H% g, F( `6 ^' U
                $codetable[hexdec(substr($value,7,6))]=substr($value,0,6);;2 e( I( e$ H3 E+ j, M2 j2 y
        $out = "";0 D' w+ X* ?& j# f, w. w# [1 S
        $len = strlen($gb);
- S; L) q+ H& j7 h% m        $i = 0;4 S" ?% V: x/ m$ {( Z# a
        while($i < $len) {
6 ?+ b) z- L0 n* e                $c = ord( substr( $gb, $i++, 1 ) );  b8 n; e* S" k! q+ S7 {
                switch($c >> 4)
1 D' ?% ]0 c/ L                {
" o. L: [  T( W7 F# L# V5 q                        case 0: case 1: case 2: case 3: case 4: case 5: case 6: case 7:
1 m8 F! f$ [4 ?4 W# S# g                                // 0xxxxxxx9 {, j: G* v& a( H! m1 V# C. R
                                $out .= substr( $gb, $i-1, 1 );
& k- |0 l2 I. C3 I( R. a9 k                        break;
- U1 c3 q5 B& Y$ M: T* r4 _2 ]' @                        case 12: case 13:9 l* {2 u; h" P% _2 c
                                // 110x xxxx   10xx xxxx& }, P: o) l4 c5 }- }) Z" b
                                $char2 = ord( substr( $gb, $i++, 1 ) );3 N: n7 _5 @! }: r" \
                                $char3 = $codetable[(($c & 0x1F) << 6) | ($char2 & 0x3F)];
" `2 ]- ^  g6 K  ]# Z( R; }. `                                $out .= _hex2bin( dechex(  $char3 + 0x8080 ) );
+ a+ L5 n. x6 c0 F( v. }) V9 x/ m1 X                        break;1 n" c, I. j# |# w( }* Y% _) }
                        case 14:
: v3 U( I* K, z* P( m' Q1 S/ z$ C* D                                // 1110 xxxx  10xx xxxx  10xx xxxx! e9 C# Q+ [( n: m
                                $char2 = ord( substr( $gb, $i++, 1 ) );
$ y% H7 `5 v; P* d1 A! _) a& t                                $char3 = ord( substr( $gb, $i++, 1 ) );
! a5 i: J+ v  R' N/ }) h# \6 _2 X- _                                $char4 = $codetable[(($c & 0x0F) << 12) | (($char2 & 0x3F) << 6) | (($char3 & 0x3F) << 0)];
3 e1 T- j, k8 X; X                                $out .= _hex2bin( dechex ( $char4 + 0x8080 ) );6 h  o0 N) M3 a
- n! b; C4 p* O8 y- c* W9 ]7 ?3 k, k% l
                                
8 d4 u4 V( X( s# z! e8 V' \                        break;3 Q1 C- g  o4 H4 G, {
                }
0 V) A2 q0 t$ e4 b5 R5 F. ?' Z        }: q9 B; h5 a3 |2 K: u- R1 C
        return $out;
3 \9 l0 Y' \6 s4 \5 K/ j5 g}
7 Z+ y7 o: x5 I4 T: g5 _% I0 O& i& b& w' \
function _hex2bin( $hexdata )
: h# A  v- L; p7 m        {# g6 U7 X; H! A" g8 r
                for ( $i=0; $i<strlen($hexdata); $i+=2 )
' W1 i/ a% J; d$ C7 H                        $bindata.=chr(hexdec(substr($hexdata,$i,2)));% Z* `& Q) K- c! ^
! }( [5 F3 \2 B( g7 G
                return $bindata;
$ f2 ~0 h6 ]. L% d' G7 f        }