프리랜서 개발자

ADO DataType Enum ADO DataType Enum Value .NET Framework Visual Basic 6.0 Access SQL Server Oracle adBigInt 20 Int64 SqlInt64 BigInt Variant BigInt adBinary 128 Byte[] SqlBinary Binary Variant Binary TimeStamp Raw adBoolean 11 Boolean SqlBoolean Boolean Boolean YesNo Bit adBSTR 8 String BSTR adChapter 136 (DataReader) adChar 129 String SqlString Char String Char Char adCurrency 6 Decimal SqlMoney Currency Currency Currency Money SmallMoney adDate 7 DateTime Date Date DateTime adDBDate 133 DateTime DBDate adDBFileTime 137 DBFileTime adDBTime 134 DateTime DBTime adDBTimeStamp 135 DateTime SqlDateTime DBTimeStamp Date DateTime Datetime SmallDateTime Date adDecimal 14

text/richtext text/html audio/x-aiff audio/basic audio/wav image/gif image/jpeg image/pjpeg image/tiff image/x-png image/x-xbitmap image/bmp image/x-jg image/x-emf image/x-wmf video/avi video/mpeg application/postscript application/base64 application/macbinhex40 application/pdf application/x-compressed application/x-zip-compressed application/x-gzip-compressed application/java application/x-msdownload

특정포트에 어떤 프로세스가 쓰는지 알고 싶을때는 cmd창으로 간단히 알수있다. netstat -ano 로 PID 알아냄 tasklist /SVC /FI "PID eq [찾아낸PID]" ps : 더 간단한 방법 netstat -ano |findstr :찾으려는 포트

'/** '* 지정한 자리숫자만큼 앞에 0을 붙여 반환 '* '* '* @param intParam : 검사할 숫자 '* @param intLimit : 원하는 숫자길이 '* '* @return GetZeroNumber : 지정길이만큼 숫자앞에 0 붙여서반환 '*/ Function GetZeroNumber ( ByVal intParam, ByVal intLimit) Dim i, strResult For i = 0 To intLimit strResult = strResult &amp ; "0" Next GetZeroNumber = Right(strResult &amp ; intParam, intLimit) End Function Response.Write GetZeroNumber( 5 , 3 ) ' 005 Response.Write GetZeroNumber( 70 , 5 ) ' 00070 Response.Write GetZeroNumber( 900 , 4 ) ' 0900

''' ''' 소수점 아래 올림 : 소수점 값이 존재하면 무조건 올림 페이징에 유용(php ceil함수가 같음) ''' ''' 소수점 계산할 값 ''' 결과값 Function Ceil ( ByVal intParam) Ceil = -(Int(-(intParam))) End Function Response.Write Ceil( 4.3 ) ' 5 Response.Write Ceil( 9.999 ) ' 10 Response.Write Ceil(- 3.14 ) ' -3 Response.Write Int( 33.9 ) '33 Response.Write CInt ( 0.5 ) '0 Response.Write CInt ( 3.5 ) '4 Response.Write CInt ( 3.6 ) '4

Function RoundDown ( ByVal intParam) RoundDown = Int(intParam * 0.1 ) * 10 End Function Response.Write RoundDown( 324234 ) ' 324230 Response.Write RoundDown( 23424 ) ' 23420 Response.Write RoundDown( 3.14 ) ' 0 Response.Write RoundDown(- 9999999 ) ' -10000000 ps : 음수일때와 소숫점일때 주의

capicom 2.1.0.2 다운로드 32Bit  C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib 에서  %systemroot%\System32\ 로 카피 cmd에서 등록                                 %systemroot%\System32\regsvr32.exe capicom.dll 64Bit C:\Program Files (x86)\Microsoft CAPICOM 2.1.0.2 SDK\Lib 에서  %systemroot%\SysWoW64\ 로 카피 cmd에서 등록                                                             %systemroot%\SysWoW64\regsvr32.exe capicom.dll 주의할점 64비트OS에서 사용가능한거지 64비트 버젼은 아닙니다. 64비트버전의 OS에서는  iis관리도구 -> 응용프로그램풀에 고급에서 32비트응용프로그램사용  true로 설정 (이런식으로 등록되면 정작 64비트 com+사용을 못함 유의해야함.  wsc를 사용한다면 32비트방식으로 등록해야 합니다.)

CAPICOM은 디지털 서명 데이터, 서명 코드, 디지털 서명 확인, 개인 정보를 위한 데이터 보호, 데이터 해시, 데이터 암호화/해독 등에 사용할 수 있습니다 ' 예제에 나와있는 해시의 상수들 rsa 방식을 제공하고 base64인코딩 지원(한글 않깨짐) Const CAPICOM_HASH_ALGORITHM_SHA1 = 0 Const CAPICOM_HASH_ALGORITHM_MD2 = 1 Const CAPICOM_HASH_ALGORITHM_MD4 = 2 Const CAPICOM_HASH_ALGORITHM_MD5 = 3 Const CAPICOM_HASH_ALGORITHM_SHA256 = 4 Const CAPICOM_HASH_ALGORITHM_SHA384 = 5 Const CAPICOM_HASH_ALGORITHM_SHA512 = 6 Function MD5 (strString) Dim cp Set cp = Server.CreateObject( "CAPICOM.HashedData" ) cp.Algorithm = 3 'md5 cp.Hash Ustr2Bstr(strString) 'Unicode string - > Byte String Conversion MD5 = cp.Value Set cp = Nothing End Function ' capicom에 나온 결과를 그대로 써도 무방하나 타 언어와 ' 암호화된 것을 교류한다면 변환함수 꼭 쓰세요 Function UStr2Bstr (UStr) 'Unicode string to Byte string conversion Dim lngLoop Dim strChar Dim strResult strResult