<% Response.Expires = -1 %> <% Dim pageSize, blockSize, page, pgName, column, textfield Dim pageCount, recordCount pageSize = 10 blockSize = 10 pgName = "notice_list.html" page = Request("page") IF page = "" THEN page = 1 With cmd .CommandText = "pro_notice_list" .Parameters.Append .CreateParameter("@page",adInteger,adParamInput,,page) .Parameters.Append .CreateParameter("@pageSize",adInteger,adParamInput,,pageSize) .Parameters.Append .CreateParameter("@ln",adVarChar,adParamInput,1,1) .Parameters.Append .CreateParameter("@recordCount",adInteger,adParamOutput,,0) .Parameters.Append .CreateParameter("@pageCount",adInteger,adParamOutput,,0) .Parameters.Append .CreateParameter("@return",adChar,adParamOutput,1,NULL) .Execute rtn = .Parameters("@return").Value recordCount = .Parameters("@recordCount").Value pageCount = .Parameters("@pageCount").Value Set Rs = .Execute End With cmd_off %> 현대해운
<% If recordCount > 0 Then %> <% Else %> <% End If %>
현재 <%=page%>페이지 / <%=pageCount%>페이지 
<% If Rs.Eof Then %> <% Else Dim recNo, goURL, cnt, bgcolor Dim idx, name, subject, hit, wdate recNo = (pageSize + recordCount) - (page * pageSize) + 1 cnt = 20 Do Until Rs.EOF recNo = recNo - 1 idx = Rs("idx") name = Rs("name") subject = Rs("subject") subject = Tag2Text(subject) hit = Rs("hit") wdate = Rs("wdate") wdate = Replace(Left(wdate, 10), "-", "/") goURL = "page=" & page & "&idx=" & idx IF cnt mod 2 = 0 THEN bgcolor="#FFFFFF" ELSE bgcolor="#F6F6F6" %> <% cnt = cnt-1 Rs.MoveNext Loop End If %>
번호 제목 작성자 날짜 조회
등록된 글이 없습니다
<%=recNo%> <%=subject%> <%=name%> <%=wdate%> <%=hit%>
<%IF recordCount > 0 THEN Call gotoPageOnSearch1(pgName, page, pageCount)%>