📄 admin_dictionary.asp
字号:
<!--#include file="conn.asp"-->
<%
dim pagesize
dim page
dim objtype
dim ipage
if request("pagesize")="" then
pagesize=20
else
pagesize=request("pagesize")
end if
if request("page")="" then
page=1
else
page=request("page")
end if
if request("objtype")="" then
objtype=""
else
objtype=request("objtype")
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统</title>
<link rel="stylesheet" type="text/css" href="../default.css">
<script language="JavaScript">
function checkall(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function submitit()
{
if (confirm("是否删除？")){
return true;
}
else
return false;
}
</script>
<script language="JavaScript1.2" src="../js/lock.js"></script>
</head>
<body onload="document.addform.objname.focus()" oncontextmenu="self.event.returnValue=false" bgcolor="#FFFFFF">
<table cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber1" cellpadding="0" border="0">
<tr>
<td width="100%">当前位置：系统管理 > <font color="#FF0000">字典库管理</font></td>
</tr>
</table>
<table cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber1" cellpadding="0" border="1">
<form method="POST" name="addform" action="admin_dictionary_save.asp">
<tr>
<td style="height: 30" bgcolor="#F1F1F1"> <select size="1" name="objtype" onchange="window.location='admin_dictionary.asp?objtype='+this.options[this.selectedIndex].value;">
<option></option>
<option value="部门" <%if (objtype="部门") then%> selected<%end if%>>部门</option>
<option value="单位" <%if (objtype="单位") then%> selected<%end if%>>单位</option>
<option value="岗位" <%if (objtype="岗位") then%> selected<%end if%>>岗位</option>
<option value="职务" <%if (objtype="职务") then%> selected<%end if%>>职务</option>
<option value="职务级别" <%if (objtype="职务级别") then%> selected<%end if%>>职务级别</option>
</select> 类别名称：<input type="text" name="objname" size="40" class="s01" onclick="this.value='';">
等级：<input type="text" name="parent" size="5" class="s01" onkeyup="if(isNaN(this.value)) this.value='';" onblur="if(isNaN(this.value)) this.value='';">
<input type="submit" value="添加新记录" name="btn" class="s02"></td>
</tr>
</form>
</table>
<form method="POST" name="admin_dictionary" action="admin_dictionary_action.asp" onsubmit="return submitit();">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber1" bgcolor="#F1F1F1">
<tr>
<td style="height: 30" colspan="5">
<p align="right">
<input type="checkbox" name="chkall" value="ON" onclick="checkall(this.form);">全部选择/取消选择
<input type="submit" value="删除所选项" name="btn" class="s02"> </td>
</tr>
<% sql="select * from dictionary where objtype='"&objtype&"' order by parent"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then %>
<tr>
<td bgcolor="#FFCC00" colspan="5" bordercolor="#EFEFEF" height="20">
<p align="center">没有记录！</td>
</tr>
<% else %>
<tr>
<td align="left" width="2%" height="20" class="border"> </td>
<td align="center" width="15%" class="border">类别</td>
<td align="center" class="border">类别名称</td>
<td align="center" width="15%" class="border">等级</td>
<td align="center" width="10%" class="border">操作</td>
</tr>
<% do while not rs.eof %>
<tr onmouseover="this.className='trover'" onmouseout="this.className=''">
<td bgcolor="#C0C0C0">
<input type="checkbox" name="id" value="<%=rs("id")%>"></td>
<td align="center"><%=rs("objtype")%> </td>
<td align="center"><%=rs("objname")%> </td>
<td align="center"><%=rs("parent")%> </td>
<td align="center">
<a href="admin_dictionary_action.asp?btn=编辑&id=<%=rs("id")%>">
<img border="0" src="../images/edit.gif"></a></td>
</tr>
<% rs.MoveNext
loop
%>
</table>
<% end if %>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -