<% actno=int(request("actno")) comm=request("comm") actno=replace(actno," ","") actno=replace(actno,"%","") actno=replace(actno,"*","") actno=replace(actno,"/","") actno=replace(actno,"=","") comm=replace(comm," ","") comm=replace(comm,"%","") comm=replace(comm,"*","") comm=replace(comm,"/","") comm=replace(comm,"=","") sql9=sql9&"select * from data where actno="&actno Set rs9 = Server.CreateObject("ADODB.Recordset") rs9.Open sql9, conn, 3 peonum = rs9.recordcount rs9.close:set rs9=nothing sql="select * from setting where actno="&actno set rs=conn.execute(sql) if rs.eof then response.write "查無此資料!" response.end else 'title=rs("actname") %> 活動內容


 目前共有<%=peonum%>人報名       待審:<%=rs("totnum")-rs("bknum")-rs("oknum")-rs("notnum")%>人       正取:<%=rs("oknum")%>/<%=rs("majnum")%>人        備取:<%=rs("bknum")%>/<%=rs("secnum")%>人。

活動名稱 <%=rs("actname")%> 
參加對象 <%=rs("people")%> 
活動地點 <%=rs("location")%> 
活動日期 開始:<%=rs("actbegin")%>
結束:<%=rs("actend")%>
報名時間 開始:<%=rs("attbegin")%>
結束:<%=rs("attend")%>
錄取名額 <%=rs("majnum")%>人
備取名額 <%=rs("secnum")%>人
報名費用 NT$ <%=rs("totalmoney")%> 元
主辦單位 <%=rs("munit")%> 
協辦單位 <% if rs("hunit")="" then response.write "..." else response.write rs("hunit") end if %> 
活動說明 <% ' if len(rs("memo"))<1 then ' response.write "..." 'else response.write replace(rs("memo"),chr(13),"
") 'end if %> 
有無附件 <% if rs("file")<>"" then%> " target="_blank">附加檔案『<%=mid(rs("file"),instr(rs("file"),"/")+1)%>』 <%else%> 無   <%end if%>
人數限制 <%=rs("famnum")%>人  (每次報名最多同時報名人數)

<%end if rs.close:set rs=nothing conn.close:set conn=nothing %>