typeadd.asp

来自「教育管理系统」· ASP 代码 · 共 117 行

ASP
117 行
字号 
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<%
dim typeid,typename
typeid = Request.QueryString("typeid")
typename = Request.QueryString("typename")
%><link rel="stylesheet" type="text/css" href="css/style.css">
<body bgcolor="#666666">
<center>
  <form name="form1" method="post" action="typesave.asp">
    <table border="0" cellspacing="0" width="600" cellpadding="0" bgcolor="#333333">
      <tr bgcolor="#333333"> 
        <td width="100%" height="20"> 
          <p align="center"><b><font
      color="#FFFFFF"><%=typename%> 下的子类</font></b> 
        </td>
      </tr>
    </table>
    <table width="600" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000">
      <tr> 
        <td bordercolor="#FFFFFF"> 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td width="150"> 
                <div align="right">请输入子级类名：</div>
              </td>
              <td> 
                <input type="text" name="types" class="smallinput" size="30" maxlength="50">
              </td>
            </tr>
            <tr> 
              <td width="150">&nbsp;</td>
              <td> 
                <input type="submit" name="Submit" value=" 添  加 " class="buttonface">
                <input type="reset" name="Submit2" value=" 重  填 " class="buttonface">
                <input type="hidden" name="typeid" value="<%=typeid%>">
                <input type="hidden" name="typename" value="<%=typename%>">
              </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
    </form>
  <p><a href="fen.asp"><font face="Webdings" size="4">7</font>反回父级分类表</a></p>
  <table border="0" cellspacing="0" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0">
    <tr bgcolor="#333333"> 
      <td width="100%" height="20"> 
        <p align="center"><b><font
      color="#FFFFFF"><%=typename%> 子类列表</font></b> 
      </td>
    </tr>
  </table>
  <table width="600" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td bgcolor="#000000" height="1"></td>
    </tr>
  </table>
  <table width="600" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td bgcolor="#000000" width="1"></td>
      <td> &nbsp;&nbsp;<font color="#FF0000"><b>子类名称</b></font></td>
      <td width="100"> 
        <div align="center"><b><font color="#FF0000">修改</font></b></div>
      </td>
      <td width="100"> 
        <div align="center"><font color="#FF0000"><b>删除</b></font></div>
      </td>
      <td bgcolor="#000000" width="1"></td>
    </tr>
  </table>
  <%
dim bentop,strSQL
strSQL ="SELECT * FROM type where zhuid='"&typeid&"' ORDER BY typeid DESC"
Set bentop = Server.CreateObject("ADODB.Recordset")
bentop.open strSQL,Conn,0,1
if bentop.eof then
response.write "<font color='#0080C0'>"&typename&" 还没有任何子级分类</font>"
else
do while not bentop.eof
if not bentop.eof then
%>
  <table width="600" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td bgcolor="#000000" width="1"></td>
      <td>&nbsp;&nbsp;<%=bentop("type")%></td>
      <td width="100"> 
        <div align="center"><a href="typeedit.asp?typeid=<%=bentop("typeid")%>&typeids=<%=typeid%>&typename=<%=typename%>">修改</a></div>
      </td>
      <td width="100"> 
        <div align="center"><a href="typedel.asp?typeid=<%=bentop("typeid")%>">删除</a></div>
      </td>
      <td bgcolor="#000000" width="1"></td>
    </tr>
  </table>
  <%bentop.movenext 
  end if   
loop 
bentop.close
set bentop=nothing
end if%>
  <table width="600" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
    <tr>
      <td height="1"></td>
    </tr>
  </table>
  <table width="600" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td>
        <div align="right"><a href="typeadd.asp?typeid=<%=typeid%>&typename=<%=typename%>">刷 
          新</a></div>
      </td>
    </tr>
  </table>
    
  <font color="#FF0000">注：如删除子类，其添加到其子类下的软件将一同删除，请确认清楚后才进行操作！！ </font> 
</center>

typeadd.asp - 源码说明

本页面展示了「教育管理系统」中的 typeadd.asp 源码文件，采用 ASP 编程语言编写，共 117 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与教育管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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