<% response.expires = 0 %> <% page=sqlCheck(request("page")) such_c = sqlCheck(request("such_c")) such_v = sqlCheck(request("such_v")) cap=sqlCheck(request("cap")) cap1=sqlCheck(request("cap1")) cap2=sqlCheck(request("cap2")) if sqlCheck(request("page"))="" then page=1 end if 'sql = "select distinct basket_id money_plane from buying where "&such_c&" like '%"&such_v&"%' order by basket_id desc" if such_c <> "" and such_v <> "" then 'sql="select * from membership where "&such_c&" like '%"&such_v&"%' order by num desc" sql="select distinct work from membership where "&such_c&" like '%"&such_v&"%' and work !='' order by work asc" else if cap <> "" and cap1 <> "" then 'sql="select * from membership where "&cap&" like '%"&cap1&"%' order by num desc" sql="select distinct work from membership where "&cap&" like '%"&cap1&"%' and work !='' order by work asc" else 'sql="select * from membership order by work asc" sql="select distinct work from membership where work !=''order by work asc" 'sql="select max(sno),work from membership group by work" 'select distinct aaa, bbb from TABLE group by aaa
end if end if set rs=server.CreateObject ("adodb.recordset") rs.PageSize = 10 rs.Open sql,conn,1 %> <%=happyjung_title%> > µ¿¹®Ã£±â > µ¿¹®º´¿ø
 
Pages : 1/15   ¿Ã¶ó¿Â±Û : 150
<% if rs.BOF or rs.EOF then %> <% else totalrecord=rs.RecordCount totalpage=rs.PageCount rs.AbsolutePage = page i=1 do until rs.EOF or i>rs.PageSize if cap <> "" and cap1 <> "" then sql2="select * from membership where work = '"&rs("work")&"' and (addr like '%"&cap1&"%' or area = '"&cap1&"') order by work asc" elseif such_c <> "" and such_v <> "" then sql2="select * from membership where work = '"&rs("work")&"' and (addr like '%"&such_v&"%' or work like '%"&such_v&"%') order by work asc" else sql2="select * from membership where work = '"&rs("work")&"' order by num asc" end if set rs2=server.CreateObject ("adodb.recordset") rs2.Open sql2,conn,1 'Response.Write sql2 %> <% rs.MoveNext i=i+1 loop end if %>
º´¿ø¸í ÁÖ¼Ò
µî·ÏµÈ ÀÚ·á°¡ ¾ø½À´Ï´Ù.
&work=<%=rs2("work")%>&addr=<%=left(rs2("addr"),5)%>"><%=rs2("work")%> <%=rs2("addr")%>  <% if len(rs2("addr")) < 12 then %> <%=rs2("addr2")%> <% end if %>
<% ' ¸ÇóÀ½ ÆäÀÌÁö if page > 1 then Response.Write("") else Response.Write("") end if ' ÀÌÀü 10 ÆäÀÌÁö blockPage = int((page-1)/10)*10+1 if blockPage = 1 then ' ÆäÀÌÁö ¸ñ·ÏÀÌ 10°³ ÀÌÇÏÀÎ °æ¿ì ÀÌÀü 10 ÆäÀÌÁö ¹öÆ° °¨Ãã 'Response.Write("") else Response.Write ("") end if ' ÇöÀç ÆäÀÌÁö ¸®½ºÆ® i=1 Do until i > 10 or blockPage > totalpage if blockPage = int(page) then ' ÇöÀç (¼±ÅÃ)ÆäÀÌÁö Response.Write (" "& blockPage &" ") else ' ¼±ÅõÇÁö ¾ÊÀº ÆäÀÌÁö ¸ñ·Ï Response.Write (" "& blockPage &" ") end if blockPage = blockPage + 1 i = i +1 loop ' ´ÙÀ½ 10 ÆäÀÌÁö if blockPage > totalpage Then ' ÆäÀÌÁö ¸ñ·ÏÀÌ 10°³ ÀÌÇÏÀÎ °æ¿ì ´ÙÀ½ 10 ÆäÀÌÁö ¹öÆ° °¨Ãã 'Response.Write("") else Response.Write("") end If ' ¸Ç¸¶Áö¸· ÆäÀÌÁö if Cint(page) < Cint(totalpage) Then Response.Write("") else Response.Write("") end if %>
 
     
<% rs.Close Set rs = nothing conn.Close Set conn = nothing %>