想要一个简单的测试网页,可以做十道选择题,点击最后的提交按钮,相应题目会显示是否做错及正确答案

只要简单的网页就好,不用ASP,但是答案最好不要是弹出对话框的那种,而是显示在选项的边上。

第1个回答  2011-11-02
exam=tempload("shiti.txt") '载入txt文本,这个函数自己写一个
exam_array=split(exam,".")
for i=1 to ubound(exam_array)
response.write"<p>"
numb= mid(exam_array(i-1),instrRev(exam_array(i-1),vbcrlf)+1,len(exam_array(i-1))-instrRev(exam_array(i-1),vbcrlf))
response.write numb & "."
templi=exam_array(i)
templi=replace(templi,"①","<input type='radio' name='radio_"&numb&"' value='1'>①")
templi=replace(templi,"②","<input type='radio' name='radio_"&numb&"' value='2'>②")
templi=replace(templi,"③","<input type='radio' name='radio_"&numb&"' value='3'>③")
templi=replace(templi,"④","<input type='radio' name='radio_"&numb&"' value='4'>④")
templi=replace(templi,"⑤","<input type='radio' name='radio_"&numb&"' value='5'>⑤")
templi=mid(templi,1,instrRev(exam_array(i),vbcrlf)-1)
response.write replace(templi,vbcrlf,"<br>")
response.write"</p>"
next

上述代码没经过调试,思路大概就这样的,凑合着看着用吧答案的序号根据所有题目中,最多答案的那个题的答案个数来设定。这个是特殊字符,只能这样处理了,没有更好的办法

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网