📄 addbtype.aspx

📁 一个完整的办公自动化源码,免费提供给大家下载

💻 ASPX

字号:

<%@ Page Language="VB" ContentType="text/html"  %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<!--#include file="ckqx.aspx" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body  bgcolor="#CCCCCC">
<form runat="server">
<table width="549" height="24" border="0" cellpadding="0" cellspacing="0" background="../pic/002.png">
  <tr> 
    <td><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp; <strong>添加部门</strong></font></td>
  </tr>
</table>
<table width="549" height="400" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
  <tr> 
    <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td>
              <table align="center">
                <tr valign="baseline"> 
                  <td nowrap align="right">部门名称:</td>
                  <td> <asp:textbox BorderStyle="solid" BorderWidth="1" ID="ztype" runat="server" TextMode="SingleLine" /></td>
                </tr>
                <tr valign="baseline"> 
                  <td nowrap align="right">&nbsp;</td>
                  <td> <asp:button ID="zadd" runat="server" Font-Size="10" Text="添加" OnClick="zscadd" /></td>
                </tr>
              </table>
              </td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
</form>
</body>
</html>
<script language="VB" runat="server">
	sub page_load(s as object,e as eventargs)
		if not (checkqx("a")) then response.redirect("error.aspx")
	end sub
	sub zscadd(s as object,e as eventargs)
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../office.mdb"))
		conn.open()
		dim objcmd as new oledbcommand("insert into btype (btype) values (?)",conn)
		objcmd.parameters.add("@btype",oledbtype.char).value=ztype.text
		objcmd.executenonquery()
		conn.close()
		response.Redirect("editbtype.aspx")
	end sub
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -