<% response.expires = 0 %> <% page = sqlCheck(request("page")) such_c = sqlCheck(request("such_c")) such_v = sqlCheck(request("such_v")) such_v2 = sqlCheck(request("such_v2")) such_v3 = sqlCheck(request("such_v3")) if sqlCheck(request("page"))="" then page=1 end if if such_v3 <> "" then orderby = " order by " &such_v3&" asc" else orderby = " order by sno asc" end if '###########gubun ºÐ·ù°Ë»ö################# if such_c <> "" and (such_v <> "" or such_v2 <> "") then if such_c = "gubun" then sql="select * from membership where " &such_c& " like '%"&such_v2&"%' " & orderby elseif such_c = "homeAddr" then sql="select * from membership where homeAddr like '%"&such_v&"%' or homeAddr2 like '%"&such_v&"%' " & orderby else sql="select * from membership where "&such_c&" like '%"&such_v&"%' " & orderby end if else sql="select * from membership " & orderby end if 'response.write sql set rs=server.CreateObject ("adodb.recordset") rs.PageSize = 20 rs.Open sql,conn,1 %> <%=happyjung_title%> > µ¿¹®Ã£±â > ÁÖ¼Ò·Ï
<% 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 %> <% rs.MoveNext i=i+1 loop end if %>
¼º¸í ±â¼ö ±¸ºÐ °¡ÀÔ¿¬µµ Á÷Àå Á÷ÀåÀüÈ­ e-mail
°Ë»ö¿¡ ¸Â´Â ȸ¿øÀÌ ¾ø½À´Ï´Ù.
"><%=rs("name")%> <%=rs("hoisu")%>   <% if rs("gubun2") <> "" then response.write rs("gubun2") else if len(rs("gubun")) > 4 then 'Response.Write left(rs("gubun"),4) & ".." else 'Response.Write rs("gubun") end if end if %> <%=rs("doctoryear")%>  <%if len(rs("work")) > 7 then Response.Write left(rs("work"),7) & ".." else Response.Write rs("work") end if%> <%=rs("tel")%> "><%=rs("email")%>
<% ' ¸ÇóÀ½ ÆäÀÌÁö 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 %>
        <% if such_c <> "" then %> List <% end if %>
<% rs.Close Set rs = nothing conn.Close Set conn = nothing %>