<!--#include file="conn.asp"-->
<!--#include file="conntest.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file=inc/theme.asp -->
<!--#include file="inc/char.asp"-->
<script> 
document.oncontextmenu=new Function('event.returnValue=false;'); 
document.onselectstart=new Function('event.returnValue=false;'); 
</script>

 <% 
dim userw,userc,usere,ars,auserans,auserok,acount,rndhead
dim ajj,aid,akey1,akey2,akey3,akey4,aok,atx,aokcount
dim atitle,adttime,thistime,dd,msgdt
dim ats,auserjl,ausere,auserc,atime,ajs,aok1
session("atime")=0
if membername="" then
response.write "<script>location.href='login.asp'</script>"
else
stats="开心词典—答题"
call nav()
call headline(1)

set rs=server.createobject("adodb.recordset")
sql="select userwealth,usercp,userep from [user] where username='"&membername&"'"
rs.open sql,conn,1,1
userw=rs(0)
userc=rs(1)
usere=rs(2)
rs.close
set ars=server.createobject("adodb.recordset")
sql="select userans,userok from [testuser] where username='"&membername&"'"
ars.open sql,aconn,1,1
auserans=ars(0)
auserok=ars(1)
ars.close
dim dd1
if userw<=100 then
dd1="你口袋里只剩100元了,不能再答题了，赚点钱再来吧！"
errmsg=errmsg+"<br>"+"<li>"&dd1
session("checkpage")=""
session("ajj")=""
session("atitle")=""
session("akey1")=""
session("akey1")=""
session("akey2")=""
session("akey3")=""
session("akey4")=""
session("aok")=""
session("aid")=""
session("testlb")=""
session("atime")=""
call error()
else
set ars=server.createobject("adodb.recordset")
sql="select dttime,ts,userjl,usere,userc from [config]"
ars.open sql,aconn,1,1
adttime=ars(0)
ats=ars(1)
auserjl=ars(2)
ausere=ars(3)
auserc=ars(4)
ars.close
if request("action")="hd" then
   call hd()
elseif request("action")="dt" then
   call dt()
elseif request("action")="out" then
   call out()
elseif request("action")="hdtk" then
   call hdtk()
else
call out()
end if
end if
sub dt()

if request("btest")<>"" then
 set ars=server.createobject("adodb.recordset")
 sql="select username,intime,js from [testuser] where username='"&membername&"'"
 ars.open sql,aconn,1,3
	 if ars.eof then
	ars.addnew
	ars(0)=membername
	ars(1)=now()
	ars(2)=10
	ars.update
	ars.close
	session("checkpage")="on"
	elseif adttime-datediff("n",ars(1),now())>=1 then
  			timec=adttime-datediff("n",ars(1),now())
			dd="你上次玩的时间是"&ars(1)&",离下一次玩还差"&timec&"分钟"
			errmsg=errmsg+"<br>"+"<li>"&dd
			session("checkpage")=""
			session("ajj")=""
			session("atitle")=""
			session("akey1")=""
			session("akey1")=""
			session("akey2")=""
			session("akey3")=""
			session("akey4")=""
			session("aok")=""
			session("aid")=""
			session("testlb")=""
			session("atime")=""
			session("atx")=""
			session("acount")=""
			session("aokcount")=""
			call error()
	else
 			thistime=now()
			aconn.execute ("update [testuser] set js='"&ats&"',intime='"&thistime&"'"&"where username='"&membername&"'")
			session("checkpage")="on"
            call dt1()
    end if

else
call dt1()
end if
end sub

sub dt1()
if session("testlb")="" then
			session("testlb")=request("testlb")
