728x90


눈을 감아 마음을 벗어나려,
옛기억을 더듬어 사랑했던 당신을 만납니다.
슬프고 힘들 때 당신이 곁에 있어서 좋았었는데,
추억하며 당신의 숨 소리를
느낄 수 있다는 것 만으로도 행복해 할 수 있었죠.
힘없이 어깨를 늘어뜨리며
눈물을 흘리던 당신이
몇 백년을 다시 산다한들
그 사랑, 그 느낌을 가질 수 있을런죠.
혼자 서성이며 추억의 멜로디를 따라
눈시울을 적시며 흔들리 듯 겹쳐지는 듯 합니다.


(위 사진은 김지현 작가 티스토리에서 가져왔습니다. http://wdes.tistory.com/)


아파하던 것이
죽도록 가슴을 쓸어내리던 것이
심장을 도려내듯 숨이 멈춰질 것 같던 시간들 말이죠.
다시 행복해 하는 당신을 그리며,
슬프고 힘들 때 사랑했던 당신을 만납니다.
떨리는 손을 가로 저으며 앞을 향해 뛰며
어제란 모든 기억을
땅위에 녹여 스미게 했죠.
한 순간이였지만,
오늘은 그것이 가까운 시일에 내게 다시 다가 설것 같습니다.
미련한 듯 서성이게 했던 감정과 시간과 스침들을
두 손 가득 온기로 담아
고동치는 당신의 가슴에 전해드리겠습니다.
슬프고 힘들 때 사랑했던 당신,
눈 앞에 서 있는 당신의 흔적은
소리없이 밤 하늘 별빛되어 검은 강을 유유히 흘러 갑니다.

728x90

'에세이' 카테고리의 다른 글

마지막 사랑을 남겨야 할 때일지도 모른다.  (0) 2011.06.14
출금길에 들꽃  (0) 2011.06.11
얼만큼 더 가야 할까?  (0) 2011.06.11
하늘을 사랑한 사람  (0) 2011.06.05
그리움  (0) 2011.06.05
728x90

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

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

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

'웃음찾기' 카테고리의 다른 글

이것 또한 지나가리라.  (0) 2011.07.05
토요일,일요일,월요일 표정.  (0) 2011.06.11
최홍만 착시효과  (0) 2011.06.08
임재범과 김연우의 차이  (0) 2011.05.26
주차금지  (2) 2011.05.19
728x90


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

'웃음찾기' 카테고리의 다른 글

이것 또한 지나가리라.  (0) 2011.07.05
토요일,일요일,월요일 표정.  (0) 2011.06.11
존버정신  (0) 2011.06.09
임재범과 김연우의 차이  (0) 2011.05.26
주차금지  (2) 2011.05.19
728x90

문자열 관련 함수

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()

  현재의 연도를 반환

728x90

'프로그래밍 > asp' 카테고리의 다른 글

ASP에서 CSV 파일 생성하기  (0) 2011.08.03
ON Error Resume Next  (0) 2011.06.24
ASP 오류 'ASP 0115'  (0) 2011.06.15
asp 함수  (0) 2011.06.01
DateAdd를 이용한 날짜 계산  (0) 2011.06.01
728x90

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

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

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




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

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


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

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



 

728x90

'에세이' 카테고리의 다른 글

마지막 사랑을 남겨야 할 때일지도 모른다.  (0) 2011.06.14
출금길에 들꽃  (0) 2011.06.11
얼만큼 더 가야 할까?  (0) 2011.06.11
슬프고 힘들 때 사랑했던 당신  (0) 2011.06.09
그리움  (0) 2011.06.05
728x90

그리움으로 말하기엔
아련히 아파오는 기억이
가슴을 짓누르는 슬픔이 된다.
빗줄기에 기억들이 씻겨지는 것 같지만,
사랑이 어디 그리 쉽게 지워질 수 있을까?
그 향기에 베인 추억들은 넓은 대지에 스며,
걷고 또 걷는 발자국마다
깊게 패인 늪처럼
상처받은 마음을 끌어당긴다.
한 순간의 기억이 마치 많은 시간 속을 달리는 열차가 되어
한 없이 길게 놓여진 가슴속을 뒤 흔든다.
아파하며 그리워하는 것이
손발이 찢겨지며 붉은 피를 흘리는 것과 어찌 다르겠는가?
사랑이란 아픔과 기쁨이 될 수 있는 마음인 것을
어찌 맑은 빗줄기에 씻는다하여 씻겨지겠는가?
그리움이란 미련한 기다림인 것을
목놓아 울어본들 그 슬픔이 보여지겠는가?
그리움이 희미해지기 시작하면
아파했던 만큼,
참아 왔던 만큼,
사랑을 기다리는 불빛이 되어
사랑을 가꾸는 커다란 장미꽃핀 정원이 되어
깊게 고인 맑은 호수를 달리는 바람을 따라
맑게 스치는 속삭임이 된다.

728x90

'에세이' 카테고리의 다른 글

마지막 사랑을 남겨야 할 때일지도 모른다.  (0) 2011.06.14
출금길에 들꽃  (0) 2011.06.11
얼만큼 더 가야 할까?  (0) 2011.06.11
슬프고 힘들 때 사랑했던 당신  (0) 2011.06.09
하늘을 사랑한 사람  (0) 2011.06.05
728x90

<%
 '********************************************************
 ' 문서제목 : 사용자 정의 함수
 ' 파일명 : 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
%>

728x90

'프로그래밍 > asp' 카테고리의 다른 글

ASP에서 CSV 파일 생성하기  (0) 2011.08.03
ON Error Resume Next  (0) 2011.06.24
ASP 오류 'ASP 0115'  (0) 2011.06.15
asp 함수 정리  (0) 2011.06.08
DateAdd를 이용한 날짜 계산  (0) 2011.06.01
728x90
01.<%
02.    ' 금일 날짜 표현방법
03.    Response.write Right("0000"&Year(date),4) &"-"& Right("00"&Month(date),2) &"-"&Right("00"&Day(date),2)
04.  
05.    ' 1년전 날짜 구하기
06.    Tdate = DateAdd("m", -12 DateValue(now))
07.    Response.write Tdate &"<BR>"
08.  
09.  
10.    ' 7일후 날짜 구하기
11.    Tdate = DateAdd("d", 7 DateValue(now))
12.    ' or
13.    Tdate = dateadd("d", 7, Now())
14.    Response.write Tdate &"<BR>"
15.   
16.  
17.    '순수히 날짜만 구할려면 MID 함수 사용
18.    Response.write MID(Tdate,1,10)
19.  
20.  
21.    '"-" 문자열을 제거할려면 replace 함수를 사용하면 됩니다.
22.    Response.write replace("문자열", "-", "")
23.%>

728x90

'프로그래밍 > asp' 카테고리의 다른 글

ASP에서 CSV 파일 생성하기  (0) 2011.08.03
ON Error Resume Next  (0) 2011.06.24
ASP 오류 'ASP 0115'  (0) 2011.06.15
asp 함수 정리  (0) 2011.06.08
asp 함수  (0) 2011.06.01

+ Recent posts