smallclass_add.asp

来自「web进销存m长审核合格后才能开通帐号。如果不想上载源码」· ASP 代码 · 共 115 行

ASP
115 行
字号 
<%
if session("username")="" then
%>
<script language="javascript">
top.location.href="../login.asp"
</script>
<%  
  response.end
end if
%>
<!-- #include file="../conn2.asp" -->
<!-- #include file="../const.asp" -->

<html>
<head>
<title><%=dianming%> - 员工管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style2.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE2 {font-size: 14px}
.STYLE3 {font-size: 12px}
a:link {
	color: #0000CC;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
body,td,th {
	color: #0033CC;
}
-->
</style>
</HEAD>

<BODY>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="30" class="a1 TextTitle"><div align="center">大类管理</div></td>
  </tr>
</table>
<p align="center">
  <%
if fla5="0" then
%>
  <br>
  <font color="#FF0000">你不具备此权限，请与管理员联系！</font></p>
<%  
  response.end
end if
'<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/access.asp" -->
<fieldset>
<legend></legend>

<body>
<form name="form1" method="post" action="">
  <table width="100%" border="1">
    <tr>
      <th class="a1 TextTitle" scope="col">小类填加</th>
    </tr>
  </table>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <table width="100%" border="1">
    <tr>
      <th class="a1" scope="col"><div align="right" class="STYLE1">填写新小类名称&nbsp;</div></th>
      <th class="a1 STYLE1" scope="col"><div align="left"> &nbsp;选择所属大类</div></th>
    </tr>
    <tr>
      <td height="28" align="right" valign="middle"><div align="right"><input name="smallclassn" type="text" id="smallclassn">
        </div></td>
      <td><label>
	     <%
	sql="select * from bigclass order by id"
	set rs_bigclass=conn.execute(sql)
	%>
	  <select name="bigclassid" id="bigclassid" onChange="form2.submit()">
        <option value="">所有大类</option>
        <%
	do while rs_bigclass.eof=false
	%>
        <option value="<%=rs_bigclass("id")%>" selected="selected"<%if trim(cstr(rs_bigclass("id")))=nowbigclass then%><%end if%>><%=rs_bigclass("bigclass")%></option>
        <%
	  rs_bigclass.movenext
	loop
	%>
      </select>
	  <input type="submit" name="Submit" value="提交">
      </label></td>
      <% nowbigclassid=request("bigclassid")
	    fnbid=Cint(nowbigclassid) '将字符转换为数字
		nowsmallclass=request("smallclassn")
	  %>
      <% 
	sql="INSERT INTO smallclass ( smallclass, id_bigclass )  values('"&nowsmallclass&"',"&fnbid&")"

		 ' sql="insert into smallclass(id_bigclass) values('"&fnbid&"')"
    conn.execute(sql)
%>
    </tr>
  </table>
  <p>&nbsp;</p>
</form>
<p align="center" class="TextTitle STYLE2"> |<a href="smallclass.asp">小类列表 </a>| <a href="smallclass_modi.asp">修改小类</a> |<a href="smallclass_del.asp"> 删除小类</a> | 大类列表 | </p>
</body>
</html>

smallclass_add.asp - 源码说明

本页面展示了「web进销存m长审核合格后才能开通帐号。如果不想上载源码」中的 smallclass_add.asp 源码文件，采用 ASP 编程语言编写，共 115 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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