ASP编码和解码函数详解
用ASP开发的时候遇到一个解码问题。虽然在ASP中使用Request获取编码过URL字符串会自动解码,但是Request.BinaryRead(Request.TotalBytes)取得Post数据时却不会解码,所以只能手动进行解码。
ASP解码函数:
FunctionURLDecode(enStr) dimdeStr,strSpecial dimc,i,v deStr="" strSpecial="!""#$%&'()*+,.-_/:;<=>?@[/]^`{|}~%" fori=1tolen(enStr) c=Mid(enStr,i,1) ifc="%"then v=eval("&h"+Mid(enStr,i+1,2)) ifinStr(strSpecial,chr(v))>0then deStr=deStr&chr(v) i=i+2 else v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2)) deStr=deStr&chr(v) i=i+5 endif else ifc="+"then deStr=deStr&"" else deStr=deStr&c endif endif next URLDecode=deStr Endfunction
只是个人爱好,自己研究了一下编码的实现思路,最后自己写了一个编码函数,提供大家参考。注:ASP有内置的编码函数,即是Server.URLEncode。
ASP编码函数:
privateFunctionURLEncoding(vstrIn) strReturn="" Fori=1ToLen(vstrIn) ThisChr=Mid(vStrIn,i,1) IfAbs(Asc(ThisChr))<&HFFThen strReturn=strReturn&ThisChr Else innerCode=Asc(ThisChr) IfinnerCode<0Then innerCode=innerCode+&H10000 EndIf Hight8=(innerCodeAnd&HFF00)/&HFF Low8=innerCodeAnd&HFF strReturn=strReturn&"%"&Hex(Hight8)&"%"&Hex(Low8) EndIf Next URLEncoding=strReturn EndFunction
建议大家在中文编码的时候,还是使用ASP内置的函数。虽然上面这个编码函数测试过N遍了,没有发现问题,但是以防万一存在Bug。
以上就是关于ASP编码和解码函数,希望对大家的学习有所帮助。