Notice
Recent Posts
Recent Comments
Tags more
«   2025/01   »
일 월 화 수 목 금 토
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
Archives
Today
Total
관리 메뉴

웹개발자의 기지개

URLencode, URLdecode 본문

ASP

URLencode, URLdecode

http://portfolio.wonpaper.net 2019. 12. 11. 02:23

asp상에서 Server.URLencode("가나다") 와 같이 encode 함수는 지원을하고 있다.


다만, decode 함수는 별도로 장만해야한다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
 cs

 

'ASP' 카테고리의 다른 글

이전페이지의 파일명만 구하기 Request.ServerVariables("HTTP_REFERER")  (0) 2019.12.11
CodePage 와 Charset euc-kr 과 utf-8  (0) 2019.12.11
이전페이지 파일명 구하기  (0) 2018.11.28
현재파일명 구하기  (0) 2018.11.27
asp 내부오류 500 [2008서버]  (0) 2018.11.18
'ASP' Related Articles more
Comments