LOVAPI

:: ASP 에서 표현할 경우
     response.write(formatnumber( value, 0, -1 ))

:: PHP 에서 표현할 경우
     echo number_format($value);

:: Perl Script 에서 표현할 경우
     print cm($value);
    sub cm {
          my $num = shift;
          my ($n) = $num =~ /(\d+)/;
          1 while $n =~ s/(\d+)(\d{3})/$1,$2/;
          $num =~ s/(\d+)/$n/;
          $num;
     }

:: JSP 에서 표현할 경우
     new DecimalFormat("###,###,###,###,###").format(value);
     보통은 Bean으로 만들어서 표현을 합니다.

:: MS-SQL Query에 의해 표현할 경우
     SELECT
    REPLACE(CONVERT(VARCHAR,CONVERT(MONEY,1234567890),1),'.00','')
     결과값          
     1,234,567,890
     (1개 행 적용됨)

"Sub를 호출할 때는 괄호를 사용할 수 없습니다." 에러는 어쩌면 진실을 아시고 나면 허탈하실 수도... ^_^;;;

이 에러는 VB 에서 발생하는 에러입니다. 아시다시피 VB 나 VBScript 에는 두 종류의 프로시져가 있죠. 하나는 Function 이고 다른 하나는 Sub 입니다. 보통 C/C++ 이나 JavaScript 등에서는 function 하나 밖에 없는데 비해서 조금 특이한 경우입니다만...

아무튼 이 두 프로시져간의 차이점은 딱 하나입니다. 바로 리턴값이 있느냐 없느냐 그것이죠. Function 프로시져는 리턴값이 있을 때 Sub 프로시져는 리턴값이 없을 때 사용합니다. 그런데 이런 프로시져를 사용할 때 한 가지 주의점이 있습니다.

리턴값이 있는 Fucntion 프로시저는 일반적으로 다음과 같이 사용합니다.

retVal = MyFunction(aVal, bVal)


그런데 리턴값이 없는 Sub 프로시저의 올바른 사용법은 다음과 같습니다.

MySub aVal, bVal


바로 괄호를 사용하지 않는 것이죠. ^_^;;; 그런데 아무리 Function 프로시져라고 하더라도 리턴값을 받지 않고 리턴값을 사용하지 않으면 Sub 처럼 괄호를 사용할 수 없습니다. 따라서 다음과 같이 사용해야 하죠.

MyFunction aVal, bVal


지금 발생한 에러가 바로 이 에러입니다. 만약 괄호를 사용하시고 싶다면 다음과 같이 사용하셔야 합니다.

Call MySub(aVal, bVal)


알고 나시니 허탈하시죠? ^_^;;; 주로 ASP 에서 사용하는 VBScript 에서는 이 두 가지 사용법에 구분이 없습니다. 그러나 VB 에서는 이를 철저하게 검사하는 펀이고 ASP 에서도 가끔가다가 컴포넌트를 사용하는 경우 컴포넌트단에서 해당 에러가 발생하는 경우가 있죠.

write_date = 1069807106 write_date = DATEADD("h", 9, DATEADD("s",write_date, "1970-01-01"))

Response.Cookies("user")("id") = 'userid'
Response.Cookies("user")("name") = 'abc'
Response.Cookies("user")("adult") = 'Y'



echo $_COOKIE['user'];
id=userid&name=abc&adult=Y

2000에선 잘되던 소스가 XP에선 CDO.Message.1 (0x80040220) "SendUsing" 구성 값이 잘못되었습니다. 라는 에러메세지로 고생하시는 분들이 있어서 제가 그 방법을 알려 드릴께요... XP에서 사용하는 CDO는 버전이 업그레이드 되면서 SendUsing을 정확히 지정해 주지 않으면 메일을 송신하 지 않습니다... 이건 Windows User's Group에서 올라온 내용입니다. "익스체인지 2000은 각각의 메일 서버와 커넥션을 유지하면서 메일 큐를 소모하는 방법을 쓰고 있기 때문에 커넥션 오버헤드가 다른 메일 서버에 비해 훨씬 작다. 그러나, 익스체인지 서비스팩의 버전이 올라가면서 몇 가지 변동 사항이 생겼다. 익스체인지 CDO는 Sendusing을 정확히 지정해 주지 않으면 메일을 송신하지 않는다. 또한 Sendusing 역시 인수가 달라졌다." 따라서 그 속성을 지정해 주고 메일을 발송을 하면 아주 잘 됩니다... 아래 소스를 보시고 참고하시기 바랍니다... <% Dim iMsg Dim iConf Dim Flds Const cdoSendUsingPort = 1        '1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송 Const strSmartHost = "MySmartHostServer"        'Host 설정 'Pickup 디렉토리 설정(익스체인지서버가 설치된 경우는 익스체인지 픽업 디렉토리 지정) Const strRoot = "C:\Inetpub\mailroot\Pickup" 'CDO 메시지 개체 생성 Set iMsg = CreateObject("CDO.Message") 'SendUsing 속성을 지정하기 위한 개체 생성 Set iConf = iMsg.Configuration With iConf.Fields    .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strRoot    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30    .Update End With '메일발송 With iMsg    .To =    .From =    .Subject =    .TextBody =   '.HTMLBody =    .Send End With      Set Flds = Nothing Set iConf = Nothing Set iMsg = Nothing Response.write "메일을 발송하셨습니다." %>

2진수 데이터를 10진수로 바꾸는 방법 ' 2진수를 10진수로 바꾸기 str = StrReverse(sb_RS("downno")) c = 0 for idx = 1 to len(str) b = int(mid(str,idx,1)) c = c + (b* 2^(idx-1)) next ' 16진수 로 만들기.. d = HEX(c)