end if


			set ars=server.createobject("adodb.recordset")
			sql="select jj,time,title,key1,key2,key3,key4,ok,id,tx,tcount,okcount  from [test] where lb="&session("testlb")
			ars.CursorLocation=3
			ars.open sql,aconn,1,1
			acount=ars.recordcount
			Randomize
			rndhead=Fix(acount*Rnd)+1
			ars.absolutePosition=rndhead
			ajj=ars(0)
			atime=ars(1)
			atitle=ars(2)
			akey1=ars(3)
			akey2=ars(4)
			akey3=ars(5)
			akey4=ars(6)
			aok=ars(7)
			aid=ars(8)
			atx=ars(9)
			acount=ars(10)
			aokcount=ars(11)
			ars.close

			set ars=server.createobject("adodb.recordset")
			sql="select js from [testuser] where username='"&membername&"'"
			ars.open sql,aconn,1,3
			ajs=ars(0)
			if ars(0)=0 then
			msgdt="你已回答"&ats&"题，请过"&adttime&"分钟后再来，谢谢光临！"%>
			<script>alert('<%=msgdt%>')</script>
			<%call out()
			else
				aconn.execute ("update [testuser] set js="&ajs-1&" where username='"&membername&"'")
			end if

			session("ajj")=ajj
			session("atime")=atime
			session("atitle")=atitle
			session("akey1")=akey1
			session("akey1")=akey1
			session("akey2")=akey2
			session("akey3")=akey3
			session("akey4")=akey4
			session("aok")=aok
			session("aid")=aid
			session("tx")=atx
			session("acount")=acount
			session("aokcount")=aokcount
			if atx=0 then%>
<body onLoad="window.setTimeout('getSecs()',1)">
<form name="form1" method="post" action="iitest.asp?action=hd">
　<div align="center">
  <center>
      <table border=0 width="600" align=center cellspacing=1 bgcolor="<%=tablebackcolor%>" cellpadding="4">
        <tr bgcolor="<%=tabletitlecolor%>"> 
          <td colspan="5" height="3" align="center"><b><img src="images/dir.gif" align="absMiddle">开心词典</b></td>
        </tr>
        <tr bgcolor="<%=tablebodycolor%>">
          <td colspan="5" height="3" align="center">&nbsp;</td>
        </tr>
        <tr bgcolor="<%=tabletitlecolor%>"> 
          <td width="72" height="8" align="center"><b>你的属性</b></td>
          <td colspan="4" height="8">&nbsp;&nbsp;&nbsp;经&nbsp;&nbsp;验：<font color="#FF0000"><b><%=usere%></b></font>&nbsp;&nbsp;&nbsp;魅&nbsp;&nbsp;力：<font color="#FF0000"><b><%=userc%></b></font>&nbsp;&nbsp;&nbsp;现&nbsp;&nbsp;金：<font color="#FF0000"><b><%=userw%></b></font>&nbsp;&nbsp;&nbsp;你剩余的答题数：<font color="#FF0000"><b><%=ajs%></b></font></td>
        </tr>
        <tr bgcolor="<%=tablebodycolor%>"> 
          <td width="72" height="19" align="center"><b>题　　号</b></td>
          <td width="45" height="19" align="center">&nbsp;<%=aid%> </td>
          <td height="19" width="131" align="center"><b><font color="#FF0000">&nbsp;</font></b><b>本题奖金</b>&nbsp;<font color="#FF0000"><%=ajj%> </font>
          </td>
          <td height="19" width="136" align="center"><b><span lang="zh-cn">本题限时</span><font color="#FF0000"><span lang="zh-cn"> 
            <%=session("atime")%> </span></font><span lang="zh-cn">秒</span><font color="#FF0000"><span lang="zh-cn"></span></font></b></td>
          <td width="170" height="19" align="center"><b><font color="#FF0000"><span lang="zh-cn">　</span></font>所剩时间<font color="#FF0000"> 
            <input size=6 name=timespent>
            </font>秒</b></td>
        </tr>
        <tr bgcolor="<%=tabletitlecolor%>"> 
          <td width="72" height="16" align="center"><b>题&nbsp;&nbsp;&nbsp; 目</b></td>
          <td colspan="4" height="16"><%=atitle%></td>
        </tr>
        <tr bgcolor="<%=tablebodycolor%>"> 
          <td width="72" height="20" align="center"> 
            <input type="radio" value=1 name="R1" checked>
          </td>
          <td colspan="4" height="20">&nbsp;<%=akey1%>　</td>
        </tr>
        <tr bgcolor="<%=atablebodycolor%>"> 
          <td width="72" height="20" align="center"> 
            <input type="radio" value=2 name="R1">
          </td>
          <td colspan="4" height="20">&nbsp;<%=akey2%>　</td>
        </tr>
        <tr bgcolor="<%=tablebodycolor%>"> 
          <td width="72" height="20" align="center"> 
            <input type="radio" value=3 name="R1">
          </td>
          <td colspan="4" height="20">&nbsp;<%=akey3%>　</td>
        </tr>
        <tr bgcolor="<%=atablebodycolor%>"> 
          <td width="72" height="20" align="center"> 
            <input type="radio" value=4 name="R1">
          </td>
          <td colspan="4" height="20">&nbsp;<%=akey4%>　</td>
        </tr>
        <tr bgcolor="<%=atablebodycolor%>"> 
          <td width="72" height="9" align="center"><b>本题属性</b></td>
          <td colspan="4" height="9">&nbsp;已应答人数：<%=acount%>　　　　答对人数：<%=aokcount%></td>
        </tr>
        <tr bgcolor="<%=tabletitlecolor%>"> 
          <td colspan="5" height="10" align="center">&nbsp;</td>
        </tr>
      </table>
      </center>
