<% if ev_div="" then ev_div="3" end if %> <% m1=1 key = trim(Request("key")) keyword = trim(Request("keyword")) ord = Request("ord") listcnt = 15 ord="2" if ord="" then ord="1" elseif Cint(ord) >2 then ord="1" end if if ord="1" then ord_date="1" ord_update="2" ord_sql=" gb_update desc ,gb_date desc" else ord_date="2" ord_update="1" ord_sql=" gb_date desc " end if cur_page=request("cur_page") if cur_page="" then cur_page=1 else cur_page=CInt(cur_page) end if uid=request.cookies("CyberOroIds") today=date today_now=mid(replace(today,"-",""),1,8) yesterday=mid(replace(dateadd("d",-1,date),"-",""),1,8) %>
Game Appreciation
   
<% 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 %>
<% Function fnCutString(str1, str2, cutLen) Dim strLen Dim strByte Dim strCut Dim strRes Dim char Dim i strLen = 0 strByte = 0 strLen = Len(str1) If str1 = "" Or IsNull(str1) Then strLen = 0 For i = 1 to strLen char = "" strCut = Mid(str1, i, 1) char = Asc(strCut) char = Left(char, 1) If char = "-" Then strByte = strByte + 2 Else strByte = strByte + 1 End If If cutLen < strByte Then strRes = strRes & str2 Exit For Else strRes = strRes & strCut End If Next fnCutString = strRes End Function %>