Re: [問題] asp 動態名稱
※ 引述《ilnba (Lancelot)》之銘言：
:(略)
送資料
: sql = "select * from question where type='A'"(選A類)
: Set objRS = CN.Execute(sql)
: Dim aa,bb
: aa = 1:bb = 0
: Do Until objRS.EOF
: for i=0 to A-1(總共選幾題)
: if aa = RandomInt(i) then
: bb = bb + 1
: response.Write objRS("ID")& "<br/>"
: response.write objRS("type")&" "
: response.write objRS("question")&"<br/>"
: response.write"<input type='radio' name='a_" & bb & "' value='a'>"&objRS("selecta")
: response.write"<input type='radio' name='a_" & bb & "' value='b'>"&objRS("selectb")
: response.write"<input type='radio' name='a_" & bb & "' value='c'>"&objRS("selectc")
: response.write"<input type='radio' name='a_" & bb & "' value='d'>"&objRS("selectd")
: response.write"<input type='radio' name='a_" & bb & "' value='e'>"&objRS("selecte")&"<br/>"
: response.Write"<div><hr /></div>"
: end if
: next
: aa = aa+1
: objRS.MoveNext
: Loop
: Response.Write "<input type='hidden' name='bb' value='" & bb & "'>
收資料
: For i = 1 to cint(Request("bb"))
: Answer_Of_bb(i) = Request("typea_" & i)
: Next
如果不在意假性計算的話可以用這樣.
不然的話bb用objRs("id")代入
收值的時候對所有Request裡有A_n(n=id)的值做分析也是可以
--
+ . ． ◤◤▃▃▃▃◥ＡＲＩＡ ◤▃▃▃▃◥◥ ．. . ‥ ◢▊ ∵
◣ . . ． ▉◢◢◣▏カンパニー▊ │ ││▎▎ ． ‥ ．. ≡
▏ ◥ ◤ ︵ ︵ ◣ ▂◢ ▆— —▆ + ◤▎ ╱
▍▅▄▃▄▃▂◤ ◣_ _◢ ▲"▆"` ◣_□_◢ ▂▄▅▆▇◢ ．
◣ █▆ ◥▲▲▲◤【ＯωＯ】 ▲▲▲ ▅▇▇ ◢
◣ ▲◎▲ ◤▲ ● ▲◎▲ ◢ 鱻ψ
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.70.29.66
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
問題
1
1