아미(아름다운미소)

- 모바일인지 pc인체 체크하기 '모바일인지 pc인지 체크하기 Function isItMobile() Dim chk chk = False mob = "iPod|iPhone|Android|BlackBerry|SymbianOS|SCH-M\d+|Opera Mini|Windows CE|Nokia|SonyEricsson|webOS|PalmOS" splitmo = split(mob,"|") agent = Request.ServerVariables("HTTP_USER_AGENT") For i = 0 to UBound(splitmo ) If InStr(agent,splitmo (i)) > 0 Then chk = True Exit For End If Next isItMobile = chk End Function If i..

Function ProgIDInstalled(progID) On Error Resume Next Dim o : Set o = CreateObject(progID) ProgIDInstalled = Err.Number = 0 End Function If ProgIDInstalled("MSXML2.DOMDocument.3.0") Then ' MSXML3 is present ' End If If ProgIDInstalled("MSXML2.DOMDocument.4.0") Then ' MSXML4 is present ' End If If ProgIDInstalled("MSXML2.DOMDocument.5.0") Then ' MSXML5 is present ' End If If ProgIDInstalled("MSXM..

MSSQL데이터형식 PARAMTER데이터형식 bigint adBigint binary adBinary bit adBoolean char adChar datetime adDate decimal adDecimal float adSingle int adInteger money adCurrency nchar adChar ntext adLongVarChar numeric adNumeric nvarchar adVarChar real adSingle smalldatetime adDate smallint adSmallInt smallmoney adCurrency sql_variant adVariant text adLongVarChar timestamp adDBTimeStamp tinyint adTinyInt varbi..

Response.write(Year(Now())) & "년"Response.write(Month(Now())) & "월"Response.write(Day(Now())) & "일"Response.write(Hour(Now())) & "시"Response.write(Minute(Now())) & "분"Response.write(Second(Now())) & "초"   %>

엑셀의 VBA 나 VBS 등, 비주얼베이직(비쥬얼베이직) 계열의 언어에서는, Chr(13)을 이용해서 긴 행을 다음줄로 줄바꿈할 수 있습니다. Chr(13) 은 엔터(Enter)키의 아스키 코드입니다. Chr(13)을 넣으면 키보드의 엔터키를 친 것과 똑같이 됩니다. Chr(13) 의 앞뒤로 & 기호를 넣어서, 앞뒤의 문자열과 연결해 주어야 합니다. 예를 들면 아래와 같습니다: msgbox "첫째줄" & Chr(13) & "다음줄",vbInformation,"줄바꿈예제" 이러면 첫째줄 다음줄 이렇게 줄바꿈이 되어 나옵니다.

숫자 ASCII코드는 48번부터 57번 입니다. Function RefNumeric(inputStr) a = inputStr result = "" For i = 1 To Len(a) checkStr = Mid(a, i, 1) If Asc(checkStr) > 47 And Asc(checkStr) < 58 Then result = result & checkStr End If Next RefNumeric = result End Function inputStr = "테 스 트12345 67890" Response.write RefNumeric(inputStr) 결과 : 1234567890

head태그의 meta type에서만 설정해도 잘 작동하는 경우가 있지만 외부 API등의 활용으로 인해 어쩔수 없이 한 사이트 내에서 2개 이상의 charset 을 사용해야만 할 경우 아래의 소스를 각 페이지 상단에 넣어주면 해당페이지 단위로 정상적으로 인식해즙니다. -----------------------------------------------------------------------------------------------------------------------------------

asp에서 euc-kr / utf-8 설정 상단 head태그의 meta type에서만 설정해도 잘 작동하는 경우가 있지만 어쩔수 없이 한 사이트 내에서 2개 이상의 charset 을 사용해야만 할 경우 아래의 소스를 각 페이지 상단에 넣어주면 페이지 단위로 정상적으로 인식해줍니다. @Language="VBScript" CODEPAGE="65001" Response.CharSet="utf-8" Session.codepage="65001" Response.codepage="65001" Response.ContentType="text/html;charset=utf-8" @Language="VBScript" CODEPAGE="949" Response.CharSet="euc-kr" Session.codepage=..

엑셀 다운로드시 셀속성을 변경해줘야 할 경우가 있습니다. 핸드폰번호의 경우, 숫자 '0'으로 시작하는 경우도 많은데, 엑셀로 다운 받으면 숫자 '0'이 자동삭제됩니다. 이런 경우에는 셀 속성을 텍스트로 지정해주어야 합니다. 그런 셀속성 변경하는 style값이 아래와 같은 것들이 있습니다. mso-number-format:\@ - text서식 mso-number-format:"0\.000" - 소수점 3자리까지 서식 mso-number-format:"\#\,\#\#0\.000 - 소수점 3자리까지 & 숫자를 3자리씩 끊어서 [,]로 구분하는 서식 mso-number-format:""mm\/dd\yy" - 날짜서식 mso-number-format:":d\\-mmm\\-yyyy" - 날짜서식 mso-numbe..

Function AddZero(Str) IF len(Str)=1 Then AddZero="0"&Str Else AddZero=Str End IF End Function '사용법 Response.write AddZero(1) &"월 " Response.write AddZero(2) &"월 " Response.write AddZero(3) &"월 " '결과값 01월 02월 03월