我要投稿

ASP编码和解码函数详解

admin ASP编程

2023-12-05 0 222

用ASP开发的时候遇到一个解码问题。虽然在ASP中使用Request获取编码过URL字符串会自动解码，但是Request.BinaryRead(Request.TotalBytes)取得Post数据时却不会解码，所以只能手动进行解码。
ASP解码函数：

Function URLDecode(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=\”\”
strSpecial=\”!\”\”#$%&\'()*+,.-_/:;<=>?@[/]^`{|}~%\”
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c=\”%\” then
v=eval(\”&h\”+Mid(enStr,i+1,2))
if inStr(strSpecial,chr(v))>0 then
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
end if
else
if c=\”+\” then
deStr=deStr&\” \”
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
End function

只是个人爱好，自己研究了一下编码的实现思路，最后自己写了一个编码函数，提供大家参考。注：ASP有内置的编码函数，即是Server.URLEncode。

ASP编码函数：

private Function URLEncoding(vstrIn)
strReturn = \”\”
For i = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)/ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & \”%\” & Hex(Hight8) & \”%\” & Hex(Low8)
End If
Next
URLEncoding = strReturn
End Function