<% 'if page="" then page=1 page=int(Request("Page")) %> <% sql5="select * from webset" set rs5=conn.execute(sql5) redim webset(1,6) webset(0,0)=rs5("webname")'站台名稱 webset(0,6)=rs5("website")'站台網址 for i = 1 to 5 webset(0,i)=rs5("name"&i)'連結名稱 webset(1,i)=rs5("link"&i)'連結網址 next rs5.close:set rs5=nothing %> <%=webset(0,0)%>
 <%=webset(0,0)%>  
<% sql="select * from setting order by actno desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3 total=rs.recordcount'全部活動數 rs.pagesize=10 '每頁筆數 if page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount If Not rs.eof Then ' 有資料才執行 rs.AbsolutePage = page ' 將資料錄移至 PAGE 頁 End if %> 系統管理 <% for i = 1 to 5 if webset(0,i)<>"" then response.write " | "& webset(0,i) &"" end if next %>
報名中 未開放 額滿 過期


活動總數:<%=total%>筆   [第一頁] [">上一頁] [下一頁] [最後一頁]     每頁<%=rs.pagesize%>

<% 'if rs.eof then if total=0 then response.write "" response.end else 'no=1 'while not rs.eof for k=1 to rs.pagesize colorid = k mod 2 If colorid = 1 Then colornum = "#ccffff" Else colornum = "#ffffcc" End if if rs.eof then exit for %> '"> <% rs.movenext next ' rs.movenext ' no=no+1 ' wend end if rs.close:set rs=nothing conn.close:set conn=nothing %>
狀態 活動名稱與說明 參加對象 活動日期 報名日期 主辦單位 報名狀況
沒有活動資料!
<% if now()rs("attend") then fmun="2" elseif now()>=rs("attbegin") and now()<=rs("attend") then if rs("majnum") + rs("secnum") > rs("oknum") + rs("bknum") then fmun="4" else fmun="1" end if else fmun="3" end if response.write "" %> "><%=rs("actname")%> <%=rs("people")%> <% response.write rs("actbegin")&"
" response.write rs("actend") %>
<% response.write rs("attbegin")&"
" response.write rs("attend") %>
<%=rs("munit")%> 待審:<%=rs("totnum")-rs("bknum")-rs("oknum")-rs("notnum")%>人
正取:<%=rs("oknum")%>/<%=rs("majnum")%>人
備取:<%=rs("bknum")%>/<%=rs("secnum")%>人