꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

등록하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	HTML 사용
제목 *
내용 *	> <% > 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 > %> -----------------------------------------------------------

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *