<% Sql="select top 1 dc_id,dc_title,dc_type from diaocha where dc_status='1' order by start_time desc" set RS=server.createobject("ADODB.Recordset") RS.open Sql,conn,3,1 if not RS.EOF then dc_id=RS.Fields("dc_id") dc_title=RS.Fields("dc_title") dc_type=RS.Fields("dc_type") end if response.write("document.writeln(""

"&dc_title&"
") Sql="select * from choice where dc_id='"&dc_id&"' order by choice_id" set RS_choice=server.createobject("ADODB.Recordset") RS_choice.open Sql,conn,3,1 if not RS_choice.EOF then do while not RS_choice.eof choice_id=RS_choice("choice_id") choice=RS_choice("choice") 'counter=RS_choice("counter") if dc_type="1" then Response.Write(""&choice&" ") else Response.Write(""&choice&" ") end if RS_choice.movenext loop end if Response.Write("
	查看结果

"");") %>