<%@ Language=VBScript %> <% option explicit '변수 선언 안하면 에러출력 %> <% if Request.Cookies("happy")("jidebang")="" then Response.Redirect("login.asp") else %> <% Response.Expires = -1 dim db,rs,sql,qstr dim key,sway dim page,acount,totalpage,spage dim i,j dim title,name if request("page") = "" then page=1 else page=cint(request("page")) end if set db=server.CreateObject("Adodb.connection") db.Open dsn sway=request("sway") key=request("key") '페이지수 계산 sql="set transaction isolation level read uncommitted " sql=sql & "select count(*) as acount, count(*)/" & pagesize & " as scount, count(*)%" & pagesize & " as mod from " & tb sql=sql & " where bcode=" & bcode if not trim(key) = "" then select case sway case 1 sql= sql & " and (title like '%" & key & "%' or content like '%" & key & "%' or name like '%" & key & "%') " case 2 sql= sql & " and title like '%" & key & "%' " case 3 sql= sql & " and content like '%" & key & "%' " case 4 sql= sql & " and name like '%" & key & "%' " end select end if set rs=db.Execute(sql) '총 레코드수 acount=rs("acount") '총 페이지수 if rs("mod") > 0 then totalpage = cint(rs("scount") + 1) else totalpage = cint(rs("scount")) end if set rs=nothing '페이지 출력 쿼리문 작성 sql="set transaction isolation level read uncommitted " sql=sql & "select * from " & tb & " where bcode=" & bcode if not trim(key) = "" then select case sway case 1 sql= sql & " and (title like '%" & key & "%' or content like '%" & key & "%' or name like '%" & key & "%') " case 2 sql= sql & " and title like '%" & key & "%' " case 3 sql= sql & " and content like '%" & key & "%' " case 4 sql= sql & " and name like '%" & key & "%' " end select end if sql=sql & " order by notice,ref desc,step" set rs=db.Execute(sql) %> *:*:* 용당어린이집 *:*:*


  <% '프로그램 소스 시작 %>
                                                                                                                                                     [로그아웃]
<% '쿼리 스트링 생성 if not trim(key) = "" then qstr = qstr & "sway=" & sway & "&key=" & key end if if rs.bof then Response.write(" ") else '해당 페이지의 첫번째 레코드로 이동 rs.move(page*pagesize-pagesize) i=1 do until rs.eof or i>pagesize title = rs("title") title = checkword2(title) name = rs("name") name = checkword2(name) '검색어 있을시 붉은색 첨가 if trim(key) <> "" then title = replace(title, key, ""&key&"") name = replace(name, key, ""&key&"") end if '공지글이면 빨간색 if rs("notice")="o" then title = ""&title&"" end if %> <% rs.movenext i=i+1 loop end if %>
<% if trim(key) <> "" then %> 검색어 : <%=key%>   검색자료 : 총<%=acount%>개 <% else %> 게시물 : 총<%=acount%>개 <% end if %>    페이지 번호 : <%=page & "/" & totalpage%>
번호 제 목 파일 글쓴이 등록일 조회
등록된 글이 없습니다.
<%=acount-(page-1) * pagesize - i + 1%>   <% '답변글이 있는경우 두칸 밀고 답변글 이미지 출력 if rs("re_level") > 0 then for j=1 to rs("re_level") Response.Write "  " next %> <% end if %> &page=<%=page%>&<%=qstr%>"><%=title%> <% if rs("tcount")>0 then response.write(" [" & rs("tcount") & "]") end if if date - rs("date")<0 then %>   <% end if %> <% if not rs("file1")="" then %> "> <% else %> - <% end if %> <% if rs("email")="" then %> <%=name%> <% else %> "><%=name%> <% end if %> <%=left(rs("date"),10)%> <%=rs("renum")%>
<% ' 페이지 링크 출력 '시작페이지 설정 if page mod 10 = 0 then spage = (page\10 - 1) * 10 + 1 else spage = (page\10) * 10 + 1 end if '이전 10개 if spage-10 >= 1 then Response.Write ("[이전10개]" & " ") end if '10개 페이지 출력 i=0 do until i >= 10 or spage + i > totalpage if spage + i = page then Response.Write (""&spage+i&" ") else Response.Write (""&spage+i&" ") end if i=i+1 loop '다음 10개 if spage + 10 <= totalpage then Response.Write (" " & "[다음10개]") end if %>
    <% if trim(key) <> "" then %> <% end if %>
<% rs.Close Set rs = Nothing Db.Close Set Db = Nothing %> <% '프로그램 소스 끝 %>
<% end if %>