.net编程

开发平台：
Visual Basic

bumen.asp：源码内容
							<!--#include file="../login_check.asp"-->
<!--#include file="../add/ocdb/ocdb.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>IT固定资产登记管理系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="bumen_files/main.css" type=text/css rel=stylesheet>
<SCRIPT language=javascript src="bumen_files/selectcity.js"></SCRIPT>
<SCRIPT language=JavaScript src="bumen_files/validate.js" 
type=text/JavaScript></SCRIPT>
<SCRIPT language=JavaScript src=""></SCRIPT>
<SCRIPT language=javascript src="bumen_files/init.js"></SCRIPT>
<STYLE type=text/css>TD {
	FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
BODY {
	FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
SELECT {
	FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
A {
	FONT-SIZE: 9pt; COLOR: #336699; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
A:hover {
	FONT-SIZE: 9pt; COLOR: #ff0000; FONT-FAMILY: "宋体"; TEXT-DECORATION: underline
}
</STYLE>
<SCRIPT language=javascript>
<!--
function Juge(myform)
{
	if (myform.Supplier_name.value == "")
	{
		alert("名称不能为空！");
		myform.Supplier_name.focus();
		return (false);
	}
}
function SelectAll1() {
	for (var i=0;i<document.selform1.selBigClass1.length;i++) {
		var e=document.selform1.selBigClass1[i];
		e.checked=!e.checked;
	}
}
function SelectAll2() {
	for (var i=0;i<document.selform2.selBigClass2.length;i++) {
		var e=document.selform2.selBigClass2[i];
		e.checked=!e.checked;
	}
}
//-->
</SCRIPT>
<META content="MSHTML 6.00.6000.17023" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 rightMargin=0><LINK href="bumen_files/style.css" 
type=text/css rel=stylesheet>
<STYLE type=text/css>BODY {
	MARGIN-BOTTOM: 0px; MARGIN-RIGHT: 0px
}
#sj {
	Z-INDEX: 1; LEFT: 646px; WIDTH: 55px; POSITION: absolute; TOP: -5px; HEIGHT: 20px
}
#sj1 {
	Z-INDEX: 2; LEFT: 620px; VISIBILITY: hidden; WIDTH: 150px; POSITION: absolute; TOP: 0px; HEIGHT: 20px; BACKGROUND-COLOR: #cccccc
}
#jichu {
	Z-INDEX: 3; WIDTH: 1px; POSITION: absolute; HEIGHT: 2px
}
#menu {
	Z-INDEX: 3; LEFT: 3px; WIDTH: 700px; POSITION: absolute; TOP: -20px; HEIGHT: 20px; BACKGROUND-COLOR: #cccccc
}
.STYLE2 {
	COLOR: #0066cc
}
#man1 {
	Z-INDEX: 4; LEFT: 260px; VISIBILITY: hidden; WIDTH: 198px; POSITION: absolute; TOP: 0px; HEIGHT: 20px; BACKGROUND-COLOR: #cccccc
}
</STYLE>
<SCRIPT type=text/JavaScript>
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
//-->
</SCRIPT>
<TABLE width="100%">
  <TBODY>
  <TR>　　 
    <TD align=middle width="40%"><FONT 
      color=#ff0000>admin&nbsp;admin</FONT>&nbsp;您的权限为: 超级管理员&nbsp;登陆：62 次 </TD>
    <TD align=middle width="40%">
      <SCRIPT language=JavaScript src="bumen_files/date.js">
              </SCRIPT>
      <SCRIPT language=JavaScript src="bumen_files/time.js">
              </SCRIPT>
      <SCRIPT language=JavaScript src="bumen_files/init.js">
              </SCRIPT>
      <SPAN id=thename style="FONT-SIZE: 10pt; COLOR: navy" name="thename" 
      align="center">dafdsfasd</SPAN>
      <SCRIPT language=javascript>
  showtime(); 
