안녕하세요.

이번에 ASP.NET 공부겸, VUE.JS 공부겸 해서 사이트를 하나 만들었습니다.

주요 기능은 로또 당첨번호 확인, 실수령액 확인, 1등당첨 판매점 확인 등입니다.

시간이 허락하는 한 조금씩 기능을 추가해 갈 생각입니다.

그리고 로또 API를 활용하는 부분을 조금씩 블로그를 통해서 공유해갈 생각입니다.

무료로 이용할 수 있는, 광고로 운영되는 ( 아직 광고 승인이 나지는 않았습니다. ) 사이트 많은 이용부탁드립니다.

 

감사합니다.

 

 

로또 API관련해서 글이 추가 되었습니다.

 

https://gyunbox.tistory.com/152?category=590206

 

로또당첨번호API사용법/로또추첨번호/로또API/로또페이지개발/로또API사용방법/로또페이지개발하

로또당첨번호API/로또추첨번호/로또API/로또페이지개발로또당첨번호API사용법/로또추첨번호/로또API/로또페이지개발/로또API사용방법/로또페이지개발하는법/로또API 사용하는 법 로또 관련 페이

gyunbox.tistory.com

 

 

 

사이트 URL : http://ddogram.ga 

 

또그램

또그램,로또실수령액계산기,로또번호생성,로또당첨번호확인,로또번호확인

ddogram.ga

 

또그램 메인페이지

 

또그램 > 로또 번호 생성

 

또그램 > 생성한 번호 저장

 

또그램 > 실수령액 계산기

 

 

또그램 > 등수별 당첨금액(실수령액)

 

또그램 > 1등 판매점 정보

<%option explicit %> 를 asp 페이지에 상단에 추가함으로써 선언되지 않은 변수의 사용을 막는다.

코드가 길어지는 경우, 유지 보수에 도움이 된다. ( 변수가 의도와 다르게 사용되는 경우, 혼용 되는 경우를 막음 )

<% option explicit %>

Dim name
name="당꿈응"

Response.Write name

phone = "010-1234-5678" '선언되지 않은 변수사용으로 에러발생

Rs 에 계속 접근하기 보다는 배열에 복사에서 사용하는 것이 DB의 부담을 줄일 수 있다고 한다!!

 

Set Rs2 = Db.Execute(query2)

Dim arrRs '배열 선언

If Not Rs2.EOF Then arrRS = Rs2.GetRows()  '배열에 복사

Rs2.close

Set Rs2 = Nothing




If IsArray(arrRS) Then

  For i = LBound(arrRS, 2) To UBound(arrRS, 2)

    Response.Write arrRS(0, i)

    Response.Write arrRS(1, i)

 Next




Erase arrRS

End if

 

 

 

 

   create table #tmp ( name nvarchar(10), pwd nvarchar(10))
   
   insert into #tmp values ('강감찬','111')
   insert into #tmp values ('김유신','222')
   insert into #tmp values ('이순신','333')
   
   DECLARE @Target_name nvarchar(10)
   
   DECLARE CUR CURSOR
   FOR SELECT name FROM #tmp
   
   OPEN CUR;
   
   Fetch Next From CUR into @Target_name
   
   While(@@FETCH_STATUS <> -1)
   BEGIN
	PRINT @Target_name
	
	FETCH NEXT FROM CUR INTO @Target_name
   END
   
   
   Close CUR;
   Deallocate CUR;

 

 

+ Recent posts