ASP中实现的类似URLEncode的编码函数

<%lFk中国设计秀
'Coding.inc.asplFk中国设计秀
'All Rights Reserved, Room3rd@hotmail.comlFk中国设计秀

Function Encode(Str)lFk中国设计秀
 Dim Count, Pos, Ch, CodelFk中国设计秀
 Dim SweetChlFk中国设计秀
 lFk中国设计秀
 'SweetCh中表示不需要进行编码的字符lFk中国设计秀
 SweetCh = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()"lFk中国设计秀
 Encode = ""lFk中国设计秀
 lFk中国设计秀
 Count = Len(Str)lFk中国设计秀
 Pos = 1lFk中国设计秀
 Do While Pos<=CountlFk中国设计秀
  Ch = Mid(Str, Pos, 1)lFk中国设计秀
  lFk中国设计秀
  Code = Asc(Ch)lFk中国设计秀
  If Code>=0 And Code<256 Then  '汉字不予处理lFk中国设计秀
   If Ch<>"%" ThenlFk中国设计秀
    If InStr(SweetCh, Ch)=0 ThenlFk中国设计秀
     Ch = "%" & Right("0" & Hex(Code), 2)lFk中国设计秀
    End IflFk中国设计秀
   ElselFk中国设计秀
    Ch = "%25"lFk中国设计秀
   End IflFk中国设计秀
  End IflFk中国设计秀
  lFk中国设计秀
  Encode = Encode & ChlFk中国设计秀
  Pos = Pos + 1lFk中国设计秀
 LooplFk中国设计秀
End FunctionlFk中国设计秀

Function Decode(Str)lFk中国设计秀
 Dim Count, Pos, Ch, CodelFk中国设计秀
 lFk中国设计秀
 Decode = ""lFk中国设计秀
 lFk中国设计秀
 Count = Len(Str)lFk中国设计秀
 Pos = 1lFk中国设计秀
 Do While Pos<=CountlFk中国设计秀
  Ch = Mid(Str, Pos, 1)lFk中国设计秀
  If Ch="%" ThenlFk中国设计秀
   If Pos+2<=Count ThenlFk中国设计秀
    Ch = Chr((InStr("0123456789ABCDEF", UCase(Mid(Str, Pos+1, 1)))-1) * 16 + InStr("0123456789ABCDEF",UCase(Mid(Str, Pos+2, 1))) - 1)lFk中国设计秀
   ElselFk中国设计秀
    '编码串不正确lFk中国设计秀
    Ch = ""lFk中国设计秀
   End IflFk中国设计秀
   Pos = Pos + 2lFk中国设计秀
  End IflFk中国设计秀
  Decode = Decode & ChlFk中国设计秀
  Pos = Pos + 1lFk中国设计秀
 LooplFk中国设计秀
End FunctionlFk中国设计秀
%>lFk中国设计秀