⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.asp

📁 办公自动化系统 适用于办公室的各种几本功能的操作 功能比较简单
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="../inc/Secure.asp"-->
<%dim ThisKey
ThisKey = "a"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/connection.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/dbtools.asp"-->
<html>
<head>
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>权限设置</title>
</head>
<%
'if not Session("CheckedYes") then
'	Set ASPObj = Server.CreateObject("aspRegister.aspReg") 
'	   ASPObj.CheckReg
 '   Set ASPObj=Nothing	
'	Session("CheckedYes") = true
'end if

strSelfRight=SelfRights(Session("LoginID"))

ID=request("SelectID")
if id="" then id=0

'获取数据
dim strLoginName, strPwd, strConfirmPwd, strName, strInfo, strRights, PreviousID, strSelfBody, sPhoto, sSignature
dim sex,department,strposition,strOfficeTel,strhometel,strpager,strMobiletel,strpostcode,stremail,straddress,strfax
if ID="0" then
	if request("cmdAdd")<>"" then
		strLoginName=replace(trim(request("LoginName")),"'","''")
		strPwd=replace(trim(request("Pwd")),"'","''")
		strConfirmPwd=replace(trim(request("ConfirmPwd")),"'","''")
		strName=replace(trim(Request("Name")),"'","''")
		strInfo=replace(trim(Request("Info")),"'","''")
		strRights=replace(trim(Request("Rights")),"'","''")
		Sex=trim(Request("sex"))
		PreviousID=trim(Request("PreviousID"))
		Department=trim(Request("Department"))
		if Department="" then Department=0
		strPosition=replace(trim(Request("Position")),"'","''")
		strOfficeTel=replace(trim(Request("Officetel")),"'","''")
		strHomeTel=cRequest("HomeTel")
		strPager=cRequest("Pager")
		strMobiletel=cRequest("Mobiletel")
		strPostCode=cRequest("PostCode")
		strEmail=cRequest("Email")
		strAddress=trim(cRequest("Address"))
		strFax=trim(cRequest("Fax"))
		strSelfBody=trim(cRequest("Selfbody"))
		if strPwd="" or strPwd<>strConfirmPwd then
			response.write "口令为空或确认口令和原口令不一致！<a href=""javascript:history.back(-1);"">[返回]</a>"
			response.end
		end if
		
		if strLoginName<>"" and strName<>"" and (not CheckUser(strLoginName)) then
			AddUser
			response.write "添加成功"
			%>
			<form name="returnform" action="Left.asp" method="post" target="Left">
				<Script language="JavaScript">
				  returnform.submit();
				</Script>
			</form>
		<%response.end
		else
			strAlertInfo="用户名可能有重复，请重新输入。"
		end if
	end if
else
	if request("cmdUpdate")<>"" then
		strLoginName=replace(trim(request("LoginName")),"'","''")
		strPwd=replace(trim(request("Pwd")),"'","''")
		strConfirmPwd=replace(trim(request("ConfirmPwd")),"'","''")
		strName=replace(trim(Request("Name")),"'","''")
		strInfo=replace(trim(Request("Info")),"'","''")
		strRights=replace(trim(Request("Rights")),"'","''")
		Sex=trim(Request("sex"))
		PreviousID=trim(Request("PreviousID"))
		Department=trim(Request("Department"))
		if Department="" then Department=0
		strPosition=trim(cRequest("Position"))
		strOfficeTel=trim(cRequest("Officetel"))
		strHomeTel=trim(cRequest("HomeTel"))
		strPager=trim(cRequest("Pager"))
		strMobiletel=trim(cRequest("Mobiletel"))
		strPostCode=trim(cRequest("PostCode"))
		strEmail=trim(cRequest("Email"))
		strAddress=trim(cRequest("Address"))
		strFax=trim(cRequest("Fax"))
		strSelfBody=trim(cRequest("Selfbody"))
		if lcase(strLoginName)="administrator" and lcase(Session("LoginName"))<>"administrator" then
			response.write "你不能修改系统管理员的资料！"
			response.end
		end if

		if strPwd="" or strPwd<>strConfirmPwd then
			if not CheckUpdateUser (ID,strLoginName) then
				UpdateUser2 (ID)
				response.write "资料修改成功，但您没有输入口令，所以保留了原口令。"
				Conn.close
				response.end
			else
				strAlertInfo="用户名可能有重复，请重新输入。"
			end if
			
		else
			
			if strLoginName<>"" and strName<>"" and (not CheckUpdateUser (ID,strLoginName)) then
				UpdateUser (ID)
				response.write "数据修改成功"
				Conn.close
				response.end
			else
				strAlertInfo="用户名可能有重复，请重新输入。"
			end if
		end if
	end if

	if request("cmdDelete")<>"" and ID<>"0" then
		if ID="1" or GetUserName(ID)="Administrator" then
			response.write "系统管理员不能删除！"
			Conn.close
			response.end
		end if
		dim RsDel
		Set RsDel=server.createobject("adodb.recordset")
		RsDel.open "Select ID from tblUser where PreviousID="& ID,Conn
		if not RsDel.eof then
			response.write "请删除其下属后再删除，否则会破坏关系树！"
			Conn.close
			response.end
		else
			DeleteUser (ID)
		end if
		RsDel.close
		set RsDel=nothing
		response.write "用户删除成功"%>
		<form name="returnform" action="Left.asp" method="post" target="Left">
				<Script language="JavaScript">
				  returnform.submit();
				</Script>
			</form>
		<%response.end
	end if

	GetSelectUserData (ID)
