게시판

<% ' 게시판 주제, 테이블 관련 변수 BBSID = Request("BBSID") AdminID=Request.cookies("AdminID") %> <% Dim QUOT Dim page,StartPage Dim totpg Dim TotCount Dim TodayCount ' 상수값 정의 Const intPageSize = 20 Const intRedirectPage = 10 ' 쌍 따옴표 QUOT = Chr(34) ' 페이지 변수 계산 If Request("page") = "" Then page = 1 Else page = Request("page") End If ' 시작 페이지 변수 계산 If Request("StartPage") = "" Then StartPage = 1 Else StartPage = Request("StartPage") End If Set rsList = Server.CreateObject("ADODB.Recordset") sqlList = "Select PID,MID,TreeID,ChildID,LinkID,Subject,Visited,RegDate From " & table & " Order By LinkID Desc" rsList.Open sqlList, DbCon, 1 If rsList.EOF = True And rsList.BOF = True Then ' 임시로 변수 등록 totpg = 0 TotCount = 0 TodayCount = 0 Else ' Recordset 속성을 이용하여 페이지를 나눔 rsList.PageSize = intPageSize rsList.AbsolutePage = page ' 게시물 전체 갯수와 페이지 갯수 구함 TotCount = rsList.RecordCount totpg = rsList.PageCount ' 오늘글 strYY = Year(date()) strMM = Month(date()) strDD = Day(date()) ' 오늘 올라온 글의 갯수를 구함 sqlToday = "Select count(PID) From " & table & " Where datepart(yyyy,RegDate)=" & strYY & " and datepart(mm,RegDate)=" & strMM & " and datepart(dd,RegDate)=" & strDD Set rsToday = DbCon.Execute(sqlToday) TodayCount = rsToday(0) Set rsToday = Nothing ' 페이지 변수 firstpg = 1 prevpg = page - 1 nextpg = page + 1 lastpg = totpg End If %>

*전체글 : <%= TotCount %> *오늘글 : <%= TodayCount %>

<% if rsList.EOF=True and rsList.BOF=True Then Else For intLoop = 1 to intPageSize blank = "" ' TreeID의 갯수만큼 칸을 띈다. Select Case rsList("TreeID") Case 0 blank = "" Case Else For loopIndex = 1 to rsList("TreeID") blank = blank & " " Next End Select ' 문자열이 길 경우 문자열 처리를 해 준다. If Len(rsList("Subject")) > 15 Then Subject = Left(rsList("Subject"),15) & "..." Else Subject = rsList("Subject") End If ' 답변글일 경우 답변 아이콘을 넣어준다. If rsList("TreeID") > 0 Then strTemp = "

" & Subject Else strTemp = "

" & Subject End If ' 오늘 날짜는 New 아이콘 표시 ' 오늘 날짜의 비교 년,월,일 구함 ' 위에서 다음과 같은 변수를 이미 구했기 때문에 주석처리 ' strYY = Year(date()) ' strMM = Month(date()) ' strDD = Day(date()) ' 오늘 날짜와 입력날짜를 비교해서 같으면 아이콘 표시 If Year(rsList("RegDate")) = strYY and Month(rsList("RegDate")) = strMM and Day(rsList("RegDate")) = strDD Then Subject = Subject & "

" End If ' 제목에 나타날 전체 제목 스트링을 구한다. strSubject = blank & "" & Subject & "" ' 등록일을 표맷에 맞게 해 준다. RegDate = year(rsList("RegDate")) & "/" & month(rsList("RegDate")) & "/" & day(rsList("RegDate")) %> <% rsList.MoveNext If rsList.EOF=True Then Exit For Next end if %>

번 호

제 목

이 름

날 짜

조 회

<%= rsList("PID") %>

<%= blank %><%= strSubject %>

효진스프링

<%= RegDate %>

<%= rsList("Visited") %>

<% if AdminID <> "" then %> <% else %> <% end if %> <% else %>

<% end if %> <% else %>

<% end if %>

		<% if (totpg - StartPage) < intRedirectPage Then %> <% For loopCount = StartPage to totpg %> [<%=loopCount%>] <% if loopCount > totpg Then Exit For next %> <%else%> <% For loopCount = StartPage to (StartPage+intRedirectPage-1) %> [ <%=loopCount%>] <% next %> <%end if%>	<% If CInt(page) > 1 Then %>	<% If CInt(page) < lastpg Then %>