[Classic ASP] 모든 세션 값 확인
For Each key In Session.Contents Response.write "Session : " & key & " : " & Session.Contents(key) & "<br>" Next
0 Comments
2023년 10월 30일
[Classic ASP]
전화번호 하이픈 추가 함수 Function addHyphen(fmemtel) Select Case Len(fmemtel) Case 8 '1588-xxxx t1 = Mid(fmemtel,1,4) t2 = Mid(fmemtel,5,4) response.write t1 & "-" &t2 Case 9 '02-xxx-xxxx t1 = Mid(fmemtel,1,2) t2…
2023년 10월 17일
[Classic ASP] 인크루드 파일명에 변수 사용
이렇게 쓰면 에러남 <!--#include virtual="/_<%=p%>/<%=m%>.asp" --> 아래처럼 써야됨 <% Dim p : p = "main" Dim m : m = "index" If Request("p") <> "" Then p = Request("p") If…
2023년 09월 15일
[Classic ASP] 트랜잭션
DB.Errors.clear DB.BeginTrans '트랜잭션 시작 DB.Execute (SQL) 'Execute if DB.Errors.count>0 Then DB.RollbackTrans '에러가 발생한다면 트랜잭션 롤백시킨다. Set objError = Server.CreateObject("ADODB.Error") for each objError in DB.Errors Msg (objerror.Description) '에러문 출력 Next objError.close…
2023년 09월 07일
[Classic ASP] 내장 함수 모음
abs() '절대값구하기' array(배열) '배열을 반환' asc() '문자의 ANSI문자값을 반환' atn() '아크 탄젠트로 반환' cbool() 'boolean형식으로 반환' cbyte() 'byte형식으로 반환' ccur() 'currency형식으로 반환' cdate() 'date형식으로 반환' cdbl() 'double형식으로 반환' chr() 'asc()함수의…
2023년 09월 07일
[Classic ASP] 스트림을 이용한 파일 다운로드
<% Response.Expires = 0 Response.Buffer = True Response.Clear dir = request("dir") filename = request("filename") filepath = Server.MapPath("\webfs\") & "\Common\etcFiles\"&dir&"\" & filename set objFS = Server.CreateObject("Scripting.FileSystemObject") If objFS.FileExists(filepath) Then Response.ContentType =…
2023년 09월 07일
[Classic ASP] 예외처리 , 에러 코드(try 비슷하게 쓸 수 있음)
ASP.NET에서는 try catch 구문이 있지만 asp에는 존재하지 않는다. 대신 사용할 수 있는 구문이 On Error 구문이다. <% on error resume next Insert 시도.. if err.number<>0 then Response.Write "insert Error" else…
2023년 09월 06일
[Classic ASP] 페이징을 위한 mssql 쿼리
<% page_num = Request("page_num") scale = Request("scale") keyword = Request("keyword") p_act = Request("p_act") where = "WHERE 1=1 " If p_act <> "" Then where = where & "AND p_act =…
2023년 09월 01일
[Classic ASP] JSON_2.0.4.asp / JSON_UTIL_0.1.1.asp
JSON_2.0.4.asp https://github.com/danielmarcoto/asp2console/blob/master/dependencies/JSON_2.0.4.asp <% ' ' VBS JSON 2.0.3 ' Copyright (c) 2009 Tu�rul Topuz ' Under the MIT (MIT-LICENSE.txt) license. ' 'Permission is hereby granted, free of charge, to any…
2023년 08월 30일
[Classic ASP] PHP 의 print_r 함수처럼
<% Sub print_r(var) Dim myPrint Set myPrint = New clsPrint myPrint.print var, 0 End Sub Class clsPrint Public Sub print(var, nIndent) Dim nType, sTypeName 'Response.Write TypeName(var) nType = VarType(var) Select…
2023년 08월 28일