<% dim a_bgc(6) a_bgc(1)="#ccFFcc" a_bgc(2)="" a_bgc(3)="#ccFFcc" a_bgc(4)="" a_bgc(5)="#ccFFcc" a_bgc(6)="" if n_w=4 then a_bgc(4)="#ccFFcc" a_bgc(3)="" end if '這是同時展示6個分數時的小視窗，應用在全國賽等 for i_e= 1 to n_w c_sql=" and a.g_id= " & n_g & " and a.e_id= " & i_e & " " strSQL = "SELECT a.*,b.name,b.c_id,b.n_id,b.upfiles ,b.c_sign1_c,b.c_sign2_c,b.c_sign3_c FROM inpsco a,work_i b where a.id=b.id " & c_sql & " and a.work=" & n_work & " ORDER BY a.input_time desc " Set rs = Server.CreateObject("ADODB.Recordset") '建立Recordset物件 rs.Open strSQL, conn '執行SQL敘述, 並開啟記錄集 if Not rs.EOF then p_name=rs("name") %> <% end if rs.close() if i_e=(n_w/2) then %> <% end if next %>

<%=a_event( a_event_n(rs("g_id")) , rs("e_id") )%>　 <%=Convert_ASCII_Unicode(p_name)%>　 <%=a_country(rs("c_id"))%>　 D分 得分 <%=sp1(rs("scaA"))%> <% if rs("scer")>0 then %> -<%=sp2(rs("scer"))%> <%=rs("note")%> <% end if %> <%=FormatNumber(nz(rs("total")),3)%> <%=sp1(rs("sca_1A"))%> <% if rs("scer_1")>0 then %> -<%=sp2(rs("scer_1"))%> <%=rs("note_1")%> <% end if %>

<% ' 分數為空白時改為0 function nz(n) if (isnull(n) or n="" or n="NaN") then nz=0 else nz=n end if end function %>