|
<%
Dim CurrentPage, keyword, Keytype, sqlList
If Request("Page")="" Then
CurrentPage = 1
Else
CurrentPage = Request("Page")
End If
If Request("isSearch")="true" Then
keyword = Request("Keyword")
Keytype = Request("KeyType")
If keyType = "BBS_TEXT" Then
sqlList = "SELECT BBS_NO, BBS_MID, BBS_TREEID, BBS_CHILDID, BBS_LINKID, BBS_EDITOR, "
sqlList = sqlList & " BBS_SUBJECT, BBS_EMAIL, BBS_PASSWD, BBS_VISITED, BBS_DATE, BBS_TEXT "
sqlList = sqlList & " FROM " & BBS_TABLE_NAME & " " &" WHERE BBS_Category = '"&BBS_Category&"' AND is_notice = 'N' and (BBS_TEXT LIKE '%" + Keyword + "%')" &" ORDER BY BBS_MID desc"
ElseIf keyType = "BBS_EDITOR" Then
sqlList = "SELECT BBS_NO, BBS_MID, BBS_TREEID, BBS_CHILDID, BBS_LINKID, BBS_EDITOR, "
sqlList = sqlList & " BBS_SUBJECT, BBS_EMAIL, BBS_PASSWD, BBS_VISITED, BBS_DATE, BBS_TEXT "
sqlList = sqlList & " FROM " & BBS_TABLE_NAME & " " &" WHERE BBS_Category = '"&BBS_Category&"' AND is_notice = 'N' and (BBS_EDITOR LIKE '%" + Keyword + "%')" &" ORDER BY BBS_MID desc"
Else
sqlList = "SELECT BBS_NO, BBS_MID, BBS_TREEID, BBS_CHILDID, BBS_LINKID, BBS_EDITOR, "
sqlList = sqlList & " BBS_SUBJECT, BBS_EMAIL, BBS_PASSWD, BBS_VISITED, BBS_DATE, BBS_TEXT "
sqlList = sqlList & " FROM " & BBS_TABLE_NAME & "" &" WHERE BBS_Category = '"&BBS_Category&"' AND is_notice = 'N' and (BBS_SUBJECT LIKE '%" + Keyword + "%')" &" ORDER BY BBS_MID desc"
End If
'=== Response.Write keyType & "
sql" & sqlList
Else
sqlList = "SELECT BBS_NO, BBS_MID, BBS_TREEID, BBS_CHILDID, BBS_LINKID, BBS_EDITOR, "
sqlList = sqlList & " BBS_SUBJECT, BBS_EMAIL, BBS_PASSWD, BBS_VISITED, BBS_DATE, BBS_TEXT "
sqlList = sqlList & " FROM " & BBS_TABLE_NAME & " WHERE BBS_Category = '"&BBS_Category&"' and is_notice = 'N' ORDER BY BBS_MID desc, BBS_LINKID desc"
End If
'Response.write sqlList
'Response.end
Dim intCountPerPage, intBlockPage, rsCon
intCountPerPage = 10
intBlockPage = 10
' DB와 연결
Set rsCon = GetDBRecordset()
rsCon.PageSize = intCountPerPage
rsCon.Open sqlList, objQuery, 1
'response.write sqlList
'response.end
' 레코드가 있으면 현재페이지가 보여주는 페이지
if rsCon.EOF = True and rsCon.BOF = True Then
Else
rsCon.AbsolutePage = CurrentPage
End If
Dim TotCount, LastCount, LastRecord, FirstPg, PrevPg, NextPg, ind, LastPg, rowNumber
' 레코드의 전체 갯수를 구함
TotCount = rsCon.RecordCount
'==Response.write rsCon.pageCount & " +++"
'마지막 페이지 구함
LastCount = TotCount \ 10
LastRecord = TotCount mod 10
' 페이지 변수 설정
FirstPg = 1
PrevPg = CurrentPage - 1
NextPg = CurrentPage + 1
'LastPg = 1 + ((TotCount) / Cint(intCountPerPage) - 1)
LastPg = rsCon.PageCount
ind="bbs"
rowNumber = TotCount - ((CurrentPage - 1) * intCountPerPage)
%>
<% If rsCon.EOF = True and rsCon.BOF = True Then %>
|
|
<% else %>
[ <%=CurrentPage%> / <%=rsCon.PageCount%> ] Total <%=TotCount%> Results
|
<% end if %>
|
<%
' 레코드가 하나도 없으면
If rsCon.EOF = True and rsCon.BOF = True Then
%>
| 등록된 내용이 없습니다. |
<%
' 레코드가 있으면 보여준다.
Else
%>
| 번호 |
제목 |
작성자 |
작성일 |
조회 |
|
<%
Dim arrNotice, idx
arrNotice = funcGetBoardNotice1(objQuery, BBS_Category)
If IsArray(arrNotice) Then
For idx = 0 To Ubound(arrNotice, 2)
%>
| 공지 |
&keyword=<%=keyword%>&keytype=<%=keytype%>"><%=arrNotice(6, idx)%> |
<%=arrNotice(5, idx)%> |
<%= Month(arrNotice(10, idx))%>/<%= Day(arrNotice(10, idx))%>/<%= Year(arrNotice(10, idx))%> |
<%=arrNotice(9, idx)%> |
<% Next
End IF
Dim i, blank, loopIndex, blank01
For i = 1 to rsCon.PageSize
' 답변의 간격을 띄기 위해
blank = ""
Select Case cint(rsCon("BBS_TreeID"))
Case 0
blank = ""
Case Else
' 답변의 차수만큼 간격을 띈다.
For loopIndex = 1 to cint(rsCon("BBS_TreeID"))
blank = blank & " "
If loopIndex >= 2 Then
blank = blank & " "
End if
blank01=" "
Next
End Select
Dim Subject
' 제목이 20자가 넘으면 일정량으로 자른다.
If Len(rsCon("BBS_Subject")) > 50 Then
Subject = Left(rsCon("BBS_Subject"),50) & "..."
Else
Subject = rsCon("BBS_Subject")
End If
if i mod 2 = 0 Then
%>
<% else%>
<% end if%>
<%rem------신규여부 쎌--------------%>
|
<%if cint(rsCon("BBS_TreeID")) = 0 Then%>
<%=rowNumber%>
<%Else%>
<%=rowNumber%>
<%end if%>
|
<%if cint(rsCon("BBS_TreeID")) = 0 Then%>
<%= blank%>&Page=<%= CurrentPage %>&LinkID=<%= rsCon("BBS_LinkID") %>&isSearch=<%=Request("isSearch")%>&keyword=<%=keyword%>&keytype=<%=keytype%>"><%= Subject %>
<%else%>
<%= blank & blank01%>&Page=<%= CurrentPage %>&LinkID=<%= rsCon("BBS_LinkID") %>&isSearch=<%=Request("isSearch")%>&keyword=<%=keyword%>&keytype=<%=keytype%>"><%= Subject %>
<%end if%>
<%' 오늘 올라온 게시물 체크
If Year(Now)=Year(rsCon("BBS_Date")) and Month(Now)=Month(rsCon("BBS_Date")) and Day(Now)=Day(rsCon("BBS_Date")) Then
%> <%End If%>
|
<% ' Changed BBS_Editor 작성자 이름 to ***
%>
">***
|
<%= Month(rsCon("BBS_Date"))%>/<%= Day(rsCon("BBS_Date"))%>/<%= Year(rsCon("BBS_Date"))%>
|
<% IF rsCon("BBS_Visited") > 30 Then %>
<%=rsCon("BBS_Visited")%>
<% Else%>
<%=rsCon("BBS_Visited")%>
<% End IF%>
|
<%
rsCon.MoveNext
rowNumber = rowNumber - 1
Dim j
if rsCon.EOF = True And LastRecord <> 0 then
For j=1 to (10-LastRecord)
if (LastRecord mod 2 = 1) then
if j mod 2 = 1 then%>
<%else%>
<%end if
else
if j mod 2 =0 then%>
<%else%>
<%end if%>
<%
end if
%>
| |
|
|
|
|
<%
next
end if
' 레코드의 끝이면 루프를 탈출
If rsCon.EOF = True Then Exit For
Next
%>
|
|
<%
End IF
%>
<%
'//페이지 출력
Dim intTemp, intLoop
intTemp = Int((CurrentPage - 1) / intBlockPage) * intBlockPage + 1
If intTemp = 1 Then
Response.Write " ![]("&IMG_NAVI_OFFPRE2&") ![]("&IMG_NAVI_OFFPRE1&") "
Else
Response.Write" ![First Page]("&IMG_NAVI_PRE2&") ![]("&IMG_NAVI_PRE1&") "
End If
intLoop = 1
Do Until intLoop > intBlockPage Or intTemp > rsCon.PageCount
If intTemp = CInt(CurrentPage) Then
Response.Write " [" & intTemp &"]"
Else
Response.Write" [" & intTemp & "]"
End If
intTemp = intTemp + 1
intLoop = intLoop + 1
Loop
If intTemp > rsCon.PageCount Then
Response.Write " ![]("&IMG_NAVI_OFFNEXT1&") ![]("&IMG_NAVI_OFFNEXT2&") "
Else
Response.Write" ![]("&IMG_NAVI_NEXT1&") ![Last Page]("&IMG_NAVI_NEXT2&") "
End If
%>
|
<%
rsCon.close
Set rsCon = Nothing
%>
|
| |
| |
|
|
|
