Function AscEncode(str)
Dim i
Dim sAscii
sAscii = ""
For i = 1 To Len(str)
sAscii = sAscii + CStr(Hex(Asc(Mid(str, i, 1))))
Next
AscEncode = sAscii
End Function
Function ChrEncode(str)
Dim i
Dim sStr
sStr = ""
For i = 1 To Len(str) Step 2
sStr = sStr + Chr(CLng("&H" & Mid(str, i, 2)))
Next
ChrEncode = sStr
End Function
'asp' 카테고리의 다른 글
| ASP 프로그램에서 세션 및 응용 프로그램 변수 사용 (0) | 2009.12.10 |
|---|---|
| FileSystemObject를 이용한 폴더(디렉토리) 생성하기 (0) | 2009.12.10 |
| Asc Function (0) | 2009.12.10 |
| VBScript!!!와 ASP의 오류처리 (0) | 2009.11.27 |
| GetRows (0) | 2009.11.25 |