mosyhey
یک شنبه 17 تیر 1386, 00:39 صبح
با سلام.
شما اول بایستی برای سوالات خود اگر می خواهید تخصصی کار کنید یک دیتابیس بسازید و در آن یک جدول برای سوالات با حداقل این فیلد ها:
متن سوال
گزینه الف
گزینه ب
گزینه ج
گزینه د
جواب درست
فیلد های دیگری برای دسته بندی و رسته، درجه سختی، راه حل و ... هر سوال می توانید در نظر بگیرید. سپس بر اساس خواسته کاربر سوال هایی را برای او مرتب کنید و به او نمره بدهید.
من برای مثال، دو صفحه سوال و جواب را به طور بسیار ساده و ابتدایی نوشته ام. در صفحه اول دو سوال نوشته ام و در صفحه دوم امتیاز می دهم و وقت را محاسبه می کنم. هر دو صفحه asp می باشد.
صفحه اول:
<form action="javab.asp" method="post">
<input type="hidden" name=now_time value="<%=Now()%>">
<p>
<b>1- What language Iranians speak?</b> (Don't answer? <input type="radio" name="q1" value="0" checked>)<br>
a) English <input type="radio" name="q1" value="a">
b) Farsi <input type="radio" name="q1" value="b">
b) Arabic <input type="radio" name="q1" value="c">
d) Hebrew <input type="radio" name="q1" value="d">
</p>
<p>
<b>2- Who was a great Persian scientist?</b> (Don't answer? <input type="radio" name="q2" value="0" checked>)<br>
a) Saadi <input type="radio" name="q2" value="a">
b) Hafez <input type="radio" name="q2" value="b">
b) Mowlavi <input type="radio" name="q2" value="c">
d) Ebne Sina <input type="radio" name="q2" value="d">
</p>
<input type="submit" value="Finish!">
</form>
صفحه دوم:
<%
Dim score_int
score_int=0
Select Case Request.Form("q1")
Case "0"
score_int=score_int
Case "b"
score_int=score_int+1
Case Else
score_int=score_int-(1/3)
End Select
Select Case Request.Form("q2")
Case "0"
score_int=score_int
Case "d"
score_int=score_int+1
Case Else
score_int=score_int-(1/3)
End Select
Response.Write("Your score is <b>" & (score_int/2)*100 & "%</b>.<br><br>")
Response.Write("Your time was <b>" & (Now()-CDate(Request.Form("now_time")))*60*60*24 & "</b> sec..")
%>