[HOME]

<% num=0 dim member(1) dim member_mat(1,1000) dim num_max(1) dim uniq(1,1000) dim u(1) member(0) = Request.Form("s1") member(1) = Request.Form("s2") '配列に保存 for o_n=0 to 1 member2="" num=0 for i= 1 to len(member(o_n)) char1=mid(member(o_n),i,1) if char1=chr(13) then member_mat(o_n,num)=member2 member2="" num=num+1 else member2=member2 & char1 end if next member_mat(o_n,num)=member2 member_mat(o_n,num+1)="zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" num_max(o_n)=num+1 next %>

現在<% = num_max(1) %>人

<% '比較 n0=0 n1=0 for i=0 to 1 u(i)=0 next %>

<% while (n0

<% for k=0 to u(uu)-1%> <%= member_mat(uu,uniq(uu,k))%>
<% next if u(uu)>0 then select case uu case 0 %>さんらが退会されていました。 <% case 1 %>さんらが参加されていました。 <% end select end if %>

<% next %>

現在の参加者リスト
<% '現在のリスト for i= 0 to num_max(1)-1 %><% = member_mat(1,i) %>
<% next %>

Google
Web www.PAG1U.net

seo
Tibet Support Network Japan(TSNJ)チベット・サポート・ネットワーク・ジャパン チベットの今日は、明日の台湾、あさっての日本ということで心配なので、リンクだけ貼っておきます。

[HOME]  (C) MATSUOKA , Hajime