classic asp (36) 썸네일형 리스트형 [classic asp] 값을 변수화시키기 aaa = "bbb" bbb = "m.n" ccc = EVAL(aaa) Response.Write ccc For i = 1 To 10 execute("a"&i&" = Request(""a"&i&""")") ' a1~a10 까지 변수선언과 Request값을 변수에 할당.. Next %> [classic asp] 숫자관련 함수 1. ABS() : 정수값만 가져온다 Fix 와 Int 는 모두 '잘라내기를 통해 숫자의 정수 부분을 반환' 하는 함수입니다. 즉 Fix (9.8) 이나 Int (9.8) 모두 똑같이 9 라는 값을 반환한다는 뜻이지요. Fix (-9.8) 은 -9를, Int (-9.8) 은 -10을 반환한다(Fix 는 소수점 이하 숫자를 없애버리고, Int 는 '내림' 을 하는 것) Abs (-3.5) 나 Abs (3.5) 모두 3.5 라는 값을 반환.절대값을 반환 2. 반올림 : Formatnumber(1.5 , 0) 3. 버림 : fix() 4. 올림 : -(Int(-(변수))) [classic asp] base64 인코딩/디코딩 set bd = Server.CreateObject("Chilkat_9_5_0.BinData") s = "TEST"success = bd.AppendString(s,"utf-8")strBase64 = bd.GetEncoded("base64") Response.Write "" & Server.HTMLEncode( strBase64) & "" ' To decode: set bd2 = Server.CreateObject("Chilkat_9_5_0.BinData") success = bd2.AppendEncoded(strBase64,"base64") decoded = bd2.GetString("utf-8") Response.Write "" & Server.HTMLEncode( decoded) & "" %> [classic asp] HTTP URL 파일 다운로드 set http = Server.CreateObject("Chilkat_9_5_0.Http") ' Download a .zip localFilePath = Server.Mappath(".")"/temp/file.zip" success = http.Download("http://test.co.kr/file.zip",localFilePath) If (success 1) Then Response.Write "" & Server.HTMLEncode( http.LastErrorText) & "" Response.End End If [classic asp] JWT Web Token "leeway = 1bTimeValid = jwt.IsTimeValid(token,leeway)Response.Write Server.HTMLEncode( "time: " & bTimeValid) & ""payload = jwt.GetPayload(token)Response.Write Server.HTMLEncode( payload) & "" joseHeader = jwt.GetHeader(token)Response.Write Server.HTMLEncode( joseHeader) & ""%> [classic asp] AES256 암호화, 복호화 Session.CodePage = 65001 Response.ChaRset = "utf-8" '암호화 검증 사이트 : https://www.devglan.com/online-tools/aes-encryption-decryption Dim secret_key secret_key = "secretkey01234567890secretkey012" '32바이트의 Key secret_iv = "secretkey0123456" '유동적인 초기화벡터(제2의 키) '16바이트 iv postData = "Hello, World!" encStr = KeyEncrypt(postData) response.write "암호화 : " & encStr & " " response.write "복호화 : " & KeyDecrypt(e.. [classic asp] 엑셀(xls)로 저장 Response.ContentType = "application/x-msexcel" Response.CacheControl = "public" Response.AddHeader "Content-Disposition" , "attachment; filename=파일명.xls" 제목 제목1 제목2 제목3 데이터1 데이터2 데이터3 [classic asp] HTML 디코딩 Function HTMLDecoding(Str) 'HTML 디코딩 Dim ReturnValue Dim Cks If Isnull(Str) = True Or Str = "" Then ReturnValue = "" Else Set Cks = Server.CreateObject("Chilkat_9_5_0.CkString") Cks.Str = Str Cks.EmitMultibyte("utf-8") Cks.HtmlEntityDecode ReturnValue = Cks.Str Set Cks = Nothing End If HTMLDecoding= ReturnValue End Function 이전 1 2 3 4 5 다음