📄 browsedept.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资源管理系统</title>
</head>
<script language="JavaScript">
function delDept(deptID)
{
if(confirm("真的要删除吗?"))
window.location="delDept.asp?deptID="+deptID;
}
</script>
<body>
<p><font color="#FF9900"><strong>>> 部门管理 ---〉<a href="addDept.asp">添加部门</a></strong></font></p>
<table width="100%" border="1" cellspacing="0" bordercolor="#FFAC75">
<tr bgcolor="#99CCFF">
<td width="20%" height="32"> <div align="center"><strong><font color="#006600">系名称</font></strong></div></td>
<td width="20%"><div align="center"><strong><font color="#006600">负责人</font></strong></div></td>
<td width="20%"><div align="center"><strong><font color="#006600">编辑</font></strong></div></td>
<td width="20%"><div align="center"><strong><font color="#006600">删除</font></strong></div></td>
</tr>
<%
set conn = server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""
dim deptID,headID,deptName,headName
set rs = conn.execute("select *from TDept")
do until rs.eof
deptID=rs("dept_id")
headID=rs("head_id")
deptName=rs("dept_name")
headName="暂无"
set rs1=conn.execute("select real_name from TUser where user_id="&Cstr(headID))
if not rs1.eof then
headName=rs1("real_name")
end if
%>
<tr bgcolor="#DDEEFF">
<td> <div align="center"><font color="#006600"><%=deptName%></font></div></td>
<td> <div align="center"><font color="#006600"><%=headName%></font></div></td>
<td> <div align="center"><font color="#006600"><a href="editDept0.asp?deptID=<%=deptID%>"><img src="image/edit.gif" width="15" height="15" border="0"></a></font></div></td>
<td> <div align="center"><font color="#006600"><img src="image/delete.gif" width="20" height="20" border="0" onClick="delDept(<%=deptID%>)" style="cursor:hand"></font></div></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -