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

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