아미(아름다운미소)

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())) & "초"   %>

숫자 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

엑셀 다운로드시 셀속성을 변경해줘야 할 경우가 있습니다. 핸드폰번호의 경우, 숫자 '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월

엑셀 다운로드시 셀속성을 변경해줘야 할 경우가 있습니다. 계좌번호 목록 같은경우 숫자 '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" - 날짜..

ASP 엑셀파일로 저장하기 Response.Buffer = True Response.ContentType = "application/vnd.ms-excel" Response.CacheControl = "public" Response.AddHeader "Content-disposition","attachment;filename=ASP엑셀예제_"&date()& ".xls"

한글이 깨지는 것은 대부분이 인코딩 문제 때문에 그렇습니다.ASP 상단에 4줄 써주고 UTF-8로 저장하시면 한글깨지는 문제로부터 자유로우실 겁니다.^^

asp에서 json 텍스트를 받아서 파싱 데이터 처리 asp 에서 json 형태의 텍스트를 받아서 처리하는 샘플입니다. 예를들어서 아래와 같은 json 텍스트를 여러레코드를 배열형태로 넘어왔을때, 이를 파싱해서 데이터를 처리할 수 있는 형태로 처리하도록 하겠습니다. [ {"name" : "홍길동", "age" : "25"}, {"name" : "선동렬", "age" : "32"}, {"name" : "박찬호", "age" : "48"} ] 먼저 json 모듈을 다운로드 받아서 적당한 위치에 파일을 위치하도록 합니다. Dim jsonText jsonText = jsonText & vbcrlf & "[" jsonText = jsonText & vbcrlf & " {""name"" : ""홍길동"", ""ag..

리스트 페이징 프로시져 //리스트 페이징 프로시져 CREATE PROCEDURE dbo.P_board_list01 @key_fild VARCHAR(50)= 'midx' , @qstrsqlVARCHAR(500)= '', @TBnameVARCHAR(50)= '', @orderbyVARCHAR(500)= '', @pagesizeINT, @pageINT, @pagecountINT OUTPUT, @RecordCountINT OUTPUT, @strErrorNumint OUTPUT AS BEGIN Tran SET NOCOUNT ON DECLARE @MaxNo INT, @SQL VARCHAR(1000),@NSQL NVARCHAR(1000) DECLARE @rowcnt INT SET @rowcnt = 0 SET @str..