</div> 
<p align="center">

  <input type="submit" value="提交" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" value="重置" name="B2"></p>
</p>
</form>
<%
else%>
<body onLoad="window.setTimeout('getSecs()',1)">
<form name="form1" method="post" action="iitest.asp?action=hdtk">
  　 
  <div align="center">
  <center>
      <table border=0 width="600" align=center cellspacing=1 bgcolor="<%=tablebackcolor%>" cellpadding="4">
        <tr bgcolor="<%=tabletitlecolor%>"> 
          <td colspan="5" height="3" align="center"><b><img src="images/dir.gif" align="absMiddle">开心词典</b></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td colspan="5" height="3" align="center">&nbsp;</td>
    </tr>
		<tr bgcolor="<%=tabletitlecolor%>"> 
          <td width="72" height="16" align="center"><b>你的属性</b></td>
          <td colspan="4" height="16">&nbsp;&nbsp;&nbsp;经&nbsp;&nbsp;验：<font color="#FF0000"><b><%=usere%></b></font>&nbsp;&nbsp;&nbsp;魅&nbsp;&nbsp;力：<font color="#FF0000"><b><%=userc%></b></font>&nbsp;&nbsp;&nbsp;现&nbsp;&nbsp;金：<font color="#FF0000"><b><%=userw%></b></font>&nbsp;&nbsp;&nbsp;你剩余的答题数：<font color="#FF0000"><b><%=ajs%></b></font></td>
        </tr>
        <tr bgcolor="<%=tablebodycolor%>"> 
          <td width="72" height="19" align="center"><b>题　　号</b></td>
          <td width="45" height="19">&nbsp;<%=aid%> </td>
          <td height="19" width="140"><b><font color="#FF0000">&nbsp;</font></b><b>本题奖金</b>&nbsp;<%=ajj%> 
          </td>
          <td height="19" width="123"><b><span lang="zh-cn">本题限时</span><font color="#FF0000"><span lang="zh-cn"> 
            <%=session("atime")%> </span></font><span lang="zh-cn">秒</span><font color="#FF0000"><span lang="zh-cn"></span></font></b></td>
          <td width="170" height="19"><b><font color="#FF0000"><span lang="zh-cn">　</span></font>所剩时间<font color="#FF0000"> 
            <input size=6 name=timespent>
            </font>秒</b></td>
        </tr>
        <tr bgcolor="<%=tabletitlecolor%>"> 
          <td width="72" height="16" align="center"><b>题&nbsp;&nbsp;&nbsp; 目</b></td>
          <td colspan="4" height="16"><%=atitle%></td>
        </tr>
        <tr bgcolor="<%=tablebodycolor%>"> 
          <td width="72" height="20" align="center"> <b>答&nbsp;&nbsp;案：</b></td>
          <td colspan="4" height="20">&nbsp; 
            <input type="text" name="testansw" size="50">
          </td>
        </tr>
        <tr bgcolor="<%=atablebodycolor%>"> 
          <td width="72" height="20" align="center"><b>本题属性</b></td>
          <td colspan="4" height="20">已应答人数：<%=acount%>　　　　答对人数：<%=aokcount%></td>
        </tr>
		<tr bgcolor="<%=tabletitlecolor%>"> 
          <td colspan="5" height="10" align="center">&nbsp;</td>
        </tr>
      </table>
    </center>
