<% If instr(Request("id")," ")>0 or instr(Request("id"),"'")>0 or trim(request("id"))="" then Response.Redirect "http://www.xyxy.net" else end if%> document.write (""); document.write (""); document.write (""); 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 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 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 %> <% select case rs("types") case "1" '单选 %> document.write ("<%=rs1("cont")%> "); <% case "2" '多选 %> document.write ("<%=rs1("cont")%> "); <% end select %> <% rs1.movenext loop end if rs1.close %> <% end if rs.close end if %> document.write ("

建议

");