제목 : classic asp 테이블 row 중 소계, 합계, 총합계 구하는 방법(소스)




소스 :


간단 요약

1. 각 pTotalCount, sTotalCount, tTotalCount, totalCount = 0 선언

2. do loop 로 data 테이블 tr row write

- tNo, sNo, pNo, count 에 db data 넣기(현재 값)

- 이전과 비교해서 oripNo <> pNo 면 part 합계 tr 보여줌(row > 1 일때)

- 이전과 비교해서 orisNo <> sNo 면 subject 합계 tr 보여줌(row > 1 일때)

- 이전과 비교해서 oritNo <> tNo 면 test 합계 tr 보여줌(row > 1 일때)

- oripNo 에 현재 pNo 저장

- orisNo 에 현재 sNo 저장

- oritNo 에 현재 tNo 저장

- tr 에 현재 data row 뿌릴 것

- pTotalCount, sTotalCount, tTotalCount, totalCount 에 count 를 더함

3. 이전과 비교해서 oripNo = pNo 면 part 합계 tr 보여줌(row > 1 일때)

4. 이전과 비교해서 orisNo = sNo 면 subject 합계 tr 보여줌(row > 1 일때)

5. 이전과 비교해서 oritNo = tNo 면 test 합계 tr 보여줌(row > 1 일때)




내용 :



위 스샷과 같이, 

소계, 합계, 총계 등 단계별로 합산내역을 보여줄 때 방법.


물론, sql 쿼리문으로도 해결이 가능하지만. 무식한 방법으로 해봄.


index 넘버링 순서(order by)는

tNo asc, sNo asc, pNo asc, cNo asc




1. part합계 구하기 - 이전, 다음 pNo 를 비교하여 다르면 tr 로 뿌릴 것. pTotalCount

2. subject합계 구하기 - 이전, 다음 sNo 를 비교하여 다르면 tr 로 뿌릴 것. sTotalCount

3. test합계 구하기 - 이전, 다음 tNo 를 비교하여 다르면 tr 로 뿌릴 것. tTotalCount

4.전체 row 쿼리문으로 loop 돌려서 뿌릴 것 

- 각 합계 구할 것(pTotalCount, sTotalCount, tTotalCount)

- 전체 총합 구할 것(totalCount)

5. part합계 구하기 - 이전, 다음 pNo 를 비교하여 같으면 tr 로 뿌릴 것. pTotalCount

6. subject합계 구하기 - 이전, 다음 sNo 를 비교하여 같으면 tr 로 뿌릴 것. sTotalCount

7. test합계 구하기 - 이전, 다음 tNo 를 비교하여 같으면 tr 로 뿌릴 것. tTotalCount

8. 전체 총합 - totalCount


이런식으로 뿌리면 되는데...상세한 내용은 첨부파일 소스 참조.


input box의 값들은 삭제했습니다.







예제 소스 파일 : asp테이블소계구하기.html


 출처 :  




저작자 표시 비영리 변경 금지
신고
Posted by 잠수콩



제목 : classic asp json send, receive




소스 :


Function BytesToStr(bytes)

Dim Stream

Set Stream = Server.CreateObject("Adodb.Stream")

Stream.Type = 1 'adTypeBinary

Stream.Open

Stream.Write bytes

Stream.Position = 0

Stream.Type = 2 'adTypeText

Stream.Charset = "utf-8"

BytesToStr = Stream.ReadText

Stream.Close

Set Stream = Nothing

End Function




If Request.TotalBytes > 0 Then

Dim lngBytesCount, jsonText

lngBytesCount = Request.TotalBytes

jsonText = BytesToStr(Request.BinaryRead(lngBytesCount))

    Response.ContentType = "text/plain"

    Response.Write "Your " & Request.ServerVariables("REQUEST_METHOD") & " data was: " & post

End If




내용 :


asp 페이지에서 json request 하는 방법






예제 소스 파일 :


 출처 :  




저작자 표시 비영리 변경 금지
신고
Posted by 잠수콩



제목 : 성능 및 스타일 향상에 도움이 되는 28가지 ASP 팁




소스 :




내용 :


자주 사용되는 데이터는 웹 서버에 캐시하십시오.

자주 사용되는 데이터는 응용 프로그램이나 세션 개체에 캐시하십시오.

데이터 및 HTML은 웹 서버 디스크에 캐시하십시오.

비 agile 구성 요소는 응용 프로그램이나 세션 개체에 캐시하지 마십시오.

데이터베이스 연결은 응용 프로그램이나 세션 개체에 캐시하지 마십시오.

세션 개체를 올바르게 사용하십시오.

코드를 COM 개체에 캡슐화하십시오.

최신의 리소스를 얻어 신속하게 릴리스하십시오.

독립 프로세스 실행을 통해 성능과 안정성을 적절히 안배하십시오.

Option Explicit를 사용하십시오.

로컬 변수를 하위 루틴 및 함수에 사용하십시오.

자주 사용되는 데이터를 스크립트 변수에 복사하십시오.

배열 크기 재정의를 피하십시오.

응답 버퍼링을 사용하십시오.

인라인 스크립트 및 Response.Write 명령문을 일괄 처리하십시오.

실행 시간이 긴 페이지를 만들 때 Response.IsClientConnected를 사용하십시오.

태그를 사용하여 개체를 초기화하십시오.

TypeLib 바인딩을 ADO 및 기타 구성 요소에 사용하십시오.

브라우저의 유효성 검사 기능을 활용하십시오.

루프 형식의 문자열 연결을 피하십시오.

브라우저 및 프록시 캐싱을 사용하십시오.

가능하면 Response.Redirect가 아닌 Server.TRansfer를 사용하십시오.

디렉터리 URL에 후행 슬래시를 사용하십시오.

서버 변수 사용을 피하십시오.

최신 구성 요소로 업그레이드하십시오.

웹 서버를 조정하십시오.

성능 테스트를 수행하십시오.






예제 소스 파일 :


 출처 :  https://www.microsoft.com/korea/technet/iis/tips/asptips17_29.mspx




저작자 표시 비영리 변경 금지
신고
Posted by 잠수콩