</div>
<p align="center">

  <input type="submit" value="提交" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" value="重置" name="B2"></p>
</p>
</form>
<%
end if
end sub



sub hd()
if session("checkpage")="" or session("aid")="" then
call out()
end if

aok=session("aok")
aid=session("aid")
ajj=session("ajj")
atitle=session("atitle")
akey1=session("akey1")
akey2=session("akey2")
akey3=session("akey3")
akey4=session("akey4")
acount=session("acount")
aokcount=session("aokcount")

  if request("R1")=aok then
  conn.execute ("update [user] set userWealth='"&userw+ajj&"',userCP='"&userc+auserc&"',userEP='"&usere+ausere&"' where username='"&membername&"'")
  aconn.execute ("update [testuser] set userans='"&auserans+1&"',userok='"&auserok+1&"' where username='"&membername&"'")
  aconn.execute ("update [test] set tcount='"&acount+1&"',okcount='"&aokcount+1&"' where id="&aid)
  %>
  <center>
  <table border=0 width="600" align=center cellspacing=1 bgcolor="<%=tablebackcolor%>" cellpadding="4">
    <tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="5" height="3" align="center"><b><img src="images/dir.gif" align="absMiddle">回答正确</b></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td colspan="5" height="3" align="center">&nbsp;</td>
    </tr>
	<tr bgcolor="<%=tabletitlecolor%>">
      <td width="71" height="16" align="center"><b>你的属性</b></td>
      <td colspan="4" height="16">&nbsp;&nbsp;&nbsp;经&nbsp;&nbsp;验：<font color="#FF0000"><b><%=usere%></b></font>&nbsp;&nbsp;&nbsp;魅&nbsp;&nbsp;力：<font color="#FF0000"><b><%=userc%></b></font>&nbsp;&nbsp;&nbsp;现&nbsp;&nbsp;金：<font color="#FF0000"><b><%=userw%></b></font>&nbsp;&nbsp;&nbsp;你剩余的答题数：<font color="#FF0000"><b><%=ajs%></b></font></td>
  </tr>
  <tr bgcolor="<%=tablebodycolor%>">
      <td width="71" height="19" align="center"><b>奖&nbsp;&nbsp;&nbsp; 金</b></td>
      <td width="39" height="19">&nbsp;<%=ajj%> </td>
      <td width="462" height="19"><b><font color="#FF0000">&nbsp;</font>不错，回答正确，继续来！</b></td>
  </tr>
  <tr bgcolor="<%=tabletitlecolor%>">    
      <td width="71" height="16" align="center"><b>题&nbsp;&nbsp;&nbsp; 目</b></td>
      <td colspan="2" height="16"><%=atitle%></td>
  </tr>
   <tr bgcolor="<%=tablebodycolor%>">
      <td width="71" height="20" align="center"><b>正确答案</b></td>  <td colspan="2" height="20">&nbsp;
        <%select case aok
    case "1"
     response.write akey1
     case "2"
     response.write akey2
    case "3"
     response.write akey3
     case "4"
     response.write akey4
     end select

     %>
        　</td>
  </tr>
  <tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="5" height="10" align="center">&nbsp;</td>
    </tr>
  </table>
  <p><a href="iitest.asp?action=dt">继续下一题</a>　<a href="bank/play.asp">玩其他游戏</a>　<a href="iitest.asp?action=out">不玩了！</a></p>

  </center>

