<% Response.Expires = -1 %> <% Dim pgName, pageSize, blockSize Dim ln, page, column, textfield Dim pageCount, recordCount pgName = "qna_list.html" pageSize = 15 '페이지 사이즈 blockSize = 10 '블럭 사이즈 page = Request("page") IF page = "" THEN page = 1 If Trim(Request("textfield")) <> "" Then textfield = Trim(Request("textfield")) column = Trim(Request("column")) End If With cmd .CommandText = "pro_qna_list" .Parameters.Append .CreateParameter("@page",adInteger,adParamInput,,page) .Parameters.Append .CreateParameter("@pageSize",adInteger,adParamInput,,pageSize) .Parameters.Append .CreateParameter("@column",adVarChar,adParamInput,10,column) .Parameters.Append .CreateParameter("@textfield",adVarChar,adParamInput,30,textfield) .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%>페이지 
<% Dim idx, name, subject, hit, re_level, wdate Dim noContent, recNo, temp, i, goURL, cnt, bgcolor If Rs.Eof Then If textfield <> "" Then noContent = "검색된 글이 없습니다" Else noContent = "등록된 글이 없습니다" End If %> <% Else recNo = (pageSize + recordCount) - (page * pageSize) + 1 cnt = 20 Do Until Rs.EOF recNo = recNo - 1 temp = "" idx = Rs("idx") name = Rs("name") subject = Rs("subject") subject = Tag2Text(subject) hit = Rs("hit") re_level = Rs("re_level") wdate = Rs("wdate") wdate = Replace(Left(wdate, 10), "-", "/") If re_level <> 0 Then For i = 1 To re_level temp = temp & "     " Next temp = temp & "[Re] " End If goURL = "page=" & page & "&idx=" & idx IF textfield <> "" THEN goURL = goURL & "&column=" & column & "&textfield=" & textfield IF cnt mod 2 = 0 THEN bgcolor="#FFFFFF" ELSE bgcolor="#F6F6F6" %> <% cnt = cnt-1 Rs.MoveNext Loop End If %>
번호 제목 작성자 날짜 조회
<%=noContent%>
<%=recNo%> <%=temp%><%=subject%> <%=name%> <%=wdate%> <%=hit%>
<%IF recordCount > 0 THEN Call gotoPageOnSearch1(pgName, page, pageCount)%>