線上測驗的亂數選擇問題

發文回覆瀏覽次數：1524

推到 Plurk!

推到 Facebook!

尚未結案

kof2002315
一般會員

發表：1
回覆：0
積分：0
註冊：2006-12-04

發送簡訊給我

#1 引用回覆回覆

發表時間：2006-12-04 21:03:54

IP:125.231.xxx.xxx 訂閱

<%
Lesson = Request("Lesson")
No = Request("No")
Name = Request("Name")

sql="Select top 11 * From " & Lesson & " order by RND (題號)"
Set rs = GetMdbRecordset( "TT.mdb", SQL )
%>

<HTML><br /><BODY BgColor=White Background="../B01.jpg"><br />

考試科目 -- <%=Lesson%>

<FORM Action=Score.asp Method=GET><br />
<INPUT Type=Hidden Name=Lesson Value=<%=Lesson%>>
<INPUT Type=Hidden Name=No Value=<%=No%>>
<INPUT Type=Hidden Name=Name Value=<%=Name%>>

<%
While Not rs.EOF
%>
<%=rs("題號")%>. <%=Server.HTMLEncode(rs("題目"))%>
(<%=rs("類型")%>:<%=rs("分數")%>分)

<%
For I = 1 To 4
If rs("類型") = "單選" Then
TestType = "Radio"
Else
TestType = "CheckBox"
End If
%>

<INPUT Type=<%=TestType%> Name=No<%=rs("題號")%>
Value=<%=I%>><%=Server.HTMLEncode(rs("選項" & I))%>

<%
Next
Response.Write "

"
rs.MoveNext
Wend
%>

<INPUT Type=Submit Value=" 繳卷 "></font>
</FORM><br />

</BODY><br /></HTML><br />

我和我同學功力實在差的誇張
希望有前輩能稍微指點一下
如果此問題不適合發表在此區
再此跟各位抱歉一下.....

系統時間：2024-05-13 9:06:53

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！