<% If request("voteID")="" Then response.redirect"ipage.asp" End If %> <% dim voteID dim mode dim ip dim rs,sql voteID=request("voteID") mode=request("mode") ip=request("ip") set rs=Server.CreateObject("Adodb.Recordset") sql="select voteID,votename,s1,s2,s3,s4,s5 from jjh_vote where voteID="&request("voteID") rs.open sql,conn,1,1 %> 调查引擎
<%=rs("votename")%>
<% If rs("s3")<>"" Then response.write"" End If If rs("s4")<>"" Then response.write"" End If If rs("s5")<>"" Then response.write"" End If If rs("s6")<>"" Then response.write"" End If conn.close set conn=nothing rs.close set rs=nothing %>
<%=rs("s1")%>
<%=rs("s2")%>
"&rs("s3")&"
"&rs("s4")&"
"&rs("s5")&"
"&rs("s6")&"