<% randomize() r=rnd() r=int(r*10) Select Case r Case 0,1 Response.Write "
" Case 4,5 Response.Write "
" Case 7,8 Response.Write "
" Case 3,9 Response.Write "
" Case 2,6 Response.Write "
" End Select %>
本地人士
外籍人士
本地人士
外籍人士