📄 manager.asp
字号:
<!--#include file="access_conn.asp"-->
<html>
<head>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=GBK">
<link rel="stylesheet" href="style.css" type="text/css">
<script src="publicjs.js"></script>
<SCRIPT LANGUAGE="JavaScript">
<!--
function del_submit() {
document.form1.operate.value="del";
document.form1.submit();
}
function add_submit() {
//if(Check_Date("生日",document.form1.birthday)&¬Null("员工姓名",document.form1.username)){
if(notNull("生日",document.form1.birthday)&¬Null("员工姓名",document.form1.username)){
document.form1.operate.value="add";
document.form1.submit();
}
}
function modi_submit() {
document.form1.operate.value="modi";
document.form1.submit();
}
-->
</SCRIPT>
</head>
<%
session("id") = request("id")
sId = request("id")
sOperate = request("operate")
if sOperate = "add" then
sUsername = trim(request("username"))
sDeptpost = trim(request("dept_post"))
sMemo = trim(request("memo"))
sBirthday = trim(request("birthday"))
if sDeptpost = "" then sDeptpost = " "
if sMemo = "" then sMemo = " "
sql = "INSERT INTO [EMPOLY_BIRTHDAY]([username],[birthday],[dept_post],[memo]) VALUES('"&sUsername&"','"&sBirthday&"','"&sDeptpost&"','"&sMemo&"') "
set rs = conn.execute(sql)
if err then
conn.Close
RESPONSE.WRITE err
Response.Write "执行数据库失败！1"
Response.End
end if
else
if sOperate = "del" then
sUsername = request("username")
sDeptpost = request("dept_post")
sql = "DELETE FROM [EMPOLY_BIRTHDAY] WHERE [ID] = "&session("id")&" "
set rs = conn.execute(sql)
if err then
conn.Close
RESPONSE.WRITE err
Response.Write "执行数据库失败！1"
Response.End
end if
else
if sOperate = "modi" then
sUsername = request("username")
sDeptpost = request("dept_post")
sMemo = request("memo")
sBirthday = request("birthday")
sql = "UPDATE [EMPOLY_BIRTHDAY] SET [USERNAME] = '"&sUsername&"' , [DEPT_POST] = '"&sDeptpost&"',[BIRTHDAY] = '"&sBirthday&"', [MEMO] = '"&sMemo&"' WHERE [ID] = "&session("id")&" "
' response.write sql
set rs = conn.execute(sql)
if err then
conn.Close
RESPONSE.WRITE err
Response.Write "执行数据库失败！1"
Response.End
end if
end if
end if
end if
sUsername = ""
sDeptpost = ""
sMemo = ""
sBirthday = ""
if request("id") <> "" then
sql = "SELECT * FROM [EMPOLY_BIRTHDAY] WHERE [ID] = "&request("id")&" "
set rs = conn.execute(sql)
if err then
conn.Close
Response.Write "执行数据库失败！"
Response.End
end if
if not rs.bof and not rs.eof then
session("id") = rs("id")
sUsername = rs("username")
sDeptpost = rs("dept_post")
sMemo = rs("memo")
sBirthday = rs("birthday")
end if
end if
%>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="manager.asp" >
<table width="98%" border="0" cellspacing="1" cellpadding="3" bgcolor="0088CE" align="center">
<tr>
<td width="98%" align="center" colspan="5"><font color="#FFFFFF">员工信息列表</font></td>
</tr>
<tr bgcolor="#9AC2EB" align="center">
<td width="10%">序号</td>
<td width="15%">员工姓名</td>
<td width="35%">所属部门</td>
<td width="15%">生日</td>
<td width="10%">备注</td>
</tr>
<%
set rs = conn.execute("SELECT * FROM [EMPOLY_BIRTHDAY] ORDER BY [USERNAME]")
while not rs.bof and not rs.eof
%>
<tr bgcolor="#EFF7FF" align="center">
<td >
<a href="manager.asp?id=<%=rs("id")%>"><%=rs("id")%></a></td>
<td ><%=rs("username")%> </td>
<td ><%=rs("dept_post")%> </td>
<td ><%=rs("birthday")%> </td>
<td ><%=rs("memo")%> </td>
</tr>
<%
rs.movenext
wend
%>
</table>
<br>
<table width="98%" border="0" cellspacing="1" cellpadding="3" bgcolor="0088CE" align="center">
<tr bgcolor="#EFF7FF">
<%
set rs = conn.execute( "SELECT * FROM [EMPOLY_BIRTHDAY] WHERE [ID] = "&session("id")&" ")
if not rs.bof and not rs.eof then
sId = rs("id")
sUsername = rs("username")
sDeptpost = rs("dept_post")
sMemo = rs("memo")
sBirthday = rs("birthday")
else
sId = ""
end if
%>
<td width="20%" align="center">序号</td>
<td width="30%"><%=sId%></td>
<input type="hidden" name="id" value="<%=sId%>">
</tr>
<tr bgcolor="#EFF7FF">
<td width="20%" align="center">员工姓名</td>
<td width="30%"><input type="text" name="username" value="<%=sUsername%>">*</td>
</tr>
<tr bgcolor="#EFF7FF">
<td width="20%" align="center">所属部门</td>
<td width="30%"><input type="text" name="dept_post" value="<%=sDeptpost%>"></td>
</tr>
<tr bgcolor="#EFF7FF">
<td width="20%" align="center">生日</td>
<td width="30%"><input type="text" name="birthday" value="<%=sBirthday%>">*(MM-DD)</td>
</tr>
<tr bgcolor="#EFF7FF">
<td width="20%" align="center">备注</td>
<td width="30%"><textarea name="memo" cols="50" wrap＝PHYSICAL ><%=sMemo%></textarea></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="1" cellpadding="3" bgcolor="0088CE" align="center">
<tr bgcolor="#EFF7FF">
<TD COLSPAN="5" ALIGN="CENTER" HEIGHT="28">
<INPUT TYPE="button" NAME="add" VALUE="新增" onClick="return add_submit() ">
<INPUT TYPE="button" NAME="del" VALUE="删除" onClick="return del_submit() ">
<INPUT TYPE="button" NAME="modi" VALUE="修改" onClick="return modi_submit() ">
<input type="hidden" name="operate" value="0">
</TD>
</TR>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#333300" height="1">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="10">
<tr>
<td class="L13">
<font color="#666666">注：</font><br>
<font color="#666666">①生日时间只要写月份和日期,如:5-8;10-12;不要写成05-08。</font><br>
<font color="#666666">②因为没有用到部门和备注的字段,所以可以为空。</font><br>
<font color="#666666">③要删除员工,点击相应的序号后选择<删除>按钮,修改也是一样的操作,选择序号,然后进行修改,最后点击<修改>按钮。</font><br>
</td>
</tr>
</table>
</form>
<%
rs.Close
conn.Close
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -