编码解码相关函数汇总

二进制文本的解码函数

将"CONTENT-TYPE","application/x-www-form-urlencoded"方式request近来的文本进行解码函数。
function CNencoder(xText)
 dim i,c,stemp,theLen
 set dr=CreateObject("Adodb.Stream")
 stemp=""
 dr.Mode=3
     dr.Type=1
     dr.Open
     dr.Write xText
     dr.Position=0
 
 theLen=dr.Size

 for i=1 to theLen
  if dr.EOS then Exit for
  c=ascB(dr.Read(1))
  If c > 127 Then
   if dr.EOS then Exit for
   stemp=stemp&Chr(AscW(ChrB(AscB(dr.Read(1)))&ChrB(c)))
   i=i+1
  else
   stemp=stemp&Chr(c)
   End If
 Next
 dr.close
 set dr=nothing
 CNencoder=stemp
end function

**********************************************************