voteindex.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<SCRIPT language="JavaScript" type="text/javascript">
// Begin vote
      function vote(vote)
      {
        url = 'vote.asp?stype=view';
        window.open(url,vote,"width=500,height=280,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
      }
	  function test(thefrm)
	  {
	  for (var i=0 ;i<thefrm.Options.length;i++){
	    tempobj=thefrm.Options[i]
		if (tempobj.checked==true){
		result=tempobj.value
		break;
		}
	   }
    var url2= 'vote.asp?options='+result;
   window.open(url2,'vote',"width=500,height=280,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
	  }
    // End vote-->
</script> 
      <%
		dim rs,i
		set rs=conn.execute("SELECT * FROM vote where IsChecked=1 ") 
		if rs.eof then
	  %>
      暂无投票 
      <%else%>
	<table width="173" border="0" cellspacing="0" cellpadding="4" style="font-size:12px;padding:5px;line-height:1.5;">
        <tr> 
          <td width="100%" height="24"><p><%=rs("Title")%>:</p></td>
        </tr>
        <form action="vote.asp" target="newwindow" method=post name=research>
          <tr> 
            <td valign=top width="100%"> 
		  <%
			for i=1 to 8
				if rs("Select"&i)<>"" then
			%>
						  <input style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>> 
						  <%=i%>.<%=rs("Select"&i)%><br> 
						  <%
				end if
			next
			%>
            </td>
          </tr>
          <tr> 
            <td width="100%" height=30 align=center> <input  type=button value="投一票" class="t" onClick="javascript:test(this.form);this.blur()"  >
              &nbsp;&nbsp;
              <input onClick="javascript:vote();this.blur()" type="button" value="看结果" class="t"  > 
            </td>
          </tr>
        </form>
      </table>
      <%end if%>
	<%
	rs.close()
	set rs=nothing
	%>
	  <br>