bottom.asp

图书管理系统的所有程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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"><form name="form2" method="post" action="Poll_OK.asp" id="pollform" onSubmit="return chkfields1();"> 
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFCC00"> 
  <tr> 
	<td height="27" align="left"  style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#55BFFF', gradientType='1')"><table width="100%" height="24"  border="0" cellpadding="-2" cellspacing="-2"> 
		<tr> 
		  <td><table width="100%" height="24"  border="0" cellpadding="-2" cellspacing="-2"> 
			  <tr> 
				<td width="37%">&nbsp;投上您宝贵的一票： </td> 
				<td width="63%" align="right"> 
					<%If request.ServerVariables("REMOTE_ADDR")=request.Cookies("IPAddress") Then%> 
					<input name="submit2" type="button" onClick="window.location.href='poll_browse.asp';" style="border:0px solid;border-color:#000000; font-size:12px;background-color:#FFffff; background:background-image" value="点击我查看投票结果"> 
					<%Else%> 
					<input name="submit2" type="submit" style="border:0px solid;border-color:#000000; font-size:12px;background-color:#FFffff; background:background-image" value="点击我确定投票"> 
					<input name="submit2" type="button" onClick="window.location.href='poll_browse.asp';" style="border:0px solid;border-color:#000000; font-size:12px;background-color:#FFffff; background:background-image" value="点击我查看投票结果"> 
					<%End If%> 
				  </td> 
			  </tr> 
			</table></td> 
		</tr> 
	  </table></td> 
  </tr> 
  <tr> 
	<td valign="middle"> <table width="100%" border="0" bordercolordark="#0099FF" bgcolor="#55BFFF" cellpadding="4" cellspacing="1"> 
		<tr> 
<%
For i=1 to 6
If rs.eof Then	
	If i Mod 4>0 Then
		endJ=3-(i Mod 4)
		For j=1 To endJ%> 
		  <td bgcolor="#FFCC00" width="10">&nbsp; </td> 
		  <td bgcolor="#FFCC00" align="left" width="260">&nbsp;</td> 
	<% Next
	End If
	exit For
End If					  
If i Mod 4=0 Then
%> 
		</tr> 
		<tr> 
		  <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> 
<%Else%> 
		  <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> 
<%End If
rs.movenext
Next
%> 
		</tr> 
	  </table> 
	</td> 
  </tr> 
</table> 
</form></td> 
  </tr> 
  <%end if%> 
  <tr> 
    <td> <table border="0" align="center" cellpadding="-1" cellspacing="-1"> 
        <tr> 
          <td><div align="center">本站请用IE5.0或以上版本浏览， 800*600为最佳效果 <br> 
              版权所有：吉林省明日科技有限责任公司 <br> 
              客户信箱：[e-mail]联系电话：[phone]</div></td> 
        </tr> 
      </table></td> 
  </tr> 
</table> 
<script language="javascript">
  function chkfields1(){
    if (document.pollform.myif.value=="")
	{
	alert("请先选择图书进行投票！");
	return false;
	}
	return true;
  }
</script>