📄 list.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：类别信息
'参数：ID 当前类别ID，ParentID 上级类别ID
'作者：董力勤
'日期: 2003-11-29 15:18
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/md5.asp"-->

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<script src="../js/user_select.js"></script>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
 function change_role(userid){
	Re_str = showModalDialog("change_role.asp?userid="+userid, "", "dialogWidth:32em; dialogHeight:18em; center: Yes; scroll:No; resizable: No; status: No; help: No;");
	if (Re_str!='') {
		document.form3.Sdep.value=Re_str.split("|")[0];
		document.form3.srole.value=Re_str.split("|")[2];
		document.form3.infoid.value=Re_str.split("|")[1];
		document.form3.addedit_subed3.value='1';
		form3.submit();
	}
}

function role_add_del(form){
 	addlist=form.useraddlist.value;
 	dellist=form.useraddlist.value
 	strusers=users.join(",");
	strtmpusers = showModalDialog("role_selectuser.asp?yxrylb="+strusers, "", "dialogWidth:32em; dialogHeight:18em; center: Yes; scroll:No; resizable: No; status: No; help: No;")
	if (strtmpusers!=""){
	    strtmpusers=strtmpusers.split("_")[0]
	    tmpusers=strtmpusers.split(",");
	    if (strtmpusers != ""){
		str=","+strusers+","
		for(i=0;i<tmpusers.length;i++) {//判断新增加的成员
		  k=str.indexOf(","+tmpusers[i]+",");
		  if (k==-1){
		    if (addlist=="") addlist = tmpusers[i];
		    else addlist += ","+tmpusers[i];
		  }
		}
		form.useraddlist.value=addlist;
	    }
	    if (strusers != ""){
		str=","+strtmpusers+","
		for(i=0;i<users.length;i++) {//判断被删除的成员
		  k=str.indexOf(","+users[i]+",");
		  if (k==-1){
		    if (dellist=="") dellist = users[i];
		    else dellist += ","+users[i];
		  }
		}
		form.userdellist.value=dellist;
	    }
	    form.submit();
	}
}

function selectmanager(form){
	userid=SelectUser()
	if (userid) {
		form.Manager_Add.value=userid.split("_")[0]
		form.Manager.value=userid.split("_")[1]
	}
}
//-->
</script>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
	dim sql,rs,ParentID
	dim ID,Name
	ID=request("id")
	if ID<>"" and isnumeric(ID) then

	'''''''''''''修改类别
	 	if request.form("Name")<>"" then
			sql="update TbioaBusinessSort set Name='"&crequest("Name")&"'"
			if request.form("ParentID")<>"" then sql=sql & ",ParentID=" & request.form("ParentID")
			sql=sql & " where ID=" & ID
			oConn.execute sql
			response.write"<script>parent.frames.Left.location.reload();</script>"
			response.write"<script>location='?id="&ID&"';</script>"
		end if
	''''''''''''''增加类别
	 	if request.form("Name_ADD")<>"" then
			sql="insert TbioaBusinessSort (Name,ParentID) values('"&crequest("Name_ADD")&"'," & request.form("ID") & ")"
			oConn.execute sql
			response.write"<script>parent.frames.Left.location.reload();</script>"
			response.write"<script>location='?id="&ID&"';</script>"
		end if
	''''''''''''''删除类别
	 	if request.querystring("Action")="Delete" then
			rs_t=oConn.execute("SELECT ParentID FROM TbioaBusinessSort where ID="&ID)(0)
			if rs_t=0 then
				response.write "<script>alert('根类别不可删除！')</script>"
				response.write"<script>location='?id="&ID&"';</script>"
				response.end
			end if
			rs_d=oConn.execute("SELECT COUNT(*) FROM TbioaBusinessSort where ParentID="&ID)(0)
			rs_n=oConn.execute("SELECT COUNT(*) FROM tbioaClientBase where hy="&ID)(0)
			del_mod=rs_d+rs_n

			if del_mod=0 then
				sql="delete TbioaBusinessSort where ID=" & ID
				on error resume next
				oConn.execute sql
				response.write "类别删除成功!"
				response.write"<script>parent.frames.Left.location.reload();</script>"
				response.end
			else
				response.write "<script>alert('类别删除失败!\n\n请检查该类别下面是否还存在子类别或工商户信息。')</script>"
				response.write"<script>location='?id="&ID&"';</script>"
				response.end
			end if
		end if
	''''''''''''''修改员工类别职务
		if request.form("addedit_subed3")="1" then
			department=request.form("Sdep")
			role=trim(request.form("srole"))
			if len(role)>1 then
				role=left(role,len(role)-1)
			else
				role=""
			end if
			infoid=request.form("infoid")
			sqlstr="update tbioauser set department="&department&",roleid='"&role&"' where id="&infoid
			oConn.Execute sqlstr
			response.write"<script>location='?id="&ID&"';</script>"
		end if
	''''''''''''''恢复员工口令
		if request("repass")="1" then
			UserID=trim(request("UserID"))
			sqlstr="update tbioauser set Pwd='"&md5("123")&"' where id="&UserID
			oConn.Execute sqlstr
		end if
