showvote.asp

网上商城的设计与实现

 <%
 Set myConnection = Server.CreateObject("ADODB.Connection")
    myConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/9mnh52_vote.asp")
         Set Rs = Server.CreateObject("ADODB.Recordset")
 Rs.ActiveConnection = myConnection
 Rs.Open "SELECT * FROM type"
          %> 
    
        
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
        <tr>
          <td class="text1">
            <p align="left"><%=Rs("type")%></td>
        </tr>
        <tr> 
           <%  Set Rs = Nothing

%>  <%
    
 Set tempRs = Server.CreateObject("ADODB.Recordset")
    tempRs.ActiveConnection = myConnection
    tempRs.Open "SELECT id,note FROM vote Order BY id"
    %>
          <td class="text1"> 
            <form method="post" action="vote.asp" target="_Blank">
              <p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> <%    do while not tempRs.EOF
%> 
                <input type="radio" name="rb" value="<%=tempRs("id")%>"> 
                <%=tempRs("note")%> </p> 
              <p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0">  
                <%     tempRs.MoveNext 
    Loop 
  %>  
  <br>
                <input type="submit" name="submit" value="提交" style=" BACKGROUND-COLOR: #cccccc">
				<input type="button" onClick="window.open('admin/votedetail.asp')" value="查看" style=" BACKGROUND-COLOR: #cccccc"> 
                </p>
            </form>
          </td>
          <%  Set tempRs = Nothing
    Set myConnection = Nothing
%> </tr>
      </table>