<% ' =========================================================================== ' 시스템명 : 좋은나무성품학교 ' 프로그램설명 : 공통 세미나 신청페이지 ' 최종수정일 : 2017/09/12 ' 작성자 : 이상영 ' =========================================================================== ' 강좌 코드가 있는 경우에는 리스트에서 바로 해당 강좌의 상세 view 페이지로 이동한다. ' 강좌 코드를 넣어서 링크를 거는 경우에, 권한이 일반용인지 확인한 뒤에 걸어주도록 한다.권한용일 경우 오류발생 %> <% leftMenuNum = Request("leftMenuNum") ' LEFT메뉴번호 PageTopTitle = Request("PageTopTitle") ' 페이지별 title 번호 변수 page = RequestInt("PAGE", 1) app_idx = request("app_idx") lec_idx = Request("lec_idx") pGubun = RequestStr("pGubun", "1") SCHSTR = Request("SCHSTR") Category_Code = Request("Category_code") condition = "" ' ============================================================================================ If Category_Code <> "" Then condition = condition & " AND i.lec_category_Code = '" & Category_Code & "'" if SCHSTR <> "" Then condition = condition & " AND lec_Name like '%" & SCHSTR & "%'" ' ============================================================================================ ' ============================================================================================ ' 강좌 코드가 있는 경우에는 리스트에서 바로 해당 강좌의 상세 view 페이지로 이동한다. if lec_idx <> "" then url = "/lecture/subSPage_View.asp?leftMenuNum="&leftMenuNum&"&PageTopTitle="&PageTopTitle&"&lec_idx="&lec_idx&"&pGubun="&pGubun GoUrl(url) end If ' ============================================================================================ ' ============================================================================================ ' 데이타베이스 연결 setConnectionDB ' ============================================================================================ ' ============================================================================================ ' 카테고리명 뽑아오기 Set oCmd = Server.CreateObject("ADODB.Command") oCmd.ActiveConnection = oConn oCmd.CommandType = adCmdStoredProc oCmd.CommandText = "goodtree.GT_LecCategory" oCmd.Parameters.Append oCmd.CreateParameter("@Gubun", advarChar, adParamInput, 20) oCmd.Parameters.Append oCmd.CreateParameter("@pGubun", advarChar, adParamInput, 20) oCmd.Parameters("@Gubun").value = "categoryList" oCmd.Parameters("@pGubun").value = pGubun Set Category_name = oCmd.Execute() ' ============================================================================================ ' ============================================================================================ ' 글 전체 카운트 구하기 ' lec_state = 5 삭제된 강좌 // lec_pgubun 는 강좌 구분 = 1: 성품교육강좌 2: CEO 3: 가맹교사세미나 5: 자격증과정 strSQL = "select COUNT(lec_idx) as num from goodtree.Lec_info i where lec_pgubun=? and lec_state <> '5' " & condition Set Comm = Server.CreateObject("ADODB.Command") with Comm .ActiveConnection = oConn .CommandType = adCmdText .CommandText = strSQL .Parameters.Append .CreateParameter("@lec_pgubun", adInteger, adParamInput) .Parameters("@lec_pgubun") = pGubun Set oRS = .Execute end with If oRS.BOF or oRS.EOF Then nTotalListSzie = 0 Else nTotalListSize = oRS("num") End If oRS.Close nListSize = 10 nTotalPageSizeMod = nTotalListSize Mod nListSize nRevision = 0 nModSize = nListSize If nTotalPageSizeMod <> 0 Then nRevision = 1 nModSize = nTotalPageSizeMod End If nTotalPageSize = Fix(nTotalListSize / nListSize) + nRevision prnNum = ((nTotalPageSize - page) * nListSize) + nModSize nReadSize = nListSize * page nBlockSize = 10 ' 블록페이지의 크기를 N이라하면 N < nBlockSize < N+1 도록 지정 ' ============================================================================================ %>