<%
1、'UTF转GB---将UTF8编码文字转换为GB编码文字
function UTF2GB(UTFStr)

for Dig=1 to len(UTFStr)
  '如果UTF8编码文字以%开头则进行转换

  if mid(UTFStr,Dig,1)="%" then
     'UTF8编码文字大于8则转换为汉字
    if len(UTFStr) >= Dig+8 then
       GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
       Dig=Dig+8
    else
      GBStr=GBStr & mid(UTFStr,Dig,1)
    end if
  else
     GBStr=GBStr & mid(UTFStr,Dig,1)
  end if
next
UTF2GB=GBStr
end function

'UTF8编码文字将转换为汉字
function ConvChinese(x)
   A=split(mid(x,2),"%")
   i=0
   j=0
  for i=0 to ubound(A)
     A(i)=c16to2(A(i))
  next
  for i=0 to ubound(A)-1
    DigS=instr(A(i),"0")