📄 take1.asp

📁 图书管理系统的所有程序
💻 ASP
字号:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn/conn.asp"-->
<script language="javascript">
  function deleted(id){
   if (confirm("您确定要删除吗？")){
     window.location.href="del.asp?ID="+id;
   }
  }
  function chkfields(){
  if (document.addform.bookname.value==''){
       alert("请选择图书");
	   window.location.href='adminlogin.asp';
    }
	return true;
  }
</script>
<link rel="stylesheet" href="css/style.css" type="text/css">
<title>投票信息设置</title>
<body leftmargin="0" topmargin="0"> 
<%
if session("passed")="" or session("passed")=false then
   response.write "<script language='javascript'>alert('请先登录');</script>"
   response.write "<script language='javascript'>location.href='adminlogin.asp';</script>"
else
%> 
<form action="add.asp" method="post" name="addform" onsubmit="return chkfields();"> 
  <table border="0" cellspacing="1" cellpadding="5" bgcolor="#FFCF00" align="center" width="480"> 
    <tr> 
      <td bgcolor="#FFCF00"><center> 
          <strong>投票信息设置</strong> 
        </center></td> 
    </tr> 
    <tr> 
<%
   set rs=server.CreateObject("adodb.recordset")
   strsql="select * from tb_Poll"
   rs.open strsql,conn,3,3
   countID=rs.RecordCount
   If countID>0 and countID<7 Then
 %> 
      <td bgcolor="#FFFFFF"> <table border="0" cellpadding="4" cellspacing="1" bgcolor="#ffffff" width="100%"> 
          <tr> 
            <td valign="top" bgcolor="#FFFFFF"> <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#6699CC"> 
                <tr> 
                  <td bgcolor="#FFFFFF" align="center"> 当前共<%=CountID%>本图书进行投票 <font color="#6633CC">[*注意：最多可以设置6本图书进行投票]</font> </td> 
                </tr> 
                <tr> 
                  <td bgcolor="#FFFFFF" align="center"> <table border="0" cellspacing="1" cellpadding="4" width="90%" bgcolor="#CCCCCC"> 
                      <%i=1
					  do while not rs.eof%> 
                      <tr> 
                        <td bgcolor="#FFFFFF"><%=i%></td> 
                        <td width="87%" bgcolor="#FFFFFF"><%=rs("bookname")%></td> 
                        <td width="13%" bgcolor="#FFFFFF" align="center"> <input type="button" value="删除" name="del" onclick="deleted(<%=rs("ID")%>)" style="border:1px solid;border-color:#000000;background-color:#FFCC33"> </td> 
                      </tr> 
                      <%
					rs.movenext
					i=i+1
					loop
					rs.close
					set rs=nothing
			  %> 
                    </table></td> 
                </tr> 
                <%else%> 
                <tr> 
                  <td bgcolor="#FFFFFF" align="center">目前还没有选择进行投票的图书</td> 
                </tr> 
                <%end if%> 
                <tr> 
                  <%  if cint(countID) < 6 then '根据记录总数确定是否显示设置投票的入口
				  set rs=conn.execute("select * from tb_bookinfo order by barcode")%> 
                  <td height="37" align="center" valign="middle" bgcolor="#FFFFFF">
				   <select name="bookname"> 
                      <%do while not rs.eof%> 
                      <option value="<%=rs("BookName")%>"><%=rs("BookName")%></option> 
                      <%
						 rs.movenext
						 loop
						 rs.close
						 set rs=nothing
						 %> 
                    </select> 
                    <input type="submit" name="b1" value="添 加" style="border:1px solid;border-color:#000000;background-color:#FFCC33"> </td> 
                  <%end if%> 
                </tr> 
              </table></td> 
          </tr> 
        </table></td> 
    </tr> 
    <tr> 
      <td bgcolor="#ffffff"></td> 
    </tr> 
  </table> 
  <%end if%> 
</form> 
<p></p> 
<div align="center"> 
  <input type="button" value="关闭当前窗口" style="border:1px solid;border-color:#6633CC;background-color:#FFCC33" onClick="window.close()"> 
</div> 
</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -