사랑하기 위해 필요한 것들

존버정신이란?
어떠한 어려움이 닥치더라도 존나게 버티는 정신이다.

그래, 지금 내게 필요한 건 존버정신인 것 같다.

존나게 버티고 또 버텨서 꼭 성공하리라. ^^

갤럭시 탭이 마치 일반 갤럭시 S와 같구나.
헐~~~!

문자열 관련 함수

Filter  : 배열을 검색하여 해당하는 필터값을 기준으로 새로운 배열을 생성함.

ex . arrFilter = Filter(arrName, "은경")

arrName 배열 중 "은경" 이라는 단어가 들어간 값들로 이루어진 새로운 arrFilter 라는 배열을 생성함.

 

InStr : 대상 문자열 중 검색문자로 검색하여 해당 인덱스값을 리턴함.

 ex . str1="velvet1980님의 블로그" / str2=InStr(str, "블로그") / str2=14

        단, 중복값이 있을경우 마지막 문자열의 인덱스값을 출력 ("v"문자열 검색시 1 이 아닌, 4를 리턴함.)

 

Join : 구분자를 사용하여 하나의 문자열로 결합한 문자를 리턴함. (split 의 반대)

 ex . 3칸 짜리 배열에 각각, 12, 34, 56 가 있을 경우 join 사용시 123456 이라는 문자가 출력됨.

        Response.write(배열이름, "-") 와 같이 두번째 인자값을 넣어줄 경우 (생략가능)

        배열과 배열 결합시 그 사이에 해당 문자열을 넣어줌.

Split : 한 문자(문장)을 특정값으로 구분지어 배열로 생서함. (Join 의 반대)

 ex . "velvet1980 님의 블로그"라는 문자열을 Split 할 경우 인자를 " "(공백)을 넣으면

         [velvet1980],[님의],[블로그] 라는 3칸 짜리 배열이 생성됨. : ss=Split(str, " ")

 

Len : Length 와 같음.(문자열의 길이를 리턴)

 

LCase / UCase : Lcase (대문자 -> 소문자) / UCase (소문자 -> 대문자)

 

Replace : 지정한 문자열을 다른 문자열로 교체

 ex . str1="지정한 하위 문자열을 지정한 어쩌고 저쩌고 랄랄라 룰루"
       str2=Replace(str1, "문자열", "ToTo")

 

 날짜와 시간관련 함수

Date : 시스템의 현재 시간값 (yyyy-mm-dd).

DateAdd : 지정된 시간값을 추가한 날짜 (ex : DateAdd("d",100,date)) => (y/m/d, 증가값, date)

DateDiff : 두 날짜 사이의 간격 (ex. DateDiff("d","1-jan-2002",Now)) => (y/m/d, 날짜1, 날짜2)

DatePart : 주어진 날짜의 지정된 부분 (ex. response.write(DatePart("yyyy",Now)) => (y/m/d, 날짜)

DateSerial : 년/월/일 에 대한 Date 형 값을 반환한다.(ex. (DateSerial(2001,12,25))

DateVal!ue : 문자열을 Date 형 날짜로 반환 (ex. DateVal!ue("december 25, 2001")) => 결과값 : 2001-12-25

Day : 날짜를 나타낸다.(ex. (day(date)) ) => 결과값 : 23  (Hour, Minute, Month, year....)

 

데이터형 확인 함수

IsArray : 변수가 배열인지 아닌지 리턴(ex. IsArray(변수)) => true / false

IsDate : 날짜로 변환될 수 있는지 없는지 리턴(ex. IsDate(변수)) => true / false

IsEmpty : 변수가 초기화 되었는지 여부(ex. IsEmpty(변수)) => 변수가 빈 값이면 true / 값이 있으면 false

IsNull : Null인지 아닌지 리턴(ex. IsNull(변수)) => true / false

IsNumeric : 숫자로 평가될수 있는지 아닌지 리턴(ex. IsNumeric("12345")) => true / false

IsObject : 표현식이 유효한 객체인지 아닌지 리턴=>true/false

TypeName : 변수 유형을 알려주는 문자열 리턴 (a=123.34 / b=CInt(a) / typeName(b)) : Integer) =>데이타 타입 반환

 

데이터 포맷 함수

FormatCurrency : 제어판에 설정된 화폐 단위값으로 형식화함.(ex. FormatCurrency(변수))

FormatDateTime : 날짜를 지정한 형식으로 변환.(ex. FormatDateTime(Date, vbShortDate)(날짜,표시형식)

FormatNumber : 숫자로 형식화 된 값을 반환.(ex. FormatNumber(a,0)) : 단, 뒷자리가 5 이상일 경우 반올림 하여 계산함.

FormatPercent : 100으로 곱해진 백분율을 반환하고 끝에 %를 붙힘(ex. FormatPercent(a))

 

난수 함수

Rnd : 임의의 난수를 반환함.(ex. Int(rnd*4)+1) => 1~4 사이의 난수가 발생함.

Randomize : 숫자를 사용하여 Rnd 함수의 난수발생기를 초기화 함.

 

변환 함수

Cbool : Boolean 형으로 변환 : 0 이면 true, 아니면 false (CBool(0.12)) : ture

CByte : 값을 Byte 형으로 변환 (CByte(67.89)) => 68

CDbl : 값을 Double 형으로 변환 (CDbl(1234567890)) =>12345678900000

CInt : 값을 Int 형으로 변환 (CInt(1000+123))=>1123

CSng : 값을 Single 형으로 변환 (CSng(222222222222222))

CLng : 값을 Long 형으로 변환 (CLng(3.14)) => 3

CStr : 값을 String 형으로 변환 (CStr(1000+250))=>1000250

 

● 내장함수

ASP에 사용되는 Visual Basic Script의 내장함수는 자주 사용되므로 익혀야 한다.

 

내 장 함 수	설         명
Abs()	절대값 구하기
Array()	배열 반환
Asc()	문자의 ANSI 문자값 반환
Atn()	주어진 수를 아크탄젠트로 반환
CBool()	주어진 식을 Boolean형식으로 반환
Cbyte()	주어진 식을 Byte형식으로 반환
CCur	주어진 식을 Currency형식으로 반환
CDate()	주어진 식을 Date형식으로 반환
CDbl()	주어진식을 Double형식으로 반환
Chr()	ANSI 문자코드를 일반문자로 반환
CInt()	주어진 식을 Interger형식으로 반환
CLng()	주어진 식을 Long형식으로 반환
Cos()	주어진 각도의 코사인 값을 반환
CreateObject()	다른 객체에 대한 참조를 만들어 반환
CStr()	주어진 식을 String형식으로 반환
Date()	현재 날짜를 반환
DateSerial()	주어진 년,월,일의 Date형식을 반환
Exp()	주어진 수의 자연로그(e)를 반환
Filter()	지정한 필터로 문자열 배열 반환
Fix()	주어진 수의 정수 반환
FormatCurrency()	컴퓨터 규정의 통화값 반환
FormatDateTime()	규정된 날짜와 시간으로 반환
FormatNumber()	규정된 숫자로 반환
FormatPercent()	규정된 퍼센트값을 반환
Hex()	주어진 수를 16진수 문자로 반환
Hour()	0과 23사이의 시간으로 반환
Inputbox()	입력대화상자의 프롬프트를 생성
InStr()	주어진 문자의 위치값을 반환
InStrRev()	줘진 문자열의 위치값을 끝에서 부터 검색하여 반환
Int()	주어진 수의 정수값만 반환
IsArray()	주어진 변수 배열여부를 Boolean값으로 반환
IsDate()	주어진 식이 날짜로 변환되는지를 Boolean값으로 반환
IsEmpty()	주어진 식의 변수가 초기화됐는지를 Boolean값으로 반환
IsNull()	주어진 식의 데이타 유효성을 Boolean값으로 반환
IsNumeric()	주어진 식의 값이 숫자화 될지 여부를 Boolean값으로 반환
IsObject()	자동화 객체를 참조하는지의 여부를 Boolean값으로 반환
Join()	배열에 포함된 여러 문자열을 결합하여 만든 문자열을 반환
LBound()	주어진 배열에서 사용할 수 있는 가장 작은 첨자를 반환
LCase()	주어진 문자를 소문자로 반환
Left()	주어진 문자열을 주어진 수만큼 문자를 반환
Len()	주어진 문자열의 문자갯수를 반환
LoadPicture()	그림 객체를 반환
Log()	주어진 수의 자연로그를 반환
LTime()	주어진 문자열의 앞에 공백을 삭제하고 반환
Mid()	주어진 문자열에서 주어진 위치에서부터의 문자를 반환
Minute()	시간에서 분값을 반환
Month()	달의 값을 반환
MonthName()	주어진 달의 수를 문자열로 반환
MsgBox()	대화상자의 메세지를 생성
Now()	현재 날짜와 시간을 반환
Oct()	주어진 수의 8진수 값을 반환
Replace()	주어진 문자열의 주어진 문자를 바꾸어 반환
Right()	주어진 문자를 주어진 수만큼 오른쪽에서부터 반환
Rnd()	난수를 반환
Round()	주어진 수의 반올림 반환
RTrim()	주어진 문자열을 뒤 공백이 없는 문자로 반환
ScriptEngineBuildVersion()	사용 중인 스크립트 언어를 반환
ScriptEngineMajorVersion()	사용 중인 스크립트 언어의 버전을 반환
ScriptEngineMinorVersion()	사용 중인 스크립트 언어의 보조버전을 반환
Second()	초 값을 반환
Sgn()	주어진 수의 부호를 나타내는 정수를 반환
Sin()	주어진 각도의 사인값을 반환
Space()	주어진 수만큼의 공백이포함된 문자열을 반환
Split()	주어진 문자열이 포함된 1차 배열을 반환
Sqr()	주어진 수의 제곱근을 반환
StrComp()	주어진 두 개의 무자열을 비교하여 결과값을 반환
StrReverse()	주어진 문자열을 뒤에서 부터 읽어서 반환
String()	주어진 문자가 주어진 수만큼 반복된 문자열을 반환
Tan()	주어진 각도의 탄젠트 값을 반환
Time()	현재 시간을 반환
TimeSerial()	주어진 시간의 시간,분,초에 대한 시간값을 반환
TimeVal!ue()	시간이 포함된 Date형식을 반환
Trim()	주어진 문자열의 앞,뒤 공백이 없는 문자열 반환
TypeName()	변수의 정보를 나타내는 문자열 반환
UBound()	배열의 차원에서 가장 큰 첨자를 반환
UCase()	주어진 문자열을 대문자로 반환
varType()	변수의 형식을 나타내는 값을 반환
Weekday()	요일을 나타내는 정수를 반환
WeekdayName()	요일을 나타내는 문자를 반환
Year()	현재의 연도를 반환

난 하늘을 사랑하는 사람이다.
저 드넓은 하늘을 지고,
미지를 여행해 가는 것이 내 소망이다.
갈수 있는 한 멀리까지 가고 싶다.
2011년 6월 5일 여행이 시작 되었다.
1시간 남짓 걸리는 거리서부터 수 개월이 걸리리는 거리까지
처음 만나는 사람들을 지나치며,
내 기력이 다해지는 날까지 여행을 떠날 것이다.
너무 많은 상처를 가지고 있어서,
그 상처를 모두 지울 수 있을 지는 모르지만,
가장 사랑하는 사람을 만나게 되리란 희망을 가지고,
심신이 저 하늘과 닿은 가벼운 바람이 되는 날까지.

가슴이 무거워서 죽고 싶은 충동이 있을 때
저 하늘이 그 힘겨운 한 때를 받아주었으니,
저 하늘이 맞닿아 있는 곳이라면,
내 발걸음을 내 딪을 수 있는 곳이라면,
하늘을 사랑하는 사람이 되리라.

모두 부서져버리는 추억이 될 뿐인데,
너무 욕심부리며 살아왔던 것 같다.
하나씩 버리기로 약속한다.
너무 많은 기다림이 저 멀리서 손짓하고 있다.

자전거를 타고 어깨에 카메라를 메고
달리고 달리다 내 시선이 마주치는 곳에서 셔터를 누른다.
단 몇분 후에 숨이 멈춰 버릴지도 모른다.

앙상했던 가지에 연두빛 나무잎사귀가 하늘로 번쩍 고개를 든다.
내 시선이 머무는 곳이면 어디든,
그곳은 내가 가야할 장소였을 것 같다.
이제 첫 발을 내딪었으니,
좀더 강렬한 인상을 갖고 싶다.
욕망에 사로잡혀 도시를 벗어나지 못한 못난 도시인이 된 내 자신에 대한
새로운 욕구는 버려짐이 있는 자연으로 돌아가는 거다.

꽃잎이 계절이 바뀌면 하늘을 향해 형형색색 자신을 변화시키며,
지나치는 여행객의 시선을 사로 잡는다.
나 혼자 감당하지 못하는 시간을 지나쳐 오면서
나 혼자 감당하지 못한 것이 아닌 것 같다.
잃어버리는 것이 두려운 것은 아닌데,
잃어버리는 것에 익숙하지 못했던 것 같다.

잊혀짐, 잊혀진다는 건,
세월이 흘러가는 것이고,
그 세월 속에 자신이 녹아 드는 것인데,
아, 이젠 잠들고 싶기도 하다.
시선이 멈추는 석양에 물든 저 하늘,
저 하늘은 내가 돌아가야할 고향이기도 하다.

 

<%
 '********************************************************
 ' 문서제목 : 사용자 정의 함수
 ' 파일명 : Userfunction.asp
 ' 작성자 : 궉장걸
 ' 작성일 : 2006-11-21
 ' 내역 :
 '********************************************************
 
 Class UserFunction

  '클래스 초기화
  Private Sub Class_Initialize() 
  
  End Sub
  
  '클래스 소멸
  Private Sub Class_Terminate()

  End Sub  

  '******************************************************
  ' 함수 기능 : 문자열 캐릭터로 자르기
  ' Parameter :
  '  - str : 원본 Data
  '  - cutLen : 자를 길이
  '******************************************************
  Public Function cutChar(str, cutLen) 
   If Not(IsEmpty(str)) And Not(IsNull(str)) Then
    Dim strLen, strByte, strPos, char, i, charactor_cut_len
    strByte = 0
    strPos = 0
    strLen = Len(str)    '총 글자수

    for i = 1 to strLen
     char = ""
     char = Asc(Mid(str, i, 1)) '아스키 코드값 읽어오기
     char = Left(char, 1)
     if char = "-" then  '"-"이면 2바이트 문자임
      strByte = strByte + 2
     else
      strByte = strByte + 1
     end if
     strPos = strPos + 1
     if cutLen > 0 then
      if  strByte > cutLen then
       strPos = strPos - 1 '마지막 2바이트 문자처리
       exit for
      end if
     end if
    next

    if cutLen <= 0 then
     charactor_cut_len = strByte
    else
     charactor_cut_len = strPos
    end if

    if (charactor_cut_len < strLen) then
     cutChar = Left(str, charactor_cut_len) & "..."
    else
     cutChar = str
    end If
   Else
    cutChar = str
   End If
  End Function
  
  '******************************************************
  ' 함수 기능 : 비교처리 (CompareNum1 과 CompareNum2 비교 후 RtnStr1, RtnStr2 반환)
  ' Parameter :
  '  - CompareNum1 : 비교 검사할 Data
  '  - CompareNum2 : 비교 검사할 Data
  '  - RtnStr1 : 비교 검사후 True 인 경우 반환할 값
  '  - RtnStr2 : 비교 검사후 False 인 경우 반환할 값
  '******************************************************
  Public Function Return_Val(CompareNum1, CompareNum2, RtnStr1, RtnStr2)
   If Not IsNull(CompareNum1) Then
    If (Cstr(CompareNum1) = Cstr(CompareNum2)) Then
     Return_Val = RtnStr1
    Else
     Return_Val = RtnStr2
    End If
   Else
    Return_Val = RtnStr2
   End If
  End Function

  '******************************************************
  ' 함수 기능 : 날짜 검사 ( 2자리로 변환 )
  ' Parameter :
  '  - ChkDate : 검사할 날짜
  '******************************************************
  Public Function date_check(ChkDate)
   IF len(ChkDate) = 1 Then
    date_check = "0" & ChkDate
   Else      
    date_check = ChkDate
   End If
  End Function

  '******************************************************
  ' 함수 기능 : 월별로 마지막 날짜 반환
  ' Parameter :
  '  - DateMonth : 검사할 월
  '  - DateYear : 검사할 년도
  '******************************************************
  Public Function MonthArray(DateMonth, DateYear)
   Dim MonthDay(12)

   MonthDay(1) = 31
   MonthDay(2) = 28
   If YoonCheck(DateYear) Then MonthDay(2) = 29
   MonthDay(3) = 31
   MonthDay(4) = 30
   MonthDay(5) = 31
   MonthDay(6) = 30
   MonthDay(7) = 31
   MonthDay(8) = 31
   MonthDay(9) = 30
   MonthDay(10) = 31
   MonthDay(11) = 30
   MonthDay(12) = 31

   MonthArray = MonthDay(DateMonth)
  End Function

  '******************************************************
  ' 함수 기능 : 날짜 (윤년) 검사 후 Bool형 반환
  ' Parameter :
  '  - chkYear : 검사할 년도
  '******************************************************
  Public Function YoonCheck(chkYear)
   If chkYear Mod 4 <> 0 Then
    YoonCheck = False
   ElseIf chkYear Mod 100 <> 0 Then
    YoonCheck = True
   ElseIf chkYear Mod 400 <> 0 Then
    YoonCheck = False
   Else
    YoonCheck = True
   End If
  End Function

  '******************************************************
  ' 함수 기능 : 정수값 타입별로 반환
  ' Parameter :
  '  - MinNumber : 최소값
  '  - MaxNumber : 최대값
  '  - StepNumber : step 값(Loop 문에서 사용)
  '  - ObjType : 반환 타입(SelectBox, CheckBox, RadioBox)
  '  - ObjName : Object 명(CheckBox, RadioBox 에서 사용)
  '  - LengChkFlag : 길이체크 여부(date_check 함수 호출)
  '  - CompareFlag : 비교 여부(Return_Val 함수 호출 : True, False)
  '  - CompareNumber : 비교값 (CompareFlag 가 True 인 경우 사용)
  '  - Rtn_CompareTrue : 비교결과가 True인경우 반환값
  '  - Rtn_CompareFalse : 비교결과가 False인경우 반환값f
  '  - StyleStr : 스타일시트 문자열
  '******************************************************
  Public Function IntReturn(MinNumber, MaxNumber, StepNumber, ObjType, ObjName, LengChkFlag, CompareFlag, CompareNumber, Rtn_CompareTrue, Rtn_CompareFalse, StyleStr) 
   Dim Temp_Str, Return_Str, ResultValue
   Dim cnt, Rtn_cnt

   ResultValue = ""

   Select Case UCase(CStr(ObjType))
   Case "SELECT" Temp_Str = "<Option value='@val@' @CompareNumber@>@view@</Option>"
   Case Else Temp_Str = "<input type='@ObjType@' name='@ObjName@' value='@val@' @StyleStr@ @CompareNumber@> @view@"
   End Select

   ' 최소값(MinNumber) 에서 최대값(MaxNumber)까지 Loop
   For cnt = MinNumber To MaxNumber Step StepNumber
    ' 길이 체크여부(2자리로 재정의)
    If LengChkFlag Then
     Rtn_cnt = date_check(cnt)
    Else
     Rtn_cnt = cnt
    End If
    Return_Str = Replace(Temp_Str, "@ObjType@", ObjType)
    Return_Str = Replace(Return_Str, "@ObjName@", ObjName)
    Return_Str = Replace(Return_Str, "@StyleStr@", StyleStr)
    Return_Str = Replace(Return_Str, "@val@", Rtn_cnt)
    Return_Str = Replace(Return_Str, "@view@", Rtn_cnt)
    ' 비교여부
    If CompareFlag Then
     Return_Str = Replace(Return_Str, "@CompareNumber@", Return_Val(Rtn_cnt, CompareNumber, Rtn_CompareTrue, Rtn_CompareFalse))
    Else
     Return_Str = Replace(Return_Str, "@CompareNumber@", "")
    End If
    ResultValue = ResultValue & Return_Str
   Next
   IntReturn = ResultValue
  End Function

  '******************************************************
  ' 함수 기능 : 데이터 부분 반환
  ' Parameter :
  '  - Data : 원본 Data
  '  - Gubun : split()함수에 사용할 구분값
  '  - index : 배열번호
  '******************************************************
  Public Function Rtn_DataSplit(Data, Gubun, index)
   If InStr(Data, Gubun) Then
    tmp_Data = Split(Data, Gubun)
    If UBound(tmp_Data) >= index Then
     Rtn_DataSplit = tmp_Data(index)
    End If
   End If
  End Function

  '******************************************************
  ' 함수 기능 : html 태그 변환
  ' Parameter :
  '  - str : 원본 Data
  '******************************************************
  Public Function HtmlTagChk(str)
   Dim ResultValue
   ResultValue = ""
   If str <> "" Then
    ResultValue = Replace(Replace(Replace(Replace(Trim(str), "&", "&amp;"), "<", "&lt;"), ">", "&gt;"), "'", "''")
    ResultValue = Replace(ResultValue, chr(13)&Chr(10), "<br>")
   End If
   HtmlTagChk = ResultValue
  End Function

  '******************************************************
  ' 함수 기능 : 코드 생성
  ' Parameter :
  '******************************************************
  Public Function getGoodsCode()  
   Randomize  
   getGoodsCode = Chr(Int(Rnd()*26) + 65)& Chr(Int(Rnd()*26) + 65) & Left(Replace(Now, "-", ""), 8) & Hour(Now) & Chr(Int(Rnd()*20) + 65)
  End Function

  '******************************************************
  ' 함수 기능 : 주문코드 생성
  ' Parameter :
  '******************************************************
  Public Function getOrderCode2()
   Randomize  
   getOrderCode2 = Left(Replace(Now, "-", ""), 8) & Hour(Now) & Minute(Now) & Second(Now) & Chr(Int(Rnd()*20) + 65) & Chr(Int(Rnd()*26) + 65)
  End Function

 End Class
%>

01.<%