<% if cint(ls_pop_yn) > 0 then %> <% else %> <% end if %>
<% ''로그인을 하지 않았을 경우 if gl_memb_no = "" then %> <% else %> <% end if %>

함평다이너스티CC

전남 함평군 학교면 곡창리 산1-6 Tel.0803207700 Fax.0613207710
<% '팝업 내용여부 qry = " select count(*) from hp_newsboard " qry = qry & " where nvl(b_recom,0) = 1 " set rs = server.createobject("adodb.recordset") rs.open qry, db ls_pop_yn = rs.fields(0) rs.close %> <% QRY = "SELECT " QRY = QRY & " B_BOARD_IDX, " QRY = QRY & " B_MEMB, " QRY = QRY & " SUBSTRB(DECRYPT(NVL(B_NAME,CHR(1))),1,20) B_NAME, " QRY = QRY & " B_SUBJECT, " QRY = QRY & " B_CONTENT, " QRY = QRY & " B_WRITEDAY, " QRY = QRY & " B_VISIT, " QRY = QRY & " B_DEL, " QRY = QRY & " B_RECOM, " QRY = QRY & " B_PWD, " QRY = QRY & " B_NUM, " QRY = QRY & " B_EMAIL, " QRY = QRY & " B_TAG, " QRY = QRY & " B_REF, " QRY = QRY & " B_RE_STEP, " QRY = QRY & " B_RE_LEVEL, " QRY = QRY & " B_DELETE " QRY = QRY & "FROM HP_NEWSBOARD A " QRY = QRY & " WHERE B_REF >= 0 AND B_DELETE IS NULL " QRY = QRY & " ORDER BY B_REF DESC, B_RE_STEP " Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = 2 rs.Open QRY, db, 1 '제목길이줄임 Function getString(str, strlen) dim rValue dim nLength nLength = 0.00 rValue = "" for f = 1 to len(str) tmpStr = MID(str,f,1) tmpLen = ASC(tmpStr) if (tmpLen < 0) then ' 한글 nLength = nLength + 2 rValue = rValue & tmpStr else ' 그외 키값 nLength = nLength + 1 rValue = rValue & tmpStr end if if (nLength > strlen) then rValue = rValue & ".." exit for end if next getString = rValue End Function if rs.BOF or rs.EOF then response.write "
등록된 글이 없습니다.
" else i = 1 do until rs.eof or i > rs.PageSize %>
  • "><%=getString(rs("b_subject"),30)%>  <%=mid(rs("b_writeday"),1,4) & ". " & mid(rs("b_writeday"),5,2) & ". " & mid(rs("b_writeday"),7,2)%>
  • <% rs.movenext i = i + 1 loop end if rs.close Set rs=Nothing %>