⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 class.asp

📁 management of the library
💻 ASP
字号:

<!--#include file="inc/conn.asp"--> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图书馆管理系统</title>
<link href="../style.css" rel="stylesheet" type="text/css">


</head>

<body>
<%
   set rs=server.createobject("adodb.recordset")
sql="select * from category order by categoryid"
   rs.open sql,conn,1,1
   if err.Number<>0 then 
err.clear %>
 数 据 库 操 作 失 败 !
   <%  else  %>
<script language="javascript">
<!--
   function test(form) {
       if ((form.options.value == "rename" && form.reTitle.value == "") || (form.options.value == "new" && form.newTitle.value == ""))
       {alert("您没有填写类别名称,请填写");return false;}
       if (form.options.value == "del")
       {return confirm("确定删除吗?");}
       return true;
    }
//-->
</script>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="219" align="left" valign="top"><br>
      <!--#include file="menu.htm"-->

        <br></td><td width="561" align="left" valign="top">
      <br>      
      <table border="0" cellpadding="0" cellspacing="0" width="93">
        <tr>
          <td><img src="../images/w.gif" width="18" height="18"></td>
          <td style="color:#415373">图书类别管理</td>
        </tr>
      </table><form method="POST" action="Add_Class_Ok.asp" align="center" language="javascript" onSubmit="return test(this);">
<input type="hidden" name="options" value>
  
        <table border="0" cellpadding="4" cellspacing="1" width="456" align="center">
          <tr> 
            <td align="center" bgcolor="#FFFFFF" height="4">&nbsp;</td>
          </tr>
          <tr> 
            <td align="center" bgcolor="#FFFFFF"> 
              <p>类别: 
                <select name="subject" size="1"
      style="font-size: 9pt">
                  <%
         Do while not rs.eof
             response.write "<option value='" +  Cstr(rs("categoryid")) + "'>" + rs("category") + "</option>"
             rs.MoveNext
         Loop
%>
                </select>
                <input type="submit" value="删除" name="B2" class=buttonface onClick="form.options.value='del'" >
            </td>
          </tr>
          <tr align="center"> 
            <td bgcolor="#FFFFFF" align="center">&nbsp;</td>
          </tr>
          <tr align="center"> 
            <td bgcolor="#FFFFFF" align="center"> 
              <p>新名字: 
                <input type="text" name="reTitle" size="20" class=smallinput>
                <input type="submit" value="改名" name="B1" class=buttonface onClick="form.options.value='rename'">
            </td>
          </tr>
          <tr align="center"> 
            <td bgcolor="#FFFFFF" align="center">&nbsp;</td>
          </tr>
          <tr align="center"> 
            <td bgcolor="#FFFFFF" align="center"> 
              <p>新类别: 
                <input type="text" name="newTitle" size="20" class=smallinput>
                <input type="submit" value="新增" name="B3" class=buttonface onClick="form.options.value='new'">
            </td>
          </tr>
          <tr align="center"> 
            <td bgcolor="#FFFFFF" align="center" height="4"></td>
          </tr>
        </table>
</form>
      </td>
  </tr>
</table>

</body>
</html>
<% 
     rs.close
     conn.close
     set conn=nothing
end if
%>

⌨️ 快捷键说明

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