可以象验证码那样。

能结合我这个写出代码看看吗!

我这个主要是提取数据库的问题的!

能简单点的吗/

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from kongzhi" ,conn,1,1
if not(rs.bof and rs.eof) then
   dim a(100) '这里可以根据实际设置
   dim i
   i=0
   do while not rs.eof
      a(i)=rs("answer")
      i=i+1
   rs.movenext
   loop
   rs.close
   set rs=nothing
end if
dim n
randomize()
n=int(((i-1)-0+1)*rnd(now())+0)
%>
<a title="点击后换一个问题来回答。" href="?"><%=a(n)%></a>

谢谢!

但是答案怎么才能跟着一起跟它相对更新啊!以便验证问题跟答案是否正确！