botom_j.asp

《网上图书订购系统》 1.后台数据库：SQL Server 2000 2.在IIS服务器中新建站点

<table width="799" border="0" cellpadding="-1" cellspacing="-1">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql_rs = "SELECT * FROM tb_Poll ORDER BY ID ASC"
rs.open sql_rs,conn,3
%>
  <%if not rs.eof then%>
  <tr>
      <td align="center">
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFCC00">
		      <tr>
		          <td align="left"  style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#55BFFF', gradientType='1')">投上您宝贵的一票：</td>
		      </tr>
		      <form name="form2" method="post" action="Poll_OK.asp" id="pollform" onSubmit="return chkfields1();">
		      <tr>
                  <td valign="middle">
				      <table width="100%" border="0" bordercolordark="#0099FF" bgcolor="#55BFFF" cellpadding="4" cellspacing="1">
				          <tr>
                          <%
				          j=1
				          DO WHILE NOT RS.EOF
				          %>
                              <td bgcolor="#FFCC00" width="10"> 
                                  <input name="myif" type="radio" value="<%=rs("ID")%>">
							  </td>
                              <td bgcolor="#FFCC00" align="left" width="260">&nbsp;<%=rs("bookname")%></td>
                  <% 
				  rs.MoveNext()
				  
				  if j mod 3 = 0 then
				   %>
				   </tr>
				   <tr>
				<%
				  end if
				  j=j+1
				LOOP
					 if j = 4 or j=7 and rs.eof then
					 else
					      for b=1 to (3-((j-1) mod 3))
					         response.write "<td width=10 bgcolor=#FFCC00>&nbsp;</td><td widht=260 bgcolor=#FFCC00>&nbsp;</td>"
					      next
					 end if
 				%>
				</tr>
               </table>
			   	<%if rs.recordcount>0 then%>
				<table width="799" border="0">
				 <tr>
				    <td colspan="2">&nbsp;<input type="submit" value="提交" style="border:1px solid;border-color:#000000;background-color:#FFffff"></td>
				 </tr>
			    </table>
				<%end if%>
            </td>
          </tr>
		</form>
        </table>
    </td>
  </tr>
  <%end if%>
  <tr>
    <td>
	<hr width="799" align="left">
	   <table border="0" align="center" cellpadding="2" cellspacing="2">
        <tr>
          <td valign="middle" height="80"><div align="center"><font size="2">本站请用IE4.0或以上版本浏览， 800*600为最佳效果 <br>
              版权所有：长春市明日科技有限责任公司 <br>
              客户信箱：[e-mail] </font><font size="2"> 联系电话：[phone]</font></div>
		  </td>
        </tr>
       </table>
	 </td>
  </tr>
</table>
<script language="javascript">
  function chkfields1(){
    if (document.pollform.myif.value=="")
	{
	alert("请先选择图书进行投票！");
	return false;
	}
	return true;
  }
</script>