📄 admin_setup.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="connsf.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="config.asp" -->
<%'检验用户
user=checkstr(session("user"))
pass1=ucase(md5(session("pass")))
str="select 姓名,用户类别 from user_teacher where 用户名='"&user&"' and 密码='"&pass1&"'"
set rs=conn.execute(str)
if rs.eof or rs("用户类别")<>"管理员" then
response.redirect("user_login.asp")
else
user_name=rs("姓名")
user_class=rs("用户类别")
end if
rs.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统设置</title>
<!--#include file="css.css" -->
</head>
<%doing=Trim(Request.QueryString("doing"))%>
<%'增加部门
if doing="insert_bumeng" and user_class="管理员" then
response.write "<div align=center class=fontsize20><font color=#FF0000>免费版无此功能！</font></div>"
end if
%>
<%'删除部门
if doing="dele_bumeng" and user_class="管理员" then
response.write "<div align=center class=fontsize20><font color=#FF0000>免费版无此功能！</font></div>"
end if
%>
<%'增加职务
if doing="insert_zhuwu" and user_class="管理员" then
response.write "<div align=center class=fontsize20><font color=#FF0000>免费版无此功能！</font></div>"
end if
%>
<%'删除职务
if doing="dele_zhuwu" and user_class="管理员" then
response.write "<div align=center class=fontsize20><font color=#FF0000>免费版无此功能！</font></div>"
end if
%>
<%'修改基本设置
if doing="edit_setup" and user_class="管理员" then
response.write "<div align=center class=fontsize20><font color=#FF0000>免费版无此功能！</font></div>"
end if
%>
<%'删除所有用户
if doing="dele_alluser" and user_class="管理员" then
response.write "<div align=center class=fontsize20><font color=#FF0000>免费版无此功能！</font></div>"
end if
%>
<%'批量删除信息
if doing="dele_msgs" and user_class="管理员" then
response.write "<div align=center class=fontsize20><font color=#FF0000>免费版无此功能！</font></div>"
end if
%>
<body topmargin="1" oncontextmenu="return false">
<div align="center">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td><!--#include file="top.asp" --></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" bgcolor="#6699FF">
<!--#include file="admin_menu.asp" -->
</td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td bgcolor="#6699FF">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
<tr>
<td height="40" bgcolor="#FFCCCC">
<div align="center" class="fontsize18">部门和职务管理</div></td>
</tr>
</table>
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="740" border="0" align="center" cellpadding="4" cellspacing="0" bgcolor="#99CCFF">
<tr>
<td width="50%" valign="top"><form name="form1" method="post" action="admin_setup.asp?doing=insert_bumeng">
<table width="100%" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
<tr>
<td width="68%" height="30" class="fontsize14wu"> <div align="center">已有部门列表</div></td>
<td width="32%" class="fontsize14wu"> <div align="center">删除</div></td>
</tr>
<%str="select * from woa_bumeng"
set rs=conn.execute(str)
if not rs.eof then
do while not rs.eof%>
<tr class="fontsize12wu">
<td height="24"> <div align="center"><%=rs("部门")%></div></td>
<td> <div align="center"><A href=admin_setup.asp?doing=dele_bumeng&dele_id=<%=rs("id")%> onMouseOver="window.status='';return true">删除</A></div></td>
</tr>
<%rs.movenext
loop
end if
rs.close%>
<tr class="fontsize12wu">
<td height="30" colspan="2">
<div align="center">
<input name="bumeng_name" type="text" class="inputtext" id="bumeng_name" size="10">
<span class="fontsize16">
<input name="Submit" type="submit" class="inputbox" value="增加部门">
</span></div></td>
</tr>
</table>
</td></form>
<td width="50%" valign="top"><form name="form2" method="post" action="admin_setup.asp?doing=insert_zhuwu">
<table width="100%" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
<tr>
<td width="68%" height="30" class="fontsize14"> <div align="center">已有职务列表</div></td>
<td width="32%" class="fontsize14"><div align="center">删除</div></td>
</tr>
<%str="select * from woa_zhuwu"
set rs=conn.execute(str)
if not rs.eof then
do while not rs.eof%>
<tr class="fontsize12wu">
<td height="24"> <div align="center"><%=rs("职务")%></div></td>
<td> <div align="center"><a href=admin_setup.asp?doing=dele_zhuwu&dele_id=<%=rs("id")%> onMouseOver="window.status='';return true">删除</a></div></td>
</tr>
<%rs.movenext
loop
end if
rs.close%>
<tr class="fontsize12wu">
<td height="30" colspan="2">
<div align="center">
<input name="zhuwu_name" type="text" class="inputtext" id="zhuwu_name" size="10">
<span class="fontsize16">
<input name="Submit2" type="submit" class="inputbox" value="增加职务">
</span></div></td>
</tr>
</table>
</td></form>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -