<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="conn.asp"-->
<%Call say()
Call head()
Call saycarda("智力闯关")

dim n,sid
sid=request.querystring("sid")
n=n+1

response.write "=+智力闯关+=<br/>"	
Randomize
 id = Int((20896) * Rnd + 1) 

 sql = "select top 1 * from title where tmxh="&id
        set rs = server.createobject("adodb.recordset")	
	rs.open sql,connzl,1,1
        if not rs.eof and not rs.bof Then
        
		if saytk=>2 then
Response.write "<form name=""form"" method=""post"" action=""temp.asp?n="&n&"&amp;id="&rs("tmzqda")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"
end if
 response.write "题目:"&rs("tmnr")&"<br/>"
 response.write "选择答案:<select name='answer'><option value='0'>"&rs("tmda1")&"</option>"
if(rs("tmda2")<>"") then
 response.write "<option value='1'>"&rs("tmda2")&"</option>"
end if
if(rs("tmda3")<>"") then
 response.write "<option value='2'>"&rs("tmda3")&"</option>"
end if
if(rs("tmda4")<>"") then
 response.write "<option value='3'>"&rs("tmda4")&"</option>"
end if
if(rs("tmda5")<>"") then
 response.write "<option value='4'>"&rs("tmda5")&"</option>"
end if
if(rs("tmda6")<>"") then
 response.write "<option value='5'>"&rs("tmda6")&"</option>"
end if
 response.write "</select><br/>"
 If saytk<>1 Then%>
<input type="submit" name="Submit" value="确定提交"></form><br/>
<%else%>
<anchor title="确定">确定提交
<go method="post" href="temp.asp?id=<%=rs("tmzqda")%>&amp;n=<%=n%>&amp;p=<%=p%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>">
<postfield name="answer" value="$(answer)"/>
</go></anchor><br/><%
end If
End if
response.write "说明:每一过关奖励金币一个，魅力，才华个1点哦 ~~~<br/>过关失败不扣币"

%>
<!--#include file="../fanhui.asp"--><%


    set rs=nothing   
	connzl.close
	set connzl=Nothing
Call headsay()
%>

