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编码和解码函数，希望对大家的学习有所帮助。