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