document.write (""); <% on error resume next dim id,rs,chk id=request.querystring("id") if id<>"" then set rs=server.createobject("adodb.recordset") rs.open "select title,types,brstr from V_title where id=cint('"&id&"')",conn,1,1 if not rs.eof then chk=rs("types") %> document.write (""); document.write ("

<%=rs("title")%>

"); <% dim rs1,i set rs1=server.createobject("adodb.recordset") rs1.open "select * from V_vote where lid=cint('"&id&"')",conn,1,1 if not rs1.eof then do while not rs1.eof if i<>0 then if (i mod rs("brstr"))=0 then %> document.write (""); <%end if end if %> document.write (""); <% i=i+1 rs1.movenext loop end if rs1.close %> <% end if rs.close end if %> document.write (" "); <% select case rs("types") case "1" '单选 %> document.write ("<%=rs1("cont")%> "); <% case "2" '多选 %> document.write ("<%=rs1("cont")%> "); <% end select %> document.write ("

','vie','scrollbars=yes,resizable=yes,width=550,height=150');>

");