📄 admin_sysposition.asp
字号:
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../checkvalid.asp"-->
<!--#include file="../../Inc/Commoncode.asp" -->
<%
If Not FRAdminLevel(105) Then
Call ErrorMsg()
End If
%>
<%
fid=request("fid")
if request("step")="add" then
position_name=request("position_name")
position_enname=request("position_enname")
if position_name="" then
response.write "<script>alert('对不起，中文岗位不能为空！');location.href='javascript:history.back()';</script>"
Response.End
end if
if position_enname="" then
response.write "<script>alert('对不起，英文岗位不能为空！');location.href='javascript:history.back()';</script>"
Response.End
end if
sql="select * from job_position"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs.addnew
rs("position_name")=position_name
rs("position_enname")=position_enname
rs("position_fid")=fid
rs.Update
rs.Close
set rs=nothing
Response.Redirect "Admin_Sysposition.asp?fid="&fid&"&ceng="&request("ceng")
end if
if request("step")="del" then
conn.execute("delete from job_position where position_fid="&request("id"))
conn.execute("delete from job_position where position_id="&request("id"))
Response.Redirect "Admin_Sysposition.asp?fid="&fid&"&ceng="&request("ceng")
end if
if request("step")="order" then
set rs=server.CreateObject("adodb.recordset")
sql="select date from job_position where position_id="&request("id")
rs.open sql,conn,1,3
rs("date")=now()
rs.update
rs.close
set rs=nothing
Response.Redirect "Admin_Sysposition.asp?fid="&fid&"&ceng="&request("ceng")
end if
if request("step")="modi" then
position_name=request("position_name")
position_enname=request("position_enname")
if position_name="" then
response.write "<script>alert('对不起，中文岗位不能为空！');location.href='javascript:history.back()';</script>"
Response.End
end if
if position_enname="" then
response.write "<script>alert('对不起，英文岗位不能为空！');location.href='javascript:history.back()';</script>"
Response.End
end if
conn.execute("update job_position set position_name='"&position_name&"',position_enname='"&position_enname&"' where position_id="&request("id"))
Response.Redirect "Admin_Sysposition.asp?fid="&fid&"&ceng="&request("ceng")
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统工作岗位信息设置</title>
<LINK href=../css/style.css rel=stylesheet type="text/css">
</head>
<body>
<table width="98%" border="0" cellspacing="1" cellpadding="2" align=center class="tableBorder">
<tr>
<th height=25 colspan="2" class="tableHeaderText">系统工作岗位信息管理 </th>
</tr>
<tr>
<td colspan="2"><p><B>注意</B>：<BR>
①工作岗位分类直接与会员及会员发布的信息相关联，删除上级分类同时将删除该类别下的所有小分类以及所有相关的信息。<BR>
</td>
</tr>
<%
ceng=request("ceng")
if request("fid")="" then
fid=0
else
fid=request("fid")
end if
if fid=0 then
ceng=1
end if%>
<tr>
<td width="10%" height=25><B>操作选项</B></td>
<td><a href="Admin_Sysposition.asp?fid=0">返回一级分类 </a>|[<a href="javascript:location.reload()">刷新页面</a>] </td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<%if fid<>0 then%>
<tr>
<th class="tableHeaderText" colspan=4 height=25><%
select case ceng
case 2
response.Write "二级分类"
end select
%>列表</th>
</tr>
<%else%>
<tr>
<th class="tableHeaderText" colspan=4 height=25>一级分类列表</th>
</tr>
<%end if%>
<tr align="center">
<%
sql="select * from JOB_position where position_fid="&fid&" order by date desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<td height=20>暂无内容</td>"
else
n=0
do while not rs.eof
n=n+1%>
<td height="25" align="left"><%=rs("position_name")%> (<%=left(rs("position_enname"),7)%>) </td><td><input name="Submit" type="button" class="inputs" onClick="window.location='Admin_Sysposition.asp?fid=<%=fid%>&id=<%=rs("position_id")%>&step=order&ceng=<%=ceng%>'" value="排序">
<%if ceng<2 then%><input name="Submit1" type="button" class="inputs" id="Submit1" onClick="window.location='Admin_Sysposition.asp?fid=<%=rs("position_id")%>&ceng=<%=ceng+1%>'" value="子类">
<%end if%>
<input name="Submit2" type="button" class="inputs" id="Submit2" onClick="window.location='Admin_Sysposition.asp?fid=<%=fid%>&id=<%=rs("position_id")%>&step=mod&ceng=<%=ceng%>'" value="修改">
<input name="Submit3" type="button" class="inputs" id="Submit3" onClick="window.location='Admin_Sysposition.asp?fid=<%=fid%>&id=<%=rs("position_id")%>&step=del&ceng=<%=ceng%>'" value="删除">
</td>
<%if n mod 2=0 then response.write"</tr><tr align=center>"
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</tr>
</table>
<%if request("step")<>"mod" then%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th class="tableHeaderText" colspan=5 height=25>新增分类</th>
</tr>
<form name="addpc" action="Admin_Sysposition.asp?step=add&fid=<%=fid%>&ceng=<%=ceng%>" method="post">
<tr>
<td width="15%"><div align="right">中文名称：</div></td>
<td width="20%"><input type="text" name="position_name"></td>
<td width="15%"><div align="right">英文名称：</div></td>
<td width="20%"><input name="position_enname" type="text"></td>
<td width="15%"><input name="Submit4" type="submit" class="inputs" value="提交"></td>
</tr>
</form>
</table>
<%else%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th class="tableHeaderText" colspan=5 height=25>修改分类</th>
</tr>
<%id=request("id")%>
<form name="addpc" action="Admin_Sysposition.asp?step=modi&fid=<%=fid%>&id=<%=id%>&ceng=<%=ceng%>" method="post">
<% set rsw=conn.execute("select * from JOB_position where position_id="&id)%>
<tr>
<td width="15%"><div align="right">中文名称：</div></td>
<td width="20%"><input type="text" name="position_name" value="<%=rsw("position_name")%>"></td>
<td width="15%"><div align="right">英文名称：</div></td>
<td width="20%"><input name="position_enname" type="text" value="<%=rsw("position_enname")%>"></td>
<td width="15%"><input name="Submit4" type="submit" class="inputs" value="提交"></td>
</tr>
<%rsw.close
set rsw=nothing
%>
</form>
</table>
<%end if%>
<!--#include file="../inc/copy.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -