%
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 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 "