<%  else
conn.execute ("update [user] set userWealth='"&userw-ajj&"',userCP='"&userc-auserc&"',userEP='"&usere-ausere&"' where username='"&membername&"'")
  aconn.execute ("update [testuser] set userans='"&auserans+1&"' where username='"&membername&"'")
  aconn.execute ("update [test] set tcount='"&acount+1&"' where id="&aid)
%>
  <center>
  <table border=0 width="600" align=center cellspacing=1 bgcolor="<%=tablebackcolor%>" cellpadding="4">
    <tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="5" height="3" align="center"><b><img src="images/dir.gif" align="absMiddle">回答错误！</b></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td colspan="5" height="3" align="center">&nbsp;</td>
    </tr>
	<tr bgcolor="<%=tabletitlecolor%>">
      <td width="72" height="16" align="center"><b>你的属性</b></td>
      <td colspan="4" height="16">&nbsp;&nbsp;&nbsp;经&nbsp;&nbsp;验：<font color="#FF0000"><b><%=usere%></b></font>&nbsp;&nbsp;&nbsp;魅&nbsp;&nbsp;力：<font color="#FF0000"><b><%=userc%></b></font>&nbsp;&nbsp;&nbsp;现&nbsp;&nbsp;金：<font color="#FF0000"><b><%=userw%></b></font>&nbsp;&nbsp;&nbsp;你剩余的答题数：<font color="#FF0000"><b><%=ajs%></b></font></td>
  </tr>
  <tr bgcolor="<%=tablebodycolor%>">
      <td width="72" height="19" align="center"><b>奖&nbsp;&nbsp;&nbsp; 金</b></td>
      <td width="42" height="19">&nbsp;<%=ajj%> </td>
      <td width="531" height="19">有没有搞错？这种题目都回答不上来，怎么到央视去见王小丫？</td>
  </tr>
  <tr bgcolor="<%=tabletitlecolor%>">
      <td width="72" height="16" align="center"><b>题&nbsp;&nbsp;&nbsp; 目</b></td>
      <td colspan="2" height="16"><%=atitle%></td>
  </tr>
  <tr bgcolor="<%=tablebodycolor%>">
      <td width="72" height="20" align="center"><b>正确答案</b></td>
      <td colspan="2" height="20"><font color="#0000FF">&nbsp;</font>到央视去问王小丫！<font color="#0000FF"><font color="#0000FF">&nbsp;&nbsp; 
        <span lang="zh-cn"> 
        <%select case aok
    case "1"
     aok1=akey1
     case "2"
     aok1=akey2
    case "3"
     aok1=akey3
     case "4"
     aok1=akey4
     end select%>
        <a  href="#;" onclick="window.open('testansw.asp?aok1=<%=aok1%>&username=<%=membername%>','answer','status=0,resizable=0,scrollbars=0,height=250,width=300,top=10,left=250')">点击此处获取正确答案</a> 
        </span></font><span lang="zh-cn"> 【 注：将扣除你<%=ajj%>两银子 】</span><font color="#0000FF"><span lang="zh-cn"> 
        </span></font></font></td>
  </tr>
  <tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="5" height="10" align="center">&nbsp;</td>
    </tr>
  </table>
  <p><a href="iitest.asp?action=dt">继续下一题</a>　<a href="bank/play.asp">玩其他游戏</a>　<a href="iitest.asp?action=out">不玩了！</a></p>

  </center>
