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

‘================================================== ‘函数名：UrlEncoding ‘作  用：转换编码 ‘================================================== Function UrlEncoding(DataStr)     Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8     StrReturn = “”     For Si = 1 To