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

Question

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

Answer 1

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

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