<%  end if
if session("checkpage")="" or session("aid")="" then
call out()
else
session("aid")=""
end if
end sub



sub hdtk()

if session("checkpage")="" or session("aid")="" then
call out()
end if

aok=session("aok")
aid=session("aid")
ajj=session("ajj")
atitle=session("atitle")
akey1=session("akey1")

  if request("testansw")=akey1 then
  conn.execute ("update [user] set userWealth='"&userw+ajj&"',userCP='"&userc+auserc&"',userEP='"&usere+ausere&"' where username='"&membername&"'")
  aconn.execute ("update [testuser] set userans='"&auserans+1&"',userok='"&auserok+1&"' where username='"&membername&"'")
  aconn.execute ("update [test] set tcount='"&acount+1&"',okcount='"&aokcount+1&"' where id="&aid)
%>
  <center>
  <table border=0 width="600" align=center cellspacing=1 bgcolor="<%=tablebackcolor%>" cellpadding="4">
    <tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="5" height="3" align="center"><b><img src="images/dir.gif" align="absMiddle">回答正确</b></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td colspan="5" height="3" align="center">&nbsp;</td>
    </tr>
	<tr bgcolor="<%=tabletitlecolor%>"> 
      <td width="72" height="16" align="center"><b>你的属性</b></td>
      <td colspan="4" height="16">&nbsp;&nbsp;&nbsp;经&nbsp;&nbsp;验：<font color="#FF0000"><b><%=usere%></b></font>&nbsp;&nbsp;&nbsp;魅&nbsp;&nbsp;力：<font color="#FF0000"><b><%=userc%></b></font>&nbsp;&nbsp;&nbsp;现&nbsp;&nbsp;金：<font color="#FF0000"><b><%=userw%></b></font>&nbsp;&nbsp;&nbsp;你剩余的答题数：<font color="#FF0000"><b><%=ajs%></b></font></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td width="72" height="19" align="center"><b>奖&nbsp;&nbsp;&nbsp; 金</b></td>
      <td width="26" height="19">&nbsp;<%=ajj%> </td>
      <td width="463" height="19"><b><font color="#FF0000">&nbsp;</font>不错，回答正确，继续来！</b></td>
    </tr>
    <tr bgcolor="<%=tabletitlecolor%>"> 
      <td width="72" height="16" align="center"><b>题&nbsp;&nbsp;&nbsp; 目</b></td>
      <td colspan="2" height="16"><%=atitle%></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td width="72" height="20" align="center"><b>正确答案</b></td>
      <td colspan="2" height="20">&nbsp;<%=akey1%> 　</td>
    </tr>
	<tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="5" height="10" align="center">&nbsp;</td>
    </tr>
  </table>
  <p><a href="iitest.asp?action=dt">继续下一题</a>　<a href="bank/play.asp">玩其他游戏</a>　<a href="iitest.asp?action=out">不玩了！</a></p>

  </center>

<%  else
conn.execute ("update [user] set userWealth='"&userw-ajj&"',userCP='"&userc-1&"',userEP='"&usere-3&"' where username='"&membername&"'")
  aconn.execute ("update [testuser] set userans='"&auserans+1&"' where username='"&membername&"'")
  aconn.execute ("update [test] set tcount='"&acount+1&"' where id="&aid)
