현재위치홈 > 고객센터 > 공지사항

공지사항

<% nPage = request("nPage") nPageSize = 20 'response.write global_shop_code If nPage = "" Then nPage = 1 End If sKey = request("sKey") sType = request("sType") Set rs = server.CreateObject("ADODB.RecordSet") sql = "select count(*) from t_outer_notice" whereSql = " (check_num is null or check_num='') and (shop_code = '' or shop_code ='" & global_shop_code & "') " If sKey <> "" Then whereSql = whereSql & " and title like '%" & Replace(sKey,"'","''") & "%'" End If If whereSql <> "" Then sql = sql & " where " & whereSql End If rs.open sql,oDBCon,1 nTotal = rs(0) rs.close 'giftkor '[관리자] ListPage = "notice.asp?sKey=" & sKey & "&sType=" & sType nTotalPage = CEIL( nTotal / nPageSize) nStartPage = ( CEIL( nPage/10) - 1) * 10 + 1 nEndPage = CEIL((nPage + 10)/10 - 1) * 10 If nEndPage > nTotalPage Then nEndPage = nTotalPage End If i = 1 Dim arPage( 10, 2) For p = nStartPage To nEndPage arPage( i, 0) = p arPage( i, 1) = ListPage & "&nPage=" & p If p < nEndPage Then arPage( i, 2) = " | " End If i = i + 1 next If nPage > 1 Then ' sPrevPage sPrevPage = ListPage + "&nPage=" & (nPage - 1) End If If Int( nPage) < Int( nTotalPage) Then ' sNextPage sNextPage = ListPage + "&nPage=" & (nPage + 1) End If If (nStartPage - 10) >= 1 Then ' sPrev10Page sPrev10Page = ListPage + "&nPage=" & (nStartPage - 10) End If If (nStartPage + 10) <= nTotalPage Then ' sNext10Page sNext10Page = ListPage + "&nPage=" & (nStartPage + 10) End If %>
총 게시물 : <%=FormatNumber(nTotal,0)%> 개 검색 <% sql = "select * from t_outer_notice where check_num='Y' " rs.open sql,oDBCon,1 i = 1 NewDate = Date NewDate = DateAdd("y", -2, NewDate) ' 2일 이내 New If Not rs.eof Then Do Until rs.eof 'link1 = rs("link1") 'link2 = rs("link2") 'link3 = rs("link3") num = nTotal-((nPage-1)*nPageSize) - i + 1 If int(num) < 1 then strSeq = "" Else strSeq = num End If newImg = "" If rs("InputDay") > NewDate Then newImg = "new" End If %> <% If LenB(rs("title")) > 80 Then title = LeftB(rs("title"),78) & ".." Else title = rs("title") End If %> <% i = i + 1 rs.movenext Loop End If rs.close sql = "select top " & nPageSize & " * from t_outer_notice where seq not in(select top " & (nPage-1)*nPageSize & " seq from t_outer_notice" If whereSql <> "" Then sql = sql & " where " & whereSql End If sql = sql & " order by seq desc)" If whereSql <> "" Then sql = sql & " and " & whereSql End If sql = sql & " order by seq desc" 'response.write sql rs.open sql,oDBCon,1 i = 1 NewDate = Date NewDate = DateAdd("y", -2, NewDate) ' 2일 이내 New If Not rs.eof Then Do Until rs.eof num = nTotal-((nPage-1)*nPageSize) - i + 1 If int(num) < 1 then strSeq = "" Else strSeq = num End If newImg = "" If rs("InputDay") > NewDate Then newImg = "new" End If %> <% If LenB(rs("title")) > 80 Then title = LeftB(rs("title"),78) & ".." Else title = rs("title") End If %> <% i = i + 1 rs.movenext Loop End If rs.close %>
번호 제목 등록일 조회수
<%=strSeq%>"><%=title%> <%=Left(rs("inputday"),10)%> <%=FormatNumber(rs("readCnt"),0)%>
<%=strSeq%><%=newImg%>"><%=title%> <%=Left(rs("inputday"),10)%> <%=FormatNumber(rs("readCnt"),0)%>
<%If sPrev10Page <> "" Then %> <%End If %> <%If sPrevPage <> "" Then %> <%End If %> <%For i=1 To uBound(arPage,1)%> <%If arPage(i,0) = "" Then Exit For %> <%If arPage(i,0) = cint(nPage) Then%> <%=arPage(i,0)%> <%Else%> <%=arPage(i,0)%> <%End If%> <%=arPage(i,2)%> <%Next %> <%If sNextPage <> "" Then %> <%End If %> <%If sNext10Page <> "" Then %> <%End If %>