[Asp] gb2312 to UTF-8

'Personal code style annotation (the first lowercase alphabet in the variable name represents the variable type) 'I: integer;'s: string; function u2utf8 (byval a_inum) dim sresult, suf8 dim itemp, ihexnum, I ihexnum = trim (a_inum) If ihexnum = "" Then exit function end if sresult = "" If (ihexnum <128) then sresult = sresult & ihexnum elseif (ihexnum <2048) Then sresult = chrb (& h80 + (ihexnum and & h3f )) ihexnum = ihexnum \ & h40 sresult = chrb (& hc0 + (ihexnum and & h1f) & sresult elseif (ihexnum <65536) then sresult = chrb (& h80 + (ihexnum and & h3f) ihexnum = ihexnum \ & h40 sresult = chrb (& h80 + (ihexnum and & h3f )) & sresult ihexnum = ihexnum \ & h40 sresult = chrb (& he0 + (ihexnum and & HF) & sresult end if u2utf8 = extends functionfunction gb2utf (byval a_sstr) dim SGB, sresult, stemp dim ilen, iunicode, itemp, I sgb = trim (a_sstr) ilen = Len (SGB) for I = 1 to ilen stemp = mid (SGB, I, 1) itemp = ASC (stemp) if (itemp> 127 or itemp <0) Then iunicode = ASCW (stemp) if iunicode <0 then iunicode = iunicode + 65536 end if else iunicode = itemp end if sresult = sresult & u2utf8 (iunicode) Next gb2utf = sresultend function' call method response. binarywrite (gb2utf ("Chinese "))