%>
<%
	sql="select * from TbioaBusinessSort where id=" & id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,oConn,1,1
	if rs.eof then
		response.write "点击类别名称修改类别资料。"
	else
		ParentID=cint(rs("ParentID"))
		Name=rs("Name")
%>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
  <tr>
    <td width="49%" valign="top">
      <form name="form0" method="post" action="">
        <table width="300" border="0" cellpadding="3" cellspacing="1" class="tab">
          <tr>
            <td width="80" class="td2" nowrap>类别名称:</td>
            <td width="219" class="td1"> <input type=text name="Name" value="<%=Name%>" class=input>
            </td>
          </tr>
          <%if ParentID>0 then%>
          <tr>
            <td width="80" class="td2" nowrap>上级类别:</td>
            <td width="219" class="td1"> <select name="ParentID">
                <%
	  	rs.close
		sql="select * from TbioaBusinessSort where ParentID<>" & ID & " and ID<>" & ID & " Order by ParentID"
		rs.open sql,oConn,1,1
		while not rs.eof
	  	%>
                <option value=<%=rs("ID")%> <%if rs("ID")=ParentID then response.write " selected"%>><%=rs("Name")%></option>
                <%
	  	rs.movenext
		wend
		rs.close
		set rs=nothing
	  	%>
              </select> </td>
          </tr>
          <%end if%>
          <tr align="center">
            <td colspan="2" class="tdBottom"> <input TYPE="submit" class="button0" value="修改" name="submit2" onmouseout=className="button0" onmouseover=className="button1">
              <input type="button" name="Submit" value="删除" class="button0" onmouseout=className="button0" onmouseover=className="button1" onClick='if (window.confirm("真的要删除吗？\n该操作不可逆。")) document.location="<%=request.servervariables("SCRIPT_NAME")%>?ID=<%=ID%>&Action=Delete";'>
              <input type=hidden name=ID2 value=<%=ID%>> </td>
          </tr>
        </table>
      </form>
      <hr align="left" width="300" size="1" height=1>
      <form name="form2" method="post" action="">
        <table width="300" border="0" cellpadding="3" cellspacing="1" class="tab">
          <tr align="center">
            <td colspan="2" class="td2">在 <b><%=Name%></b> 下增加子类别</td>
          </tr>
          <tr>
            <td width="80" class="td2">类别名称:</td>
            <td width="221" class="td1"> <input type=text name="Name_ADD" class=input>
            </td>
          </tr>
          <tr align="center">
            <td colspan="2" class="tdBottom"> <input type=hidden name=ID value=<%=ID%>>
              <input TYPE="submit" class="button0" value="提交" name="submit" onmouseout=className="button0" onmouseover=className="button1">
              <INPUT TYPE="reset" class="Button0" value="重置" name="reset" onmouseout=className="button0" onmouseover=className="button1">
            </td>
          </tr>
        </table>
        <hr align="left" width="300" size="1" height=1>
      </form>
    </td>
  </tr>
</table>
<p>
<%
		end if
	else
		response.write "<script>location='W_user.asp'</script>"
	end if
%>
<!--#include file="../inc/conn_close.asp"-->
</body>
</html>
⌨️ 快捷键说明

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