<% if request("page")="" then pageNum = 1 else pageNum = request("page") end if Set con = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") con.Open Session("connectString") '============================= ' 분류를 세션에 저장한다. '============================= 'if request("group") <> "" then ' session("group") = request("group") 'end if '============================= ' 분류에 따른 쿼리문 작성. '============================= 'if session("group") > 0 then ' sql = "select * from qna_board where wgroup = " & session("group") & "order by rnum desc, rseq asc" 'else sql = "select * from qna_board order by rnum desc, rseq asc" 'end if '=============================== ' 한 페이지에 보여주는 글수 '=============================== rs.pagesize = 15 ' 페이지 사이즈는 레코드셋 오픈하기 전에 지정해 줌. rs.Open sql,con,1 totalpage = rs.pagecount %> 터키 피플 [INSIDE TURKEYPEOPLE]

 

 

     ▶ 터키 여행에 관한 질문에 답글을 드립니다. (타 사이트 광고나 요금답변 등 상행위는 자제 바랍니다.)

<% if not ( rs.eof or rs.bof ) then flag = 1 j=1 ' rs.movefirst '=============================================================== ' 지정된 페이지로 첫번째 레코드에 현재의 위치를 이동시킨다. '=============================================================== rs.absolutepage = pageNum do while not (rs.eof or j > rs.pagesize) '===================================== ' 부모글인지 답글인지 판단해준다. '===================================== lev = len(trim(rs("rseq"))) '========================================================================= ' 레코드 셋에 배경색 넣기. 리스트 보기에서 앞뒤글의 색깔을 다른게... '========================================================================= if flag = 1 then bgcolor = "" flag = 0 else bgcolor = "#F4EEF3" flag = 1 end if response.write "" 'response.write "" '############# ' 글번호 '############# response.write "" '############# ' 분 류 '############# 'select case rs("wgroup") ' case "1" ' response.write "" ' case "2" ' response.write "" ' case "3" ' response.write "" ' case "4" ' response.write "" 'end select '############# ' 제 목 '############# response.write "" end if '############# ' 글쓴이 '############# response.write "" ' sql3 = "select * from qna_board where rnum = '" & rs("rnum") & "' and (pnum is null)" ' set requ = server.createObject("ADODB.RecordSet") ' requ.open sql3,con,1 ' if (requ.bof or requ.eof) then ' response.write "" ' else ' response.write "" ' end if ' requ.close ' response.write "" '############# ' 등록일 '############# response.write "" '############# ' 조회수 '############# response.write "" response.write "" rs.movenext ' if not (rs.eof=true) then ' response.write "" ' response.write "" ' response.write "" ' response.write "" ' response.write "" ' response.write "" ' response.write "" ' response.write "" j=j+1 ' end if loop else response.write "" end if rs.close ' getname.close con.close set rs = nothing ' set getname = nothing set con = nothing %>
번 호 제 목 글쓴이 등록일 조회수
" & rs("pnum") & " 차량문의 구입문의 환불/반품문의 기타문의 " '==================================================== ' 답글일 때는 오른쪽으로 밀려서 출력되게 해준다. '==================================================== if lev > 1 then for i = 1 to lev response.write "  " next response.write "" end if '=================================================================================== ' 제목의 리스트 되는 글자수를 제한한다. 제한수 이상이면 나머지는 "..."으로 표시 '=================================================================================== strSub = "" if len(rs("subject")) > 25 then strSub = left(rs("subject"),24) & "..." else strSub = rs("subject") end if '======================================== ' 제목 클릭시 내용보기 페이지로 이동. '======================================== response.write "  " & strSub & "" '======================================== ' 새글일 때, 얼마간 New라고 표시한다. '======================================== if DateDiff("h", rs("signdate"), now()) < 24 then response.write " " '& "" & rs("q_name") & " " & getname("m_name") & "" & left(rs("signdate"),10) & "" & rs("hitnum") & "
" response.write "게시물이 없습니다.

<% '################# ' 페이지 설정 '################# dim tmp,getPage1,getPage2,Pstart,Pend if int(pageNum) > 10 then ' ### pagecount가 10개가 넘으면... response.write "first " end if getPage1 = pageNum \ 10 ' ### pageNum = 15 이면 getPage1 = 1, \ : 몫 getPage2 = pageNum mod 10 ' ### pageNum = 15 이면 getPage1 = 5, mod : 나머지 'if Pstart = 0 then Pstart = Pstart + 1 if pageNum < 10 then ' ### pagecount가 10개가 넘지 않으면... Pstart = 1 elseif int(getPage2) = 0 then ' ### pagecount가 10이면 즉 getpage2(나머지)가 0이면 즉 pageNum이 10,20,30,40,....이면 Pstart = getpage1*10 - 9 ' ### getpage1(몫)은 1,2,3,...Pstart는 1,11,21,... else ' ### 기타 Pstart = getpage1*10 + 1 ' ### getpage1(몫)은 1,2,3,...Pstart는 11,21,31,... end if if pstart > 10 then prev = pstart - 10 ' ### pstart는 11,21,31,...prev는 1,11,21,... if (Pstart + 9 > totalpage) then Pend = totalpage else Pend = Pstart + 9 nex = Pend + 1 end if if pageNum > 10 then response.write "prev " end if do while Pstart <= Pend if int(Pstart) = int(pageNum) then response.write "[" & Pstart &"] " else response.write "["& Pstart &"] " end if Pstart=Pstart+1 loop if totalpage - pend > 0 then response.write "next " end if if int(totalpage) <= int(pageNum) then response.write "" else response.write "last" end if %>