%>

  <center>
  <table border=0 width="600" align=center cellspacing=1 bgcolor="<%=tablebackcolor%>">
    <tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="5" height="3" align="center"><b><img src="images/dir.gif" align="absMiddle">回答错误！</b></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td colspan="5" height="3" align="center">&nbsp;</td>
    </tr>
	<tr bgcolor="<%=tabletitlecolor%>">
      <td width="72" height="16" align="center"><b>你的属性</b></td>
      <td colspan="4" height="16">&nbsp;&nbsp;&nbsp;经&nbsp;&nbsp;验：<font color="#FF0000"><b><%=usere%></b></font>&nbsp;&nbsp;&nbsp;魅&nbsp;&nbsp;力：<font color="#FF0000"><b><%=userc%></b></font>&nbsp;&nbsp;&nbsp;现&nbsp;&nbsp;金：<font color="#FF0000"><b><%=userw%></b></font>&nbsp;&nbsp;&nbsp;你剩余的答题数：<font color="#FF0000"><b><%=ajs%></b></font></td>
  </tr>
  <tr bgcolor="<%=tablebodycolor%>">
      <td width="72" height="19" align="center"><b>奖&nbsp;&nbsp;&nbsp; 金</b></td>
      <td width="24" height="19">&nbsp;<%=ajj%> </td>
      <td width="477" height="19">　有没有搞错？这种题目都回答不上来，怎么到央视去见王小丫？</td>
  </tr>
  <tr bgcolor="<%=tabletitlecolor%>">
      <td width="72" height="16" align="center"><b>题&nbsp;&nbsp;&nbsp; 目</b></td>
      <td colspan="2" height="16"><%=atitle%></td>
  </tr>
  <tr bgcolor="<%=tablebodycolor%>">
      <td width="72" height="20" align="center"><b>正确答案</b></td>
      <td colspan="2" height="20"><font color="#0000FF">&nbsp;&nbsp;</font>到央视去问王小丫！<font color="#0000FF"><font color="#0000FF">&nbsp;&nbsp; 
        <span lang="zh-cn"> 
        <%select case aok
    case "1"
     aok1=akey1
     case "2"
     aok1=akey2
    case "3"
     aok1=akey3
     case "4"
     aok1=akey4
     end select%>
        <a  target=blank href="testansw.asp?aok1=<%=aok1%>&username=<%=membername%>">点击此处获取正确答案</a> 
        </span></font><span lang="zh-cn"> 【 注：将扣除你2两银子 】</span><font color="#0000FF"><span lang="zh-cn"> 
        </span></font></font></td>
  </tr>
  <tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="5" height="10" align="center">&nbsp;</td>
    </tr>
  </table>
  <p><a href="iitest.asp?action=dt">继续下一题</a>　<a href="bank/play.asp">玩其他游戏</a>　<a href="iitest.asp?action=out">不玩了！</a></p>

  </center>
<%  end if
if session("checkpage")="" or session("aid")="" then
call out()
else
session("aid")=""
end if
end sub

sub out()
session("checkpage")=""
session("ajj")=""
session("atitle")=""
session("akey1")=""
session("akey1")=""
session("akey2")=""
session("akey3")=""
session("akey4")=""
session("aok")=""
session("aid")=""
session("testlb")=""
session("atime")=""
session("atx")=""
session("acount")=""
session("aokcount")=""
response.write "<script>location.href='index.asp'</script>"
end sub
end if
%>
<script language="JavaScript">
startday = new Date();
clockStart = startday.getTime();

function initStopwatch() 
{ 
 var myTime = new Date(); 
 var a=<%=session("atime")%>
        var timeNow = myTime.getTime();  
        var timeDiff = timeNow - clockStart; 
        this.diffSecs = timeDiff/1000; 
        this.diffSecs =a-this.diffSecs;
        return(this.diffSecs); 
} 

function getSecs() 
{ 
        var mySecs = initStopwatch(); 
        var mySecs1 = ""+mySecs; 
        mySecs1= mySecs1.substring(0,mySecs1.indexOf(".")); 

        document.form1.timespent.value = mySecs1
        if ( mySecs1<= 0){

alert("你已超出本题的时间限制！")
window.location="test.asp"
}
else
{   window.setTimeout('getSecs()',1000); }
}




</script>

</font></font>

</body>

</html>
<%
call endline()
%><!--#include file="footer.asp"-->