asp下实现UrlEncoding转换编码的代码

时间:2022-09-18 14:31:37
  1. '==================================================  
  2. '函数名:UrlEncoding  
  3. '作  用:转换编码  
  4. '==================================================  
  5. Function UrlEncoding(DataStr)  
  6.     Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8  
  7.     StrReturn = ""  
  8.     For Si = 1 To Len(DataStr)  
  9.         ThisChr = Mid(DataStr,Si,1)  
  10.         If Abs(Asc(ThisChr)) < &HFF Then  
  11.             StrReturn = StrReturn & ThisChr  
  12.         Else  
  13.             InnerCode = Asc(ThisChr)  
  14.             If InnerCode < 0 Then  
  15.                InnerCode = InnerCode + &H10000  
  16.             End If  
  17.             Hight8 = (InnerCode  And &HFF00)\ &HFF  
  18.             Low8 = InnerCode And &HFF  
  19.             StrReturn = StrReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)  
  20.         End If  
  21.     Next  
  22.     UrlEncoding = StrReturn  
  23. End Function