일상 기록 창고

숫자함수 ABS ABS함수는 절대값을 나타낸다. 형식: ABS(숫자값) POWER POWER함수는 제곱근을 표현해 준다. 형식: POWER(숫자값, 승수값) SQRT SQRT는 루트값을 표현해준다. 형식: SQRT(숫자값) RAND RAND는 0 에서 1사이의 난수를 발생시킨다. 형식: RAND(초기값) ROUND ROUND는 반올림 함수이다. 형식: ROUND(숫자, 자릿수) ROUND..

<% Dim byear, bmonth, bfirst, bend, bweekday, bday byear = Trim(Request("byear")) bmonth = Trim(Request("bmonth")) If byear = "" Then byear = Year(now) End If If bmonth = "" Then bmonth = Month(now) End If ' 1(일) - 7 (토) 각 달의 시작 요일을 구한다 bweekday = byear & "-" & bmonth & "-" & "01" bfirst = Weekday(bweekday, 1) ' 현재 달의 마지막 날을 구한..

<% Dim file, binFile, oStream file = Request("file") file = Server.MapPath(".\") & "\upload\" & file ' 경로를 맞게 수정 file = Replace(file, "KTF_Downshop", "KTF_Downshop\Admin") Set oStream = CreateObject("ADODB.Stream") oStream.Type = 1 oStream.open oStream.LoadFromFile file binFile = oStream.Read oStream.Close Set oStream = Nothing Response.BinaryWrite binFile %>

<% ' 쿼리문, 배열 길이, 컬럼 수 Function List_Object(SQL, length, column) ReDim no(length, column) Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open SQL,dbCon,1,,adCmdText i = 0 Do Until Rs.EOF Or i > length For j = 0 To column - 1 Step 1 no(i, j) = Rs(j) Next i = i + 1 Rs.MoveNext Loop If i = 0 Then For j=0 To column - 1 Step 1 For k = 0 To column - 1 Step 1 If i = 0 Then..

WEEKDAY(serial_number,return_type) Return_type: 1 또는 생략 1(일요일)에서 7(토요일) 2 1(월요일)에서 7(일요일)까지의 숫자 3 0(월요일)에서 6(일요일)까지의 숫자 DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 두 날짜 사이의 차이 구하기.. interval 의 경우 d, y 등을 쓸 수 있다. DateDiff("d", "2006-04-30", "2006-05-02") -..

For Each fld in Request.Form Response.Write fld & ": " & Request.Form(fld) & "<br>" Next 폼값이 제대로 넘어 오는지 확인할 경우 하나 하나 프린트 하기 귀찮으니 저렇게 사용하자.

On Error Resume Next dbCon.Execute (SQL) If Err.number <> 0 Then Error_url = Request.ServerVariables("server_name") & Request.ServerVariables("script_name") Error_msg = "" For i=0 To dbCon.Errors.Count-1 Error_msg = Error_msg & dbCon.Errors.item(i).description & "<br>" Next Error_msg = Replace(Error_msg, "'", "") ESQL = "insert into error_check values ('" & Error_url..

<% ' 문자열과 바이트 수로 값을 전달 받는다. Function chrbyte(str, length) for i=1 to len(str) charat=mid(str, i, 1) if asc(charat)>0 And asc(charat)< 255 Then wLen=wLen+1 ' length 보다 값이 클 경우 위치 저장 If wLen > length Then k=i Exit For End If Else wLen=wLen+2 If wLen > length Then k=i Exit For End If End If Next ' 저장된 위치가 있을 경..

formatnumber(money,0) ---> 1,000 formatcurrency(money) --->\1,000 formatpercent(money/100) ---> 10.00% formatpercent(money/100,0) ---> 10%

title = Replace(title, "'" , "'") title = Replace(title, """ , """) 니모닉이름으로 수정 원래의 기능은 하지 않기 때문에 오류가 없다.. 간혹 글 쓴 내용을 수정할 시에 제목부분에 `'`, `"` 가 있을 경우 태그가 깨져서 엉망이 되는 경우가 있는데 이 경우 사용하면 좋다.