<% nsw=1024 '預設螢幕解析度 select case n_w case 1 ' n_f=7 nsw2=nsw*1.2 case 2 ' n_f=6 nsw2=nsw end select p_name=rs("name") if rs("e_id")<4 then if inStr(a_group(n_g),"團")>0 and rs("c_sign" & rs("e_id") & "_c")<>"" then '團體項目設定單項未出賽者 p_name=Replace(p_name,rs("c_sign" & rs("e_id") & "_c"),"") end if end if '標題顯示設定 c_s_title="" & c_title & "" if l_hid_title then c_s_title="" end if '內容字串 c_txt="" if l_show_txt then '顯示字串供轉播單位用 c_txt=c_txt & a_event( a_event_n(rs("g_id")) , rs("e_id") ) & "," c_txt=c_txt & a_group(rs("g_id")) & "," c_txt=c_txt & Convert_ASCII_Unicode(p_name) & "," c_txt=c_txt & a_country(rs("c_id")) & "," c_txt=c_txt & FormatNumber(nz(rs("total")),3) & "," c_txt=c_txt & rrp2(rs("scb")) & "," c_txt=c_txt & rrp2(rs("sum")) & "," c_txt=c_txt & rp3(rs("scer")) & "," c_txt=c_txt & rs("note") & rs("note_1") c_txt1="" c_txt1=c_txt1 & a_event( a_event_n(rs("g_id")) , rs("e_id") ) & "
" c_txt1=c_txt1 & a_group(rs("g_id")) & "
" c_txt1=c_txt1 & rs("n_id") & "
" c_txt1=c_txt1 & Convert_ASCII_Unicode(p_name) & "
" c_txt1=c_txt1 & a_country(rs("c_id")) & "
" c_txt1=c_txt1 & FormatNumber(nz(rs("total")),3) & "
" c_txt1=c_txt1 & rrp2(rs("scb")) & "
" c_txt1=c_txt1 & rrp2(rs("sum")) & "
" c_txt1=c_txt1 & rp3(rs("scer")) & "
" c_txt1=c_txt1 & rs("note") & rs("note_1") end if %>

<%=c_src%><%=c_s_title%>
<% set fs = CreateObject("Scripting.FileSystemObject") src_file="images/" & a_event( a_event_n(rs("g_id")) , rs("e_id") ) & ".gif" realpath = server.mappath(src_file) if fs.FileExists(realpath) then %> <% end if %> <%=a_event( a_event_n(rs("g_id")) , rs("e_id") )%>	<%=a_group(rs("g_id"))%>
<% n_name_fs=nsw/15 if len(p_name)>8 then n_name_fs=nsw/25 end if %> 　<%=rs("n_id")%> 　<%=Convert_ASCII_Unicode(p_name)%> 　　 <% set fs = CreateObject("Scripting.FileSystemObject") src_file="images/" & a_country_f(rs("c_id")) & ".gif" realpath = server.mappath(src_file) if fs.FileExists(realpath) then %> <% end if %> <% n_name_fs=nsw/15 if len(a_country(rs("c_id")))>14 then n_name_fs=nsw/20 end if if len(a_country(rs("c_id")))>25 then n_name_fs=nsw/35 end if %> <%=a_country(rs("c_id"))%>
<% set fs = CreateObject("Scripting.FileSystemObject") src_file="sign_file/" & rs("g_id") & "_" & rs("id") & "_" & rs("upfiles") realpath = server.mappath(src_file) if fs.FileExists(realpath) then %> <% end if %> TOTAL <%=FormatNumber(nz(rs("total")),3)%>

D

<%=rp2(rs("scb"))%>

DB <%=rp2(rs("sc1"))%> DA <%=rp2(rs("sc2"))%>

A

<%=rrp2(rs("sca_2"))%>

E

<%=rrp2(rs("sca_1"))%>

PEN

<%=rp3(rs("scer"))%> <%=rs("note")%><%=rs("note_1")%>

<%=c_txt%>
<% rs.close() function rp2(n) '成績細 E 分 有 if(n=0 or isnull(n))then rp2="" else rp2=FormatNumber(n,1) '有氧給分至2位 韻律給分至1位 end if end function function rrp2(n) if(n=0 or isnull(n)) then rrp2="" else rrp2=FormatNumber(n,3) end if end function function rp3(n) if(n=0 or isnull(n)) then rp3="" else spnsw=nsw2/30 rp3=FormatNumber(n,2) '' rp3="" & n1 & "" end if end function %>