Decode된걸 복구하기...
Function URLDecode(Expression)
Dim strSource, strTemp, strResult, strchr
Dim lngPos, AddNum, IFKor
strSource = Replace(Expression, "+", " ")
For lngPos = 1 To Len(strSource)
AddNum = 2
strTemp = Mid(strSource, lngPos, 1)
If strTemp = "%" Then
If lngPos + AddNum < Len(strSource) + 1 Then
strchr = CInt("&H" & Mid(strSource, lngPos + 1, AddNum))
If strchr > 130 Then
AddNum = 5
IFKor = Mid(strSource, lngPos + 1, AddNum)
IFKor = Replace(IFKor, "%", "")
strchr = CInt("&H" & IFKor )
End If
strResult = strResult & Chr(strchr)
lngPos = lngPos + AddNum
End If
Else
strResult = strResult & strTemp
End If
Next
URLDecode = strResult
End Function
'Response.Write URLDecode("200%20Admiral%2019s%20Cove%20Blvd.%2C%20Jupiter%2C%20FL%2033477")
'개발 > asp' 카테고리의 다른 글
[asp]Request.ServerVariables (0) | 2018.07.04 |
---|---|
[asp] CLOB 데이터 저장, 읽기 (0) | 2012.01.31 |
[asp] 다른사이트 불러오기 (0) | 2011.12.16 |
[asp] RegExp를 이용한 정규식(?) (0) | 2010.08.18 |
[ASP] DateAdd함수 (0) | 2010.07.14 |