end if

%>

<body topmargin="10" leftmargin="10" <%if strAlertInfo<>"" then response.write "onload=Javascript:alert("""&strAlertInfo&""")"%>>

<form NAME="Rightfrm" method="post">
  <div align="center"><center>
  <table border="0" cellspacing="1" cellpadding=3 width="100%" bgcolor=#0047b0>
	
    <tr bgcolor=#ffffff>
      <td height="30" width="33%" valign="middle" align=right><b>用户登录名</b><font COLOR="RED">*</td>
      <td height="30" colspan="2" valign="middle"><input TYPE="text" class="input" SIZE="17" Name="LoginName" maxlength="25" <%if ID<>"" and ID<>"0" then response.write " value="&strLoginName%>></td>
    </tr>
    <tr bgcolor=#ffffff>
      <td valign="middle" align=right><b>登录口令</b><font COLOR="RED">*</td>
      <td colspan="2" valign="middle"><input TYPE="password" class="input" SIZE="17" NAME="Pwd" maxlength="40"> </td>
    </tr>
    <tr bgcolor=#ffffff>
      <td valign="middle" align=right><b>再输一次口令</b><font COLOR="RED">*</td>
      <td colspan="2" valign="middle"><input TYPE="password" class="input" SIZE="17" NAME="ConfirmPwd" maxlength="40" > </td>
    </tr>
	
	<tr bgcolor=#ffffff>
      <td valign="middle" align=right><b>姓名</b><font COLOR="RED">*</td>
      <td colspan="2" valign="middle"><input TYPE="text" class="input" SIZE="17" NAME="Name" maxlength="30" <%if ID<>"" then response.write " value="&strName%> > </td>
    </tr>
	
	<tr bgcolor=#ffffff>
		<td align=right><b>性别</b><font COLOR="RED">*</td>
		<td colspan="2">
			<select name="sex">
			<option value=0 <%if Sex="0" then response.write " selected"%>>男
			<option value=1 <%if Sex="1" then response.write " selected"%>>女
			</select>
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP" align=right><b>部门</b>
		<font COLOR="RED">*</td>
		<td colspan="2">
		<%options "department","tblDepartment","Name",Department%>
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP" align=right><b>直接上级</b>
		<font COLOR="RED">*</td>
		<td colspan="2">
		<%options "PreviousID","tblUser","Name",PreviousID%>
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP"  align=right><b>职位</b>
		</td>
		<td colspan="2">
		<input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="30" NAME="Position" value="<%=strPosition%>"> 
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP"  align=right><b>E-mail</b>
		</td>
		<td colspan="2">
		<input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="30" NAME="Email" value="<%=strEmail%>"> 
		</td>
	</tr>

	<tr bgcolor=#ffffff>
		<td VALIGN="TOP"  align=right><b>电话(O)</b>
		</td>
		<td colspan="2"><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="OfficeTel" value="<%=strOfficeTel%>">
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP" ALIGN="right"><b>电话(H)</b>
		</td>
		<td colspan="2"><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="HomeTel" value="<%=strHomeTel%>">
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP" ALIGN="right"><b>传真</b>
		</td>
		<td colspan="2"><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Fax" value="<%=strFax%>">
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP" ALIGN="right"><b>传呼</b>
		</td>
		<td colspan="2"><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Pager" value="<%=strPager%>">
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP" ALIGN="right"><b>手机</b>
		</td>
		<td colspan="2"><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Mobiletel" value="<%=strMobiletel%>">
		</td>
	</tr>

	<tr bgcolor=#ffffff>
		<td VALIGN="TOP" ALIGN="right"><b>邮政编码</b>
		</td>
		<td colspan=2><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Postcode" value="<%=strPostCode%>">
		</td>
	</tr>
	<tr bgcolor=#ffffff>
		<td VALIGN="TOP" ALIGN="right"><b>详细地址</b>
		</td>
		<td colspan=2><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Address" value="<%=strAddress%>">
		</td>
	</tr>
	<tr bgcolor=#FFFFFF>
	<td VALIGN="TOP" ALIGN="right"><b>自我评价</b>
	</td>
	<td VALIGN="TOP" ALIGN="LEFT" colspan=2>
12

⌨️ 快捷键说明

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