</SCRIPT>
       </TD>
    <TD align=middle width="20%"><A 
      href="http://edun.com.cn/user_edit.asp">修改个人资料</A> &nbsp;<A href="../logout.asp" target="_parent">注销登陆</A> </TD></TR>
  <TR>
    <TD align=middle colSpan=3>
      <FIELDSET style="WIDTH: 96%">
      <TABLE width="100%" align=center border=0>
        <TBODY>
        <TR>
          <TD width="100%" colSpan=9 height=50>
            <DIV id=jichu>
            <DIV id=menu>
            <TABLE id=tb_menu width="100%" border=0>
              <TBODY>
              <TR>
                <TD width="9%"><A href="http://edun.com.cn/it.asp">设备登记</A> 
</TD>
                <TD width="9%"><A 
                href="http://edun.com.cn/list.asp">所有设备</A></TD>
                <TD width="9%"><A 
                href="http://edun.com.cn/bumen.asp">部门设定</A></TD>
                <TD width="9%"><A 
                href="http://edun.com.cn/sbbh.asp">设备编码</A></TD>
                <TD onMouseUp="MM_showHideLayers('man1','','hide')" 
                onmouseover="MM_showHideLayers('man1','','show')" 
                  width="9%"><A href="http://edun.com.cn/bumen.asp#">责任人</A></TD>
                <TD width="9%"><A 
                  href="http://edun.com.cn/sbmc.asp">设备类别</A><A 
                  href="http://edun.com.cn/man.asp"></A></TD>
                <TD width="9%"><A href="http://edun.com.cn/unit.asp" 
                  target=main>计量单位</A></TD>
                <TD width="9%"><A 
                  href="http://edun.com.cn/xianshiqi.asp">显示器</A></TD>
                <TD width="9%"><A href="http://edun.com.cn/bjb.asp">笔记本</A></TD>
                <TD width="9%"><A 
                  href="http://edun.com.cn/soft_kind.asp">程序种类</A></TD>
                <TD onMouseUp="MM_showHideLayers('sj1','','hide')" 
                onmouseover="MM_showHideLayers('sj1','','show')" width="9%"><A 
                  href="http://edun.com.cn/bumen.asp#">所有事件</A> 
            </TD></TR></TBODY></TABLE></DIV>
            <DIV id=sj1>
            <TABLE width="100%" border=0>
              <TBODY>
              <TR>
                <TD width="50%"><A 
                href="http://edun.com.cn/sj2.asp">按部门排序</A></TD>
                <TD width="45%"><A 
                href="http://edun.com.cn/sj.asp">按日期排序</A></TD></TR></TBODY></TABLE></DIV>
            <DIV id=man1>
            <TABLE width="100%" border=0>
              <TBODY>
              <TR>
                <TD><A href="http://edun.com.cn/man.asp">按ID排序</A> <A 
                  href="http://edun.com.cn/man1.asp">按部门排序</A> <A 
                  href="http://edun.com.cn/man2.asp">按姓名排序</A></TD></TR></TBODY></TABLE></DIV></DIV></TD></TR></TBODY></TABLE></FIELDSET> 
    </TD></TR></TBODY></TABLE>
<TABLE borderColor=#d6d3ce cellSpacing=0 width="98%" align=center border=1>
  <TBODY>
  <TR>
    <TD vAlign=top align=middle>
      <FIELDSET style="WIDTH: 98%"><LEGEND>添加部门列表</LEGEND>
      <TABLE borderColor=#d4d0c8 cellSpacing=0 cellPadding=0 width="70%" 
      border=0>
        <TBODY>
        <TR class=but>
          <TD onMouseUp="this.className='but'" class=but 
          onmousedown="this.className='tddown'" 
          onmouseout="this.className='but'" align=middle width="10%" colSpan=3 
          height=18>部门</TD></TR>
        <TR>
          <FORM name=bm2 onSubmit="return Juge(this)" action=bumen_add.asp 
          method=post>
          <TD align=middle width="30%" height=18>所属部门 <SELECT id=lanmu size=1 
            name=lanmu>
			<option<%if request("submenu")="" then%> selected<%end if%> value="">请选择部门</option>
					  <%
