<% s_num = inputValue(Request("s_num")) v_page = inputValue(Request("p_page")) v_search = inputValue(Request("p_search")) v_keyword = inputValue(Request("p_keyword")) sorder = inputValue(Request("sorder")) page_info = "p_page="&v_page&"&p_block="&v_block&"&p_search="&v_search&"&p_keyword="&v_keyword s_type = Trim(inputValue( Request("s_type") )) If s_type = "" Then s_type = "S" If s_type = "S" Then pageTitle = "이모티콘" Else pageTitle = "메세지" End if if sorder = "" then sorder = "e_idx desc" end if if s_num <> "" then opt = "and s_num="&s_num else opt = "and s_num <> 9" end if 'response.write Len(s_num) If s_type = "S" then v_pagesize = 4 '--리스트 화면에 보여줄 갯수 Else v_pagesize = 2 '--리스트 화면에 보여줄 갯수 End If v_block = 10 '--페이징 갯수 length = 30 '--내용 길이 If Len(v_page) = 0 Then v_page = 1 End If if (trim(Request("p_keyword")) <> "") and (Request("p_search") <> "") Then '검색어가 있다면 search_str = " and "& v_search &" like '%"& Replace(v_keyword,"'","''")&"%'" end if If s_num = "9" Then SQL_T = "Select Count(*),CEILING(CAST(Count(*) AS FLOAT)/" & v_pagesize & ") " &_ " from emt where m_id='"&session("ss_m_id")&"' and s_type <> 'V' "&opt SQL_T = SQL_T & search_str else SQL_T = "Select Count(*),CEILING(CAST(Count(*) AS FLOAT)/" & v_pagesize & ") " &_ " from emt where m_id is not null and s_type <> 'V' "&opt SQL_T = SQL_T & search_str End if 'response.write SQL_T Set Rs_Tot = Dbcon.execute(SQL_T) v_total = Rs_Tot(0) v_totalpage = Rs_Tot(1) If s_num = "9" Then strSQL = "SELECT Top "& (v_page*v_pagesize) & " * " &_ " FROM emt where m_id='"&session("ss_m_id")&"' and s_type <> 'V' "&opt strSQL = strSQL & search_str & " order by "& sorder Else strSQL = "SELECT Top "& (v_page*v_pagesize) & " * " &_ " FROM emt where m_id is not null and s_type <> 'V' "&opt strSQL = strSQL & search_str & " order by "& sorder End if Set Rs_L = DbCon.Execute(strSQL) 'response.write strSQL %> 최신문자
<% SQL = "SELECT * FROM emt_category WHERE s_chk='Y' or s_chk = 'S' order by s_code asc" set rs_cate = dbcon.execute(SQL) i = 1 DO while not rs_cate.EOF if trim(s_num) = trim(rs_cate("s_num")) then s_menuname_str = rs_cate("s_menuname") else s_menuname_str = "" & rs_cate("s_menuname") & "" end if %> <% rs_cate.MoveNext i= i+1 Loop Set rs_cate = nothing %>
<%if s_num = "" Then %> 전체 <%else%> 전체 <%End if%>
"><%=s_menuname_str%>
<% If v_totalpage > 0 Then '------ 내용이 있으면 리스트 출력 Rs_L.Move (v_page - 1) * v_pagesize if v_page = 1 then num = v_total else num = v_total - ((v_page - 1) * v_pagesize) end if '-------------------- 리스트 반복 시작 -------------------- z = 0 DO while not Rs_L.EOF If z > 0 And z Mod 4 = 0 Then Response.write "" %> <% Rs_L.MoveNext z= z+1 Loop end if %>

<%=rs_l("e_subject")%>

<%page2("m_emoticon.asp?s_num="&s_num)%>