survey.asp

asp的新闻网站

		                    
		                      <%'调查选向前景色
		                    if trim(fontcolor)="" then
		                    fontcolor="#ffffff"
		                    end if
		                    
                         set rs=server.CreateObject ("adodb.recordset")
                            sql="select * from news2_survey where visible='1' and menuid='"&menuid&"' order by surveyid"
                          
                            rs.Open sql,conn,2,3
                            if not rs.EOF then
                        
                            i=0                            
                            %>
                           
                                   
                                  <td align="center">     
                                    <table border="0" cellpadding="0" width="94%" cellspacing="2">     
										<form id=form2 name=form2 action="<%=myip%>include/updatesurvey.asp" method=post>
                                      <%
                                      while not rs.EOF 
											i=i+1
                                      if i=1 then
                                     surveyId=rs("surveyid")
                                       %>
                                      <tr>     
                                        <td >&nbsp;&nbsp;<font color=<%=fontcolor%>><%Response.Write trim(RS("surveytitle"))%>                                        
                                        </font></td>    
                                      </tr>    
                                      <%end if%>                                        
                                      <%
                                      if i<>1 then
                                      %>
                                       <tr>    
                                         <td><font color=<%=fontcolor%>><input type="radio" value="<%=rs("surveyid")%>" name="radio1">[<%=i-1%>]<%=rs("surveytitle")%></font>
                                         </td>    
                                       </tr>
                                       <%
                                      end if
                                      %>
                                      <%
							    		rs.MoveNext 
								    	wend
										%>
                                      <tr>    
                                        <td>    
                                          <table border="0" cellpadding="0" width="100%">    
                                            <tr>    
                                              <td valign="top" align="center">
                                              <a style="cursor:hand"  onClick="javascript:checkstar2(this,'<%=surveyId%>','<%=myip%>','<%=menuid%>');">
                                              <img type="button" border="0" src="<%=myip%>images/tijiao.gif" >     
                                              </a>
                                              </td>    
                                              <td valign="top" align="center"><img border="0" src="<%=myip%>images/chakan.gif"  style="cursor:hand" onClick="javascript:view2('<%=surveyId%>','<%=myip%>','<%=menuid%>');">
                                              </td>    
                                            </tr>    
                                          </table>    
                                         </td>    
                                      </tr>  
                                      </form>   
                                    </table>    
                                   </td> 
                              
                         
   
						<script language="javascript">
						function checkstar2(form2,surveyId,myip,menuid)
						{
						var st1;
						var i;
						st1=0;
						for(i=0;i<window.form2.radio1.length;i++)
						if(window.form2.radio1[i].checked==true)
								{
								window.open (myip+"include/updatesurvey.asp?radio1=" + window.form2.radio1[i].value + "&surveyId=" + surveyId+"&menuid="+menuid,"new","scrollbars=yes,toolbar=no,menubar=no,top=0,left=100,width=500,height=500");
								return(true);
								}
						else
							;
							alert("请确定一个选项！");
							return false;
							
						}

						function view2(surveyId,myip,menuid)
						{
						window.open (myip+"include/viewsurvey.asp?surveyId=" + surveyId+"&menuid="+menuid,"_blank","toolbar=no,menubar=no,top=0,left=100,width=500,height=500,scrollbars=yes");
						}
						</script>
                        <%end if%>