📄 z_testii.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="Z_TestConn.ASP"-->
<%
'-----------------
'edit by 绿水青山
'-----------------
session("atime")=0
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您没有进入开心词典的权限，请先登陆或者同管理员联系。"
call dvbbs_error()
else
stats="开心词典 有奖知识问答"
call nav()
call head_var(0,0,"开心词典","Z_test.asp")
dim ars,userp,ajs,intime
set ars=server.createobject("adodb.recordset")
set ars=aconn.execute("select usersinew,js,intime from [testuser] where username='"&membername&"'")
if ars.eof and ars.bof then
userp=0
else
userp=ars(0) '游戏币
ajs=ars(1) '剩余答题数
intime=ars(2) '上次答题时间
end if
ars.close
if userp<=0 then '游戏币用完了
session("checkpage")=""
session("ajj")=""
session("atitle")=""
session("akey1")=""
session("akey1")=""
session("akey2")=""
session("akey3")=""
session("akey4")=""
session("aok")=""
session("aid")=""
session("testlb")=""
session("atime")=0
errmsg=errmsg+"<br>"+"<li>你的游戏币已经用完了,不能再答题了，请去发帖或上传题目挣点游戏币吧！"
founderr=true
call test_err()
else
%>
<table align=center cellspacing=1 cellpadding="3" class=tableborder1>
<tr><th><%=stats%></th></tr>
<tr><td class=tablebody2>
<%
dim AnswerSetting
set ars=aconn.execute("select AnswerSetting from [config]")
AnswerSetting=split(ars(0),"||") '0每回答一题所需游戏币个数 ||1每回答一题魅力值增减值||2每回答一题经验值增减值||3两次玩之间的时间间隔||4答题数||5是否显示正确答案||6花钱买知识所需金钱||7答题是否限时
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
end if
response.Write "</td></tr></table>"
set ars=nothing
set aconn=nothing
call activeonline()
call footer()
'=================================================
'-------------------答题－－判断---------------
sub dt()
'response.Write("<font color=red>现在在dt()函数</font>")
if request("btest")<>"" or session("checkpage")<>"on" then
if AnswerSetting(3)-datediff("n",intime,now())>=1 then
dim timec '还差多少分钟才可以答题
timec=AnswerSetting(3)-datediff("n",intime,now())
session("checkpage")=""
session("ajj")=""
session("atitle")=""
session("akey1")=""
session("akey1")=""
session("akey2")=""
session("akey3")=""
session("akey4")=""
session("aok")=""
session("aid")=""
session("testlb")=""
session("atime")=0
session("atx")=""
session("acount")=""
session("aokcount")=""
errmsg=errmsg+"<br>"+"<li>您上次玩的时间是 ◇ "&intime&" ◇ ,离下一次玩还差 ◇ "&timec&" ◇ 分钟"
founderr=true
call test_err()
else '只在回答第一题的时候执行
aconn.execute ("update [testuser] set js='"&AnswerSetting(4)&"',intime=now() where username='"&membername&"'")
session("checkpage")="on"
call dt1() '出题
end if
else
call dt1() '出题
end if
end sub
'-------------------答题－－显示题目---------------
sub dt1()
'response.Write("<br><font color=red>现在在dt1()函数</font>")
if session("testlb")="" then
session("testlb")=request("testlb")
end if
if ajs<=0 then '本次答题数已经为零了
dim msgdt
msgdt="你已回答"&AnswerSetting(4)&"题，请过"&AnswerSetting(3)&"分钟后再来，谢谢光临！"
response.Write "<script>alert('"&msgdt&"')</script>"
call out()
else
aconn.execute ("update [testuser] set js=js-1 where username='"&membername&"'")
end if
dim ausername
sql="select jj,time,title,key1,key2,key3,key4,ok,id,tx,tcount,okcount,username from [test] where lb="&session("testlb")
ars.CursorLocation=3
ars.open sql,aconn,1,1
Randomize
ars.absolutePosition=Fix(ars.recordcount*Rnd)+1
session("ajj")=ars(0) '本题 奖金
session("atime")=ars(1) '本题 限时
session("atitle")=ars(2) '题目
session("akey1")=ars(3) '
session("akey2")=ars(4) '
session("akey3")=ars(5) '
session("akey4")=ars(6) '
session("aok")=ars(7) '
session("aid")=ars(8) '
session("tx")=ars(9) '
session("acount")=ars(10) '
session("aokcount")=ars(11) '
ausername=ars(12) '题目上传者
ars.close
if session("tx")=0 then '选择题
if cint(AnswerSetting(7))=1 then response.Write "<body onLoad=""window.setTimeout('getSecs()',1)"">"
%>
<form name="form1" method="post" action="z_testii.asp?action=hd">
<table align=center cellspacing=1 cellpadding="3" class=tableborder1 style="width:80%">
<tr>
<td width="70" align="center" class=tablebody2><b>你的属性</b></td>
<td width="600" colspan="4" class=tablebody2>游戏币：<%=userp%> 经验：<%=myuserep%> 魅力：<%=myusercp%> 现金：<%=mymoney%> 你剩余的答题数：<%=ajs%></b></td>
</tr>
<tr>
<td width="70" align="center" class=tablebody1><b>题 号</b></td>
<td width="51" class=tablebody1> <%=session("aid")%> </td>
<td width="105" class=tablebody1><b>本题奖金</b></td>
<td width="101" class=tablebody1><font color="#FF0000">± <%=session("ajj")%> </font></td>
<td width="337" class=tablebody1><span lang="zh-cn"><%if cint(AnswerSetting(7))=1 then%><b>本题限时</b> <%=session("atime")%> 秒 <b>所剩时间</b> <input size=6 name=timespent>秒<%else%>已设置不限时<%end if%></span></td>
</tr>
<tr>
<td width="70" align="center" class=tablebody2><b>题 目</b></td>
<td width="600" colspan="4" align="center" class=tablebody2><table border=0 width="100%" cellspacing=1 class=tablebody2><tr><td><%=htmlencode(session("atitle"))%></td></tr></table></td>
</tr>
<tr>
<td width="70" height="20" align="center" class=tablebody1>
<input type="radio" value=1 name="R1" checked></td>
<td width="600" colspan="4" height="20" class=tablebody1> <%=session("akey1")%> </td>
</tr>
<tr>
<td width="70" height="20" align="center" class=tablebody1><input type="radio" value=2 name="R1"></td>
<td width="600" colspan="4" height="20" class=tablebody1> <%=session("akey2")%> </td>
</tr>
<%if trim(session("akey3"))<>"" then%>
<tr>
<td width="70" height="20" align="center" class=tablebody1><input type="radio" value=3 name="R1"></td>
<td width="600" colspan="4" height="20" class=tablebody1> <%=session("akey3")%> </td>
</tr>
<%end if
if trim(session("akey4"))<>"" then%>
<tr>
<td width="70" height="20" align="center" class=tablebody1><input type="radio" value=4 name="R1"></td>
<td width="600" colspan="4" height="20" class=tablebody1> <%=session("akey4")%> </td>
</tr>
<%end if%>
<tr>
<td width="70" height="20" align="center" class=tablebody2><b>本题属性</b></td>
<td width="600" colspan="4" height="20" class=tablebody2>已应答人数：<%=session("acount")%> 答对人数：<%=session("aokcount")%> 本题上传者：<font color=red><b><%if ausername="nobody" then
response.write "未指定"
else
response.write ausername
end if%></b></td>
</tr>
</table>
<tr><td class=tablebody2 align="center">
<input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2">
</td></tr>
</form>
<% else ' 填空题
if cint(AnswerSetting(7))=1 then response.Write "<body onLoad=""window.setTimeout('getSecs()',1)"">"
%>
<form name="form1" method="post" action="z_testii.asp?action=hdtk">
<table align=center cellspacing=1 cellpadding="3" class=tableborder1 style="width:80%">
<tr>
<td width="70" align="center" class=tablebody2><b>你的属性</b></td>
<td width="600" colspan="4" class=tablebody2> 游戏币：<%=userp%> 经验：<%=myuserep%> 魅力：<%=myusercp%> 现金：<%=mymoney%> 你剩余的答题数：<%=ajs%></td>
</tr>
<tr>
<td width="70" align="center" class=tablebody1><b>题 号</b></td>
<td width="51" class=tablebody1> <%=session("aid")%> </td>
<td width="105" class=tablebody1><b> </b><b>本题奖金</b></td>
<td width="101" class=tablebody1> <font color="#FF0000">± <%=session("ajj")%> </font></td>
<td width="337" class=tablebody1><span lang="zh-cn"><%if cint(AnswerSetting(7))=1 then%><b>本题限时</b> <font color="#FF0000"><%=session("atime")%></font> 秒 <b>所剩时间</b> <input size=6 name=timespent> 秒<%else%>已设置不限时<%end if%></span></td>
</tr>
<tr>
<td width="70" align="center" class=tablebody2><b>题 目</b></td>
<td width="600" colspan="4" align="center" class=tablebody2><table border=0 width="96%" cellspacing=1><tr><td><%=htmlencode(session("atitle"))%></td></tr></table></td>
</tr>
<tr>
<td width="70" align="center" class=tablebody1>答案：</td>
<td width="600" colspan="4" class=tablebody1> <input type="text" name="testansw" size="50"></td>
</tr>
<tr>
<td width="70" align="center" class=tablebody2><b>本题属性</b></td>
<td width="600" colspan="4" class=tablebody2>已应答人数：<%=session("acount")%> 答对人数：<%=session("aokcount")%> 本题上传者：<font color=red><b>
<%
if ausername="nobody" then
response.write "未指定"
else
response.write ausername
end if
%></b></td>
</tr>
</table>
<tr><td class=tablebody2 align="center">
<input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2">
</td></tr>
</form>
<%
end if
end sub
'---------------回答---选择题--------------
sub hd()
'response.Write("<font color=red>现在在hd()函数</font>")
if session("checkpage")="" or session("aid")="" then
call out()
end if
dim ok1,ok2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -