<% if keyword = "" then sql = "select count(*),max(gb_no) from TB_GIBO where gb_div=3 " else if key = "2" then sql = "select count(*),max(gb_no) from TB_GIBO where gb_div=3 and gb_evname like '%"&keyword&"%'" else key = "1" sql = "select count(*),max(gb_no) from TB_GIBO where gb_div=3 and gb_bgname like '%"&keyword&"%' or gb_wgname like '%"&keyword&"%'" end if end if 'response.write sql Set Cmd = Server.CreateObject("ADODB.Command") Cmd.ActiveConnection = ConnOleN Cmd.CommandText = sql Cmd.CommandType = adCmdText Set rs = Cmd.Execute 'response.write rs(0) total_cnt=rs(0) if total_cnt<=0 then total_page=1 else total_page=(Int((total_cnt-1)/listcnt)+1) end if if cur_page > total_page then cur_page=total_page elseif cur_page < 1 then cur_page=1 end if ' ============================== BEGIN DATA LIST ========================================= if keyword = "" then sql = "select * from TB_GIBO where gb_div=3 order by "&ord_sql 'gb_date desc" else if key = "2" then sql = "select * from TB_GIBO where gb_div=3 and gb_evname like '%"&keyword&"%' order by "&ord_sql 'gb_date desc" else sql = "select * from TB_GIBO where gb_div=3 and gb_bgname like '%"&keyword&"%' or gb_wgname like '%"&keyword&"%' order by "&ord_sql 'gb_date desc" end if end if Cmd.CommandText = sql Cmd.CommandType = adCmdText i=0 Set rs = Cmd.Execute data_cnt=0 if not rs.eof then do while (not rs.eof and (data_cnt < (cur_page-1)*listcnt)) data_cnt=data_cnt+1 rs.movenext loop do while not rs.eof and i < listcnt gibonum = rs("gb_no") gibo = rs("gb_gibo") dir = rs("gb_gibo_dir") if not(dir="") then dir = dir & "/" end if file = dir & gibo gb_no=rs("gb_no") gb_date=rs("gb_date") gb_bgname=rs("gb_bgname") gb_wgname=rs("gb_wgname") gb_update=rs("gb_update") img_new="" ud_title="" if gb_update <> "" and not isnull(gb_update) then if CDbl(gb_update)>=CDbl(yesterday) then img_new="

" end if ud_title="Updated : "&left(gb_update,4)&"/"&mid(gb_update,5,2)&"/"&mid(gb_update,7,2)&" " end if ud_info=rs("gb_game_info") ud_info = fnCutString(ud_info,"..",27) %> <% i=i+1 rs.movenext loop checkcnt=i else i=0 do while i < listcnt %> <% i=i+1 loop checkcnt=0 end if %>

Date

Black

White

Game

Result

<%=left(gb_date,4)&"."&mid(gb_date,5,2)&"."&mid(gb_date,7,2)%>

<%=gb_bgname%>

<%=gb_wgname%>

<%if dir="eng/" then%> <%=ud_info%><%=img_new%> <%else%> <%=ud_info%><%=img_new%> <%end if%>

<%=rs("gb_result")%>

<% if i=0 then %>No Data Found... <% end if %>

<% '--------------------- Page List Begin ------------------------------- i=0 j=0 'response.write "cur_page = "&cur_page&" i = "&i&" t = "&CInt((total_page-1)/10)&"
" i=(cur_page-1)/10 i=Int(i) 'if ((cur_page-1)/10) > (cur_page-1)/2 then ' i=i-1 'end if 'response.write "cur_page = "&cur_page&" i = "&i&" t = "&CInt((total_page-1)/10)&"
" if i=0 then %>

pre <% else %>

pre <% end if for k=((i*10)+1) to cur_page if k=cur_page then %> <%=k%> <%if k=total_page then%><%else%>|<%end if%> <% else %> <%=k%> <%if k=total_page then%><%else%>|<%end if%> <% end if next for k=cur_page+1 to (i+1)*10 if k <= total_page then %> <%=k%> <%if k=total_page then%><%else%>|<%end if%> <% else %> <% end if next if i=Int((total_page-1)/10) then %> next

<% else %> next

<% end if %>