📄 detail.asp

📁 === ==ASP销售管理系统
💻 ASP
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 5000100	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Employee_ID = request("Employee_ID")
chg_Branch_ID = request("chg_Branch_ID")
op = request("op")
if not IsNot(Employee_ID,"n") then
	response.write "员工编号丢失"
	response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "sp_Employee_Get " & Employee_ID
set rs = conn.execute(sql)
	Employee_Name = rs("Employee_Name")
	Gender = rs("Gender")
	Birthday = rs("Birthday")
	Branch_ID = rs("Branch_ID")
	Department_ID = rs("Department_ID")
	Funcs = rs("Funcs")
	Tel = rs("Tel")
	Email = rs("Email")
	Available = rs("Available")
rs.close
set rs = nothing
conn.close
set conn = nothing
if chg_Branch_ID <> "" then Branch_ID = chg_Branch_ID
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
	<title>Untitled</title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<LINK rel="stylesheet" type="text/css" href="../style.css">
</head>
<body>
<form action="modi_exe.asp" method="post" name="frm" id="frm">
<input type="hidden" name="Employee_ID" value="<%= Employee_ID %>">
员工姓名：<%= Employee_Name %>
<hr size=1>
<% 
'修改会员信息
If op = "modi" then 
%>
<%
Application_ID = 5000300	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	response.write "您没有该功能的权限，请联系管理员获得该权限。"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<table bgcolor="#FFFFFF" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
	<td bgcolor="#EFEFEF">姓名</td>
	<td bgcolor="#FFFFFF"><input type="text" name="Employee_Name" size="20" value="<%= Employee_Name %>"></td>
	<td bgcolor="#EFEFEF">性别</td>
	<td bgcolor="#FFFFFF">
	<% If  Gender then %>
	<input type="radio" name="Gender" value="1" checked>男
	<input type="radio" name="Gender" value="0">女
	<% Else  %>
	<input type="radio" name="Gender" value="1">男
	<input type="radio" name="Gender" value="0" checked>女
	<% End If %>
	</td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">出生日期</td>
	<td bgcolor="#FFFFFF"><input type="text" name="Birthday" size="20" value="<%= Birthday %>"></td>
	<td bgcolor="#EFEFEF">分公司</td>
	<td bgcolor="#FFFFFF">
	<select name="Branch_ID" size="1" onChange="return chg_brch(this.value);">
		<%
		Set conn = Server.CreateObject("ADODB.Connection")
		Set rs = Server.CreateObject("ADODB.Recordset")
		conn.open connstr
		sql = "sp_Employee_Branch"
		'response.write sql
		set rs = conn.execute(sql)
		while not rs.eof	
			if CStr(Branch_ID) = CStr(rs("Branch_ID")) then
				tag = "selected"
			else
				tag = ""
			end if
			response.write "<option value=" & rs("Branch_ID") & " " & tag & ">" & rs("Branch_Name") & "</option>"
			rs.movenext
		wend
		rs.close
		set rs = nothing
		conn.close
		set conn = nothing
		%>
	</select>
	<select name="Department_ID" size="1">
		<%
		Set conn = Server.CreateObject("ADODB.Connection")
		Set rs = Server.CreateObject("ADODB.Recordset")
		conn.open connstr
		sql = "sp_Employee_Department " & Branch_ID
		'response.write sql
		set rs = conn.execute(sql)
		while not rs.eof
			Department_Name = rs("Department_Name")
			if trim(Department_Name) = "" then Department_Name = "不属于任何部门"
			if CStr(Department_ID) = CStr(rs("Department_ID")) then
				tag = " selected"
			else
				tag = ""
			end if
			response.write "<option value=" & rs("Department_ID") & tag & ">" & Department_Name & "</option>"
			rs.movenext
		wend
		rs.close
		set rs = nothing
		conn.close
		set conn = nothing
		%>
	</select>
	</td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">职务</td>
	<td bgcolor="#FFFFFF"><input type="text" name="Funcs" size="32" value="<%= Funcs %>"></td>
	<td bgcolor="#EFEFEF">电话</td>
	<td bgcolor="#FFFFFF"><input type="text" name="Tel" size="32" value="<%= Tel %>"></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">电子邮件</td>
	<td bgcolor="#FFFFFF"><input type="text" name="Email" size="32" value="<%= Email %>"></td>
	<td bgcolor="#EFEFEF">有效</td>
	<td bgcolor="#FFFFFF">
	<%
	if Available then
	%>
	<input type="radio" name="Available" value="1" checked>有效
	<input type="radio" name="Available" value="0">已删除
	<% 
	else 
	%>
	<input type="radio" name="Available" value="1">有效
	<input type="radio" name="Available" value="0" checked>已删除
	<%
	end if
	%>
	</td>
</tr>
</table>
<input type="submit" name="Submit" value="保存修改">
<% 
'查看会员信息
Else
%>
<table bgcolor="#CCCCCC" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
	<td bgcolor="#EFEFEF">姓名</td><td bgcolor="#FFFFFF"><%= Employee_Name %></td>
	<td bgcolor="#EFEFEF">性别</td>
	<td bgcolor="#FFFFFF">
	<% 
	If  Gender then
		response.write "男"
	else
		response.write "女"
	end if
	%>
	</td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">年龄</td><td bgcolor="#FFFFFF">
	<%
	if Birthday <> "1900-1-1" then
		response.write DateDiff("yyyy",Birthday,date())
	end if
	%>
	</td>
	<td bgcolor="#EFEFEF">分公司</td>
	<td bgcolor="#FFFFFF">
		<%
		Set conn = Server.CreateObject("ADODB.Connection")
		Set rs = Server.CreateObject("ADODB.Recordset")
		conn.open connstr
		sql = "select Branch_ID,Branch_Name from Employee_Branch where Branch_ID = " & Branch_ID
		'response.write sql
		set rs = conn.execute(sql)
		if not rs.eof then
			response.write rs("Branch_Name")
		end if
		
		sql = "select Department_ID,Department_Name from Employee_Department where Department_ID =" & Department_ID
		'response.write sql
		set rs = conn.execute(sql)
		if not rs.eof then
			response.write rs("Department_Name")
		end if
		rs.close
		set rs = nothing
		conn.close
		set conn = nothing
		%>
	</td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">职务</td><td bgcolor="#FFFFFF"><%= Funcs %></td>
	<td bgcolor="#EFEFEF">电话</td><td bgcolor="#FFFFFF"><%= Tel %></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">电子邮件</td><td bgcolor="#FFFFFF"><a href="mailto:<%= Email %>"><%= Email %></a></td>
	<td bgcolor="#EFEFEF">有效</td>
	<td bgcolor="#FFFFFF">
	<%
	if Available then
		response.write "有效"
	else
		response.write "已删除"
	end if
	%>
	</td>
</tr>
</table>
<% 
End If
%>
</form>
</body>
</html>
<script language="JavaScript" type="text/javascript">
	function chg_brch(Branch_ID){
		var url = 'detail.asp?chg_Branch_ID='+Branch_ID+'&Employee_ID='+<%= Employee_ID %>+'&op=modi';
		location.href = url;
	}
</script>
💿 文件大小 688 K
👤 上传用户 zhangpeng
📂 所属分类 *行业应用
🏷️ 相关标签

#ASP #销售 #管理系统
⌨️ 快捷键说明

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