xiayou="├"
you="└"
xia="│"
'set rs1=conn.execute("select top 1 * from class order by cwar")
'maxjibie=rs1("cwar")
sql2="select * from class order by csub,lmcd"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,3
while not rs2.eof
if rs2("cwar")=0 then
jibie=""
else
jibie=you
for i=1 to rs2("cwar")-1
jibie=xia&jibie
next
end if
%>
<option<%if rs2("cwar")=0 then%> style="color:#FF0000"<%end if%> value="<%=rs2("id")%>"<%if int(request("submenu"))=int(rs2("id")) then%> selected<%end if%>><%=jibie%><%=rs2("cname")%></option>
<%
rs2.movenext
wend
%></SELECT></TD>
          <TD align=middle width="25%"><INPUT type=hidden value=add 
            name=action> <INPUT size=10 name=cname id=cname> </TD>
          <TD align=middle width="10%"><INPUT class=button type=submit value=添加></TD></FORM></TR></TBODY></TABLE></FIELDSET> 
      <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD align=middle height=25>部 门 列 表</TD></TR></TBODY></TABLE>
      <TABLE borderColor=#d4d0c8 cellSpacing=0 cellPadding=0 width="70%" 
      align=center border=1>
        <TBODY>
        <TR>
          <TD vAlign=top width="50%">
            <FORM name=selform1 action=bumen.asp method=post>
            <TABLE borderColor=#d4d0c8 cellSpacing=0 cellPadding=0 width="100%" 
            border=0>
              <TBODY>
              <TR class=but>
                <TD onMouseUp="this.className='but'" class=but 
                onmousedown="this.className='tddown'" 
                onmouseout="this.className='but'" align=middle width="10%" 
                colSpan=2 height=18>所有部门</TD>
                <TD onMouseUp="this.className='but'" class=but 
                onmousedown="this.className='tddown'" 
                onmouseout="this.className='but'" align=middle width="5%" 
                height=18>操 作</TD></TR>
			<% 
			rs2.MoveFirst
while not rs2.eof
if rs2("cwar")=0 then
jibie=""
else
jibie=you
for i=1 to rs2("cwar")-1
jibie=xia&jibie
next
end if
%>
              <TR>
                <TD onMouseUp="this.className='but'" class=but 
                onmousedown="this.className='tddown'" 
                onmouseout="this.className='but'" width="60%" colSpan=2 
                height=18><A 
                  href="http://edun.com.cn/bumen.asp?id=3&amp;pid=1&amp;action=edit"><%=jibie%><%=rs2("cname")%></A></TD>
                <TD onMouseUp="this.className='but'" class=but 
                onmousedown="this.className='tddown'" 
                onmouseout="this.className='but'" align=middle 
                  height=18><INPUT id=selBigClass1 type=checkbox value=3 
                  name=selBigClass1></TD></TR>
<%
rs2.movenext
wend
rs2.close
set rs2=nothing %>	
              <TR>
                <TD align=right colSpan=2 height=22><INPUT id=checkbox1 
                  onclick=javascript:SelectAll1() type=checkbox value=checkbox 
                  name=checkbox1> 选择/反选 <INPUT onClick="{if(confirm('此操作将删除该信息！nn确定要执行此项操作吗？')){this.document.selform1.submit();return true;}return false;}" type=submit value=删除 name=action2> 
                  <INPUT type=hidden value=del1 
            name=action></TD></TR></TBODY></TABLE></FORM></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD align=middle colSpan=3 
height=50></TD></TR></TBODY></TABLE></FORM></TR></TABLE>
<TABLE cellSpacing=0 cellPadding=4 width="100%" border=0>
  <TBODY></TBODY></TABLE></TBODY></TABLE>
<P>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
  <TBODY>
  <TR vAlign=center>
    <TD align=middle width="100%">
      <STYLE type=text/css>TD {
	FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
BODY {
	FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
SELECT {
	FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
A {
	FONT-SIZE: 9pt; COLOR: #336699; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
A:hover {
	FONT-SIZE: 9pt; COLOR: #ff0000; FONT-FAMILY: "宋体"; TEXT-DECORATION: underline
}
</STYLE>
      <HR width="90%" SIZE=1>
      <P style="LINE-HEIGHT: 100%" align=center><FONT 
      color=#666666>声明：本系统版权为<B>爱登堡电梯</B>所有，您只有使用权！无权发布、出售！<BR>技术支持QQ 273504456 
      EMAIL:PXL@Edun.com.cn<BR>最佳浏览1024*768,IE5.0以上 
</FONT></P></TD></TR></TBODY></TABLE></P></BODY></HTML>

						