<% function CutString(strContent, intMax) dim strTemp strTemp = strContent if len(strTemp) > intMax then strTemp = left(strTemp, intMax) & "..." end if CutString = strTemp end function If boardKind = "" Then boardKind = "N" End If If PositionName = "" Then PositionName = "공지사항" End if ' 현재 페이지 변수 if Request("page") = "" then page = 1 else page = Request("page") end if ' 페이지당 보여지는 레코드 수 nSize = 10 sql = " select boardSeq, boardWriter, boardTitle, Content, viewCnt, regDate, ref " sql = sql & " from Board Where boardKind = 'N' Order by ref DESC " SET rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, dbCon, 1 %> ::디에스내과전문병원::
<% If rs.eof Then response.write "" response.write "" %> <% Else i = 1 For iLoop = 1 To nSize boardSeq = rs("boardSeq") boardTitle = rs("boardTitle") boardWriter = rs("boardWriter") Content = rs("Content") regDate = left(rs("regDate"), 10) viewCnt = rs("viewCnt") ref = rs("ref") mrnum = (page - 1) * rs.PageSize + i - 1 num = totRec - mrnum %> <% i = i + 1 rs.movenext If rs.EOF Then Exit For Next End If rs.close SET rs = Nothing %>
등록된 내용이 없습니다
<%=CutString(boardTitle, 20)%> <%=regDate%>