2019 함박웃는아이 선발대회

<% Function FncSelected(val1, val2) result = "" IF val1 = val2 Then result = "selected" End If FncSelected = result End Function Function FncDigit(length, val) FncDigit = Right("0000000000" & val, length) End Function Function FncIIf(bClause, sTrue, sFalse) If CBool(bClause) Then FncIIf = sTrue Else FncIIf = sFalse End If End Function Function FncIsNull(pValue, pDefault) If IsNull(pValue) Or IsEmpty(pValue) Then FncIsNull = pDefault Else FncIsNull = pValue End If End Function %> <% STP = InjRequest("STP") SKW = InjRequest("SKW") Detail = "STP=" & STP & "&SKW=" & SKW Where = "" If Not FncIsBlank(STP) Then If STP = "id" Then Where = Where & " AND M_ID='"& SKW &"'" ElseIf STP = "name" Then Where = Where & " AND COL_01='"& SKW &"'" ElseIf STP = "title" Then Where = Where & " AND instr(COL_06, '"& SKW &"') > 0" ElseIf STP = "content" Then Where = Where & " AND dbms_lob.instr(USER_ANSWER, '"& SKW &"' ) > 0" End If End If '페이징용 page = InjRequest("page") If page = "" Then page = 1 recordCountPerPage = 12 pageCountPerScreen = 10 totalRecordCount = 0 totalListCount = 0 FRNUM = ((page-1) * recordCountPerPage ) + 1 LRNUM = page * recordCountPerPage Sql = "SELECT COUNT(*) AS CNT FROM T_HAM_EVENT_USER WHERE EVENT_IDX=46" Set RsCNT = conn.Execute(Sql) totalRecordCount = Cint(RsCnt("CNT")) Sql = "SELECT COUNT(*) AS CNT FROM T_HAM_EVENT_USER WHERE EVENT_IDX=46" & Where Set RsListCNT = conn.Execute(Sql) totalListCount = Cint(RsListCNT("CNT")) Sql = "SELECT * FROM (SELECT ROWNUM AS RNUM, T1.* FROM (" Sql = Sql & "SELECT * FROM T_HAM_EVENT_USER WHERE EVENT_IDX=46" & Where Sql = Sql & " ORDER BY IDX DESC " Sql = Sql & ") T1 ) WHERE RNUM BETWEEN "& FRNUM &" AND "& LRNUM &" " Set Rlist = conn.Execute(Sql) %> 2019 함박웃는아이 선발대회

▶ 참가 현황현재 <%=FormatNumber(totalRecordCount, 0)%>명 참여 중

<% If Not Rlist.Eof Then i = 0 Do While Not Rlist.Eof IDX = Rlist("IDX") COL_06 = Rlist("COL_06") COL_09 = Rlist("COL_09") COL_01 = Rlist("COL_01") M_ID = Rlist("M_ID") REG_DATE = replace(RIGHT(LEFT(Rlist("REG_DATE"),10),5),"-",".") DEVICE_TYPE = Rlist("DEVICE_TYPE") img_url = "http://www.hamsoa.com" If DEVICE_TYPE = "M" Then img_url = "http://m.hamsoa.com" M_ID = Left(M_ID, LEN(M_ID)-3) & "***" %>

<%=COL_06%>

<%=M_ID%><%=REG_DATE%>

<% Rlist.MoveNext i = i + 1 Loop Else %>

등록된 게시물이 없습니다. <% End If %>

<% total_page = Ceil(CDbl(totalListCount) / CDbl(recordCountPerPage)) total_block = Ceil(total_page / pageCountPerScreen) block = Ceil(page / pageCountPerScreen) first_page = (block-1) * pageCountPerScreen + 1 last_page = block * pageCountPerScreen if(total_block <= block) Then last_page = total_page %> << <% if(block > 1) Then my_page = first_page -1 %> < <% Else %> < <% End If %> <% For direct_page = first_page To last_page If ""&page = ""&direct_page Then %> <%=direct_page%> <% else %> <%=direct_page%> <% End If Next %> <% if(block < total_block) Then my_page = last_page+1 %> > <% Else %> > <% End If if(total_page = 0) Then total_page = 1 %> >>

<% conn.close() Set conn = Nothing %>