<%@Language="VBScript" CODEPAGE="65001" %> <% Response.CharSet="utf-8" Session.codepage="65001" Response.codepage="65001" Response.ContentType="text/html;charset=utf-8" %> <% DbConn(dbString) DIM int_BoardGubn, int_PageSize, int_Page, int_Total, str_SearchTitle, k, l, int_PageCount DIM int_SearchKey, selfpage, str_GubnImg DIM oCmd int_BoardGubn = 1'공지사항 IF int_BoardGubn = "" THEN int_BoardGubn = 1 END IF str_SearchTitle = "" str_SearchTitle = TRIM(Request("SEARCH_TITLE")) int_Page = TRIM(Request("PAGENO")) IF int_Page = "" THEN int_Page = 1 END IF int_SearchKey = TRIM(Request("SEARCH_KEY")) IF int_SearchKey = "" THEN int_SearchKey = 0 END IF %> 양철우과학장학재단
공지사항
NOTICE
<% IF Session("CWY_ID") = "admin" THEN %> [등록] <% else %> [로그인] <% end if %>
<% int_PageSize = 10 Set oCmd = Server.CreateObject("ADODB.Command") Set oRs = server.CreateObject("ADODB.Recordset") WITH oCmd .ActiveConnection = conn .CommandText = "xsp_cwy_brd_list_noti" .CommandType = adCmdStoredProc .Parameters("@STATUS") = "LIST" .Parameters("@CODE") = 0 .Parameters("@GUBN") = int_BoardGubn .Parameters("@SEARCH_KEY") = int_SearchKey .Parameters("@PAGESIZE") = int_PageSize .Parameters("@GOTOPAGE") = int_Page .Parameters("@SEARCH_TITLE") = str_SearchTitle oRs.CursorLocation = 3 oRs.Open oCmd,,adOpenForwardOnly,adLockReadOnly int_Total = .Parameters("@TOTAL") '--outupt param End with int_PageCount = Int((int_Total - 1) / 10) + 1 IF int_Total = 0 Then %> <% Else i = 0 Do While not oRs.Eof i = i+1 %> <% oRs.Movenext Loop End IF oRs.Close() Set oRs = Nothing %>
번호제목날짜조회수
1현재 등록된 내용이 없습니다.
<%IF int_Page = 1 THEN%><%=((int_Total+1)-i)%><%ELSE%><%=(int_Total+1)-(10*(int_Page-1)+i)%><%END IF%> &GUBN=<%=int_BoardGubn%>&PAGENO=<%=int_Page%>&SEARCH_TITLE=<%=str_SearchTitle%>&SEARCH_KEY=<%=int_SearchKey%>"><%IF len(oRs("Title")) > 20 THEN%><%=left(oRs("Title"),20)%>...<%ELSE%><%=oRs("Title")%><%END IF%> <%=left(oRs("Insert_date"),10)%> <%=oRs("read_cnt")%>
<%IF int_Total = 0 THEN%> 1 <% ELSE If int_Page > 10 Then k = int_Page - 1 k = left(k,1)*10+1 l = k+9 IF l > int_PageCount THEN l = int_PageCount END IF Else k = 1 l = k+9 End If ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Do Until k > int_PageCount Or k > l If k < 10 Then k = k Else k = k End If %>  <%If int(int_Page) = int(k) Then%><%=k%><%Else%><%=k%><%End If%> <% k = k + 1 Loop END IF %>