📄 z_testii.asp
字号:
if request("R1")=session("aok") then '答案正确
conn.execute ("update [user] set userWealth=userWealth+"&session("ajj")&",userCP=userCP+"&AnswerSetting(1)&",userEP=userEP+"&AnswerSetting(2)&" where username='"&membername&"'")
aconn.execute ("update [testuser] set userans=userans+1,usersinew=usersinew-"&AnswerSetting(0)&",userok=userok+1 where username='"&membername&"'")
aconn.execute ("update [test] set tcount=tcount+1,okcount=okcount+1 where id="&session("aid"))
session("ok1")=aconn.execute("select userok from [testuser] where username='"&membername&"'")(0)
%>
<table align=center cellspacing=1 cellpadding="3" class=tableborder1 style="width:80%">
<tr>
<td align="center" class=tablebody2><b>你的属性</b></td>
<td colspan="3" class=tablebody2>游戏币：<%=userp-AnswerSetting(0)%> 经验：<%=myuserep+AnswerSetting(2)%> 魅力：<%=myusercp+AnswerSetting(1)%> 现金：<%=mymoney+session("ajj")%> 你的本次答题正确率：
<%
if ( session("ok")=0 and session("ok1")=0 ) or session("ok1")=session("ok") then 'session("ok")=0 上次答 题正确题数
response.write "0"
else
ok1=session("ok1")-session("ok")
ok2=AnswerSetting(4)-ajs
session("ok2")=ok2 '本次答题正确数
session("oklu")=round(ok1/ok2,3) '本次答题正确率
response.write "<font color=red>"&round(ok1/ok2,3)*100
response.write "%</font>"
end if
%>
</td>
</tr>
<tr>
<td width="70" align="center" class=tablebody1><b>奖 金</b></td>
<td width="50" class=tablebody1> <font color="#FF0000">+ <%=session("ajj")%> </font></td>
<td width="*" class=tablebody1> <font color=blue>√ <b>您的回答完全正确！</b></font></td>
<td width="80" class=tablebody1 align="center"><a href="z_TestReport.asp?ID=<%=session("aid")%>" title="发现该题的答案有误，我要向管理员举报"><font color=blue>举报此题</font></a></td>
</tr>
<tr>
<td align="center" class=tablebody2><b>题 目</b></td>
<td colspan="3" align="center" class=tablebody2><table border=0 width="100%" cellspacing=1><tr><td><%=htmlencode(session("atitle"))%></td></tr></table></td>
</tr>
<tr>
<td align="center" class=tablebody1>正确答案</td>
<td colspan="3" height="20" class=tablebody1> <%=session("akey"&session("aok"))%></td>
</tr>
</table>
<tr><td class=tablebody2 align="center">
<a href="?action=dt">继续下一题</a> <a href="?action=out">不玩了！</a>
</td></tr>
<%
else '回答错误
conn.execute ("update [user] set userWealth=userWealth-"&session("ajj")&",userCP=userCP-"&AnswerSetting(1)&",userEP=userEP-"&AnswerSetting(2)&" where username='"&membername&"'")
aconn.execute ("update [testuser] set userans=userans+1,usersinew=usersinew-"&AnswerSetting(0)&" where username='"&membername&"'")
aconn.execute ("update [test] set tcount=tcount+1 where id="&session("aid"))
session("ok1")=aconn.execute("select userok from [testuser] where username='"&membername&"'")(0)
%>
<table align=center cellspacing=1 cellpadding="3" class=tableborder1 style="width:80%">
<tr>
<td align="center" class=tablebody2><b>你的属性</b></td>
<td colspan="3" class=tablebody2>游戏币：<%=userp-AnswerSetting(0)%> 经验：<%=myuserep-AnswerSetting(2)%> 魅力：<%=myusercp-AnswerSetting(1)%> 现金：<%=mymoney-session("ajj")%> 你的本次答题正确率：
<%
if ( session("ok")=0 and session("ok1")=0 ) or session("ok1")=session("ok") then
response.write "0%"
else
ok1=session("ok1")-session("ok")
ok2=AnswerSetting(4)-ajs
session("ok2")=ok2 '本次答题正确数
session("oklu")=round(ok1/ok2,3) '本次答题正确率
response.write "<font color=red>"&round(ok1/ok2,3)*100
response.write "%</font>"
end if
%>
</td>
</tr>
<tr>
<td width="70" align="center" class=tablebody1><b>奖 金</b></td>
<td width="50" class=tablebody1> <font color="#FF0000">- <%=session("ajj")%> </font></td>
<td width="*" class=tablebody1> <font color="#FF0000">× <b>没有答对，继续努力哦！</b></font></td>
<td width="80" align="center" class=tablebody1><a href="z_TestReport.asp?ID=<%=session("aid")%>" title="发现该题的答案有误，我要向管理员举报"><font color=blue>举报此题</font></a></td>
</tr>
<tr>
<td align="center" class=tablebody2><b>题 目</b></td>
<td colspan="3" align="center" class=tablebody2><table border=0 width="100%" cellspacing=1><tr><td><%=htmlencode(session("atitle"))%></td></tr></table></td>
</tr>
<tr>
<td align="center" class=tablebody1>正确答案</td>
<td colspan="3" class=tablebody1><%if cint(AnswerSetting(5))=1 then%><font color="#FF0000"><%=session("akey"&session("aok"))%></font><%else%> 还要自己多学习哟！ <a href="#" onclick="javascript:window.open('z_testansw.asp?aok=<%=session("aid")%>', 'newwindow', 'height=150, width=250, top=250, left=200, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no')"><font color=fuchsia>花银子买知识吧（点击此链花 <%=AnswerSetting(6)%> 两银子看正确答案）</font></a><%end if%></td>
</tr>
</table>
<tr><td class=tablebody2 align="center">
<a href="?action=dt">继续下一题</a> <a href="?action=out">不玩了！</a>
</td></tr>
<%
end if
if session("checkpage")="" or session("aid")="" then
call out()
else
session("aid")="" '题目ID
end if
end sub
'-------------------回答--填空题---------------
sub hdtk()
'response.Write("<font color=red>现在在hdtk()函数</font>")
if session("checkpage")="" or session("aid")="" then
call out()
end if
dim ok1,ok2
if request("testansw")=session("akey1") then '回答正确
conn.execute ("update [user] set userWealth=userWealth+"&session("ajj")&",userCP=userCP+"&AnswerSetting(1)&",userEP=userEP+"&AnswerSetting(2)&" where username='"&membername&"'")
aconn.execute ("update [testuser] set userans=userans+1,usersinew=usersinew-"&AnswerSetting(0)&",userok=userok+1 where username='"&membername&"'")
aconn.execute ("update [test] set tcount=tcount+1,okcount=okcount+1 where id="&session("aid"))
session("ok1")=aconn.execute("select userok from [testuser] where username='"&membername&"'")(0)
%>
<table align=center cellspacing=1 cellpadding="3" class=tableborder1 style="width:80%">
<tr>
<td align="center" class=tablebody2><b>你的属性</b></td>
<td colspan="3" class=tablebody2>游戏币：<%=userp-AnswerSetting(0)%> 经验：<%=myuserep+AnswerSetting(2)%> 魅力：<%=myusercp+AnswerSetting(1)%> 现金：<%=mymoney+session("ajj")%> 你的本次答题正确率：
<%
if ( session("ok")=0 and session("ok1")=0 ) or session("ok1")=session("ok") then 'session("ok")=0 上次答 题正确题数
response.write "0"
else
ok1=session("ok1")-session("ok")
ok2=AnswerSetting(4)-ajs
session("ok2")=ok2 '本次答题正确数
session("oklu")=round(ok1/ok2,3) '本次答题正确率
response.write "<font color=red>"&round(ok1/ok2,3)*100
response.write "%</font>"
end if
%>
</td>
</tr>
<tr>
<td width="70" align="center" class=tablebody1><b>奖 金</b></td>
<td width="50" class=tablebody1> <font color="#FF0000">+ <%=session("ajj")%></font></td>
<td width="*" class=tablebody1> <font color=blue>√ <b>您的回答完全正确！</b></font></td>
<td width="70" class=tablebody1 align="center"><a href="z_TestReport.asp?ID=<%=session("aid")%>" title="发现该题的答案有误，我要向管理员举报"><font color=blue>举报此题</font></a></td>
</tr>
<tr>
<td align="center" class=tablebody2><b>题 目</b></td>
<td colspan="3" class=tablebody2><%=session("atitle")%></td>
</tr>
<tr>
<td align="center" class=tablebody1>正确答案</td>
<td colspan="3" class=tablebody1> <%=session("akey1")%> </td>
</tr>
</table>
<tr>
<td class=tablebody2 align="center"><a href="?action=dt">继续下一题</a> <a href="?action=out">不玩了！</a></td>
</tr>
<% else '回答错误
conn.execute ("update [user] set userWealth=userWealth-"&session("ajj")&",userCP=userCP-"&AnswerSetting(1)&",userEP=userEP-"&AnswerSetting(2)&" where username='"&membername&"'")
aconn.execute ("update [testuser] set userans=userans+1,usersinew=usersinew+"&AnswerSetting(0)&" where username='"&membername&"'")
aconn.execute ("update [test] set tcount=tcount+1 where id="&session("aid"))
session("ok1")=aconn.execute("select userok from [testuser] where username='"&membername&"'")(0)
%>
<table align=center cellspacing=1 cellpadding="3" class=tableborder1 style="width:80%">
<tr>
<td align="center" class=tablebody2><b>你的属性</b></td>
<td colspan="3" class=tablebody2>游戏币：<%=userp-AnswerSetting(0)%> 经验：<%=myuserep-AnswerSetting(2)%> 魅力：<%=myusercp-AnswerSetting(1)%> 现金：<%=mymoney-session("ajj")%> 你的本次答题正确率：
<%
if ( session("ok")=0 and session("ok1")=0 ) or session("ok1")=session("ok") then
response.write "0%"
else
ok1=session("ok1")-session("ok")
ok2=AnswerSetting(4)-ajs
session("ok2")=ok2 '本次答题正确数
session("oklu")=round(ok1/ok2,3) '本次答题正确率
response.write "<font color=red>"&round(ok1/ok2,3)*100
response.write "%</font>"
end if
%>
</td>
</tr>
<tr>
<td width="70" class=tablebody1 align="center"><b>奖 金</b></td>
<td width="50" class=tablebody1> <font color="#FF0000">-<%=session("ajj")%></font></td>
<td width="*" class=tablebody1> <font color="#FF0000">× <b>没有答对，同志还需努力！</b></font></td>
<td width="70" class=tablebody1 align="center"><a href="z_TestReport.asp?ID=<%=session("aid")%>" title="发现该题的答案有误，我要向管理员举报"><font color=blue>举报此题</font></a></td>
</tr>
<tr>
<td align="center" class=tablebody2><b>题 目</b></td>
<td colspan="3" class=tablebody2><%=session("atitle")%></td>
</tr>
<tr>
<td align="center" class=tablebody1>正确答案</td>
<td colspan="3" class=tablebody1><%if cint(AnswerSetting(5))=1 then%><%=session("akey1")%><%else%><span lang="zh-cn"> 还要自己多学习哟！ <a href="#" onclick="javascript:window.open('z_testansw.asp?aok=<%=session("aid")%>', 'newwindow', 'height=150, width=250, top=250, left=200, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no')"><font color=fuchsia>花银子买知识吧（点击此链花 <%=AnswerSetting(6)%> 两银子看正确答案）</font></a></span><%end if%></td>
</tr>
</table>
<tr><td class=tablebody2 align="center">
<a href="?action=dt">继续下一题</a> <a href="?action=out">不玩了！</a>
</td></tr>
<% 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")=""
session("ok")=0
session("ok1")=0
aconn.execute ("update [testuser] set intime=now() where username='"&membername&"'") '我来了添加
response.Redirect "z_test.asp?menu=1"
end sub
%>
<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="z_testii.asp?action=dt"
}
else
{
window.setTimeout('getSecs()',1000);
}
}
document.oncontextmenu=new Function('event.returnValue=false;');
document.onselectstart=new Function('event.returnValue=false;');
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -