개발자의 끄적끄적

[asp] 현재 url 가져오기 현재 domain 찾기 ex) tistory.com 현재 domain 찾기 request.servervariables("HTTP_url") ex) /index.asp 현재 페이지 전체 URL 찾기 ex) tistory.com/index.asp

[asp] 문자열 자르기 / 배열크기 구하기 arr = "1,2,3,4,5" sp_arr = split(arr,",") 위와 같이 1,2,3,4,5 라는 5개의 수가 담긴 배열을 콤마(,)를 기준으로 자르려면 sp_arr = split(arr,",") 이렇게 하면 됩니다! 그리고 이 배열의 크기를 구하려면 arr_count = UBound(sp_arr) 이렇게 하면 됩니다!! 여기서 참고해야 될 사항은!!! 문자로 나눈 정보를 UBound 로 체크하면 5가 나와야 할거 같지만 4가 나오게 됩니다! 즉, 배열의 마지막 인덱스 값이 나오는거라고 생각하시면 됩니다! 따라서 카운트는 +1 해주시면 맞게 됩니다!! 꼭 잊지말고 참고하세용!

[asp] asp 파일명 / 확장자 가져오기 full_name = "abc.jpg"; Name = Mid(full_name, 1, instrRev(full_name,".")-1) Type = Mid(full_name, instrRev(full_name,".")+1) 이렇게 하면 됩니다! 결과는 Name 에는 abc 가 들어가고 Type 에는 jpg 가 들어가게 됩니다~! 참고하세요!

[asp] asp 파일 삭제 sPath = "서버의 파일 경로" Dim Fso Set Fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(sPath) Then fso.DeleteFile(sPath) '파일이 존재하면 삭제합니다. End If Set Fso = Nothing 위 처럼 sPath에 서버의 파일경로를 설정해주고 Object를 생성하여 실행시키면 파일이 있는지 확인하여 있을 경우만 삭제를 합니다! 참고들하세요! ㅎㅎ

[asp] asp 유용한 함수 모음 [ 펌 ] 'HTML 태그제거 function StripTags( htmlDoc ) dim rex set rex = new Regexp rex.Pattern= "]+>" rex.Global=true StripTags =rex.Replace(htmlDoc,"") end function '=========================================================================== '함수명 : DB_IN_STR 'INPUT : cur_str ==> 검사할 문자열 '기능설명 : DB입력할때 ' 만 '' 로 교체 '====================================================================..

[asp] asp 정규식을 이용한 html 태그 제거 함수 Function stripTags(HTMLstring) Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "]+>" .IgnoreCase = True .Global = True End With stripTags = RegularExpressionObject.Replace(HTMLstring, "") Set RegularExpressionObject = nothing End Function 출처: http://snippets.dzone.com

[asp] asp 날짜 관련 함수 모음 실행결과 now : 2006-07-25 오후 6:52:24 now + 1 : 2006-07-26 오후 6:52:24 date : 2006-07-25 dateadd : 1995-02-28 datediff : 4165 datepart : 3 dateserial : 1980-05-31 DateValue : 1963-09-11 time : 오후 6:52:24 Timeserial : 오전 5:45:00 timevalue : 오후 4:35:17 isdate(theday) : True second : 24 second : 31 minute : 52 hour : 18 day : 25 weekday : 3 weekdayname : 화요일 month : 7 monthname : 7월..

만약 입력 입력2 입력3 위처럼 input의 name을 동일하게 넘겨 받은 값을 처리하고 싶을땐 Dim title_arr(5) If request("title") "" then For i = 1 To request("title").count title_arr(i-1) = request("title")(i) Next Else처럼 받은 배열을 재 가공해서 쓸수도 있다. 여기서 주의해야 할부분은 i=1 이부분!! 인덱스가 0이 아닌 1부터 라는점 주의!