<% '//페이징 변수 Dim page, pagesize, pagecount, TotalRecCount Dim req_category, req_keyword '//전달변수 확인 gotopage = getReplaceInput(fncDefault(Request("gotopage"),"1"),"") req_category = getReplaceInput(fncDefault(Request("category"),""),"") req_keyword = getReplaceInput(fncDefault(Request("keyword"),""),"") '//페이징 설정 pagesize = 9 '//페이지당 게시물수 If Trim(gotopage&"") = "" Then gotopage = 1 '//테이블 변수 tbl_name = "tbl_gallery" '//검색어 처리 If Trim(req_keyword&"") <> "" AND Trim(req_category&"") <> "" Then searchQuery = searchQuery & " Where " & req_category & " Like '%" & req_keyword & "%' " End If '//총 데이타수 구하기 selectQuery = "" selectQuery = selectQuery & " Select count(*) as RecCount From " & tbl_name If searchQuery & "" <> "" Then selectQuery = selectQuery & searchQuery set rs = DBCon.Execute(selectQuery) TotalRecCount = CInt(rs(0)) pagecount = int((TotalRecCount-1)/pagesize) +1 pages = (Int(gotopage)-1)*pagesize if Cint(gotopage) = Cint(pagecount) then RowPage = ( TotalRecCount - pages ) else RowPage = pagesize end if StartRowPage = Int(gotopage)*pagesize '//목록정보 selectQuery = "" selectQuery = selectQuery & " SELECT * FROM ( " selectQuery = selectQuery & " SELECT TOP "&RowPage&" * FROM ( " selectQuery = selectQuery & " SELECT TOP " & StartRowPage & " * FROM ( " selectQuery = selectQuery & " SELECT seq, name, f_nm1" 'selectQuery = selectQuery & " ,convert(varchar(10), reg_dt, 102) as reg_dt " selectQuery = selectQuery & " ,reg_dt " selectQuery = selectQuery & " FROM " & tbl_name If searchQuery & "" <> "" Then selectQuery = selectQuery & searchQuery selectQuery = selectQuery & " ) NBOX_PAGING1 ORDER BY seq DESC " selectQuery = selectQuery & " ) NBOX_PAGING2 ORDER BY seq ASC " selectQuery = selectQuery & " ) NBOX_PAGING3 ORDER BY seq DESC " SET rs = DBCon.Execute(selectQuery) If Not(rs.bof Or rs.eof) Then arr_rs = rs.GetRows() End If '//객체 연결 끊기 Call SubObjClose(rs) : Call SubObjClose(DbCon) %>

  • Home
  • 병원소개
  • 스타갤러리
    <% If Not IsEmpty(arr_rs) Then If IsArray(arr_rs) And UBound(arr_rs)>=0 Then loop_num=0 For i=0 To Ubound(arr_rs,2) prt_seq = arr_rs(0,i) prt_name = arr_rs(1,i) prt_f_nm1 = arr_rs(2,i) prt_reg_dt = arr_rs(3,i) prt_reg_dt=Replace(Left(prt_reg_dt,10),"-",".") prt_img_src = "" IF trim(prt_f_nm1&"")<>"" THen prt_img_src = ""&prt_name&"" End IF loop_num = loop_num + 1 list_num = int(TotalRecCount)-(int(pagesize)*(int(gotopage)-1)) - loop_num + 1 %>
  • <%=prt_img_src%>
    <%=prt_name%>
    • <% Next End If End IF %>
<% Set listNum = New PageNavi listNum.Initial "intro03.asp?vSort="&vSort&"&gSort="&gSort&"&sSort="&sSort&"&vKeyType="&vKeyType&"&vUserName="&vUserName&"&vUserId="&vUserId&"&branchCode="&branchCode&"&vSid1="&vSid1&"&vSid2="&vSid2,10,gotopage,pagecount,search_category,searchString,optionstr,"","" listNum.pagePrint Set listNum = nothing %> <% If Session("admin_div") > 0 Then %> 글쓰기 <% End If %>