www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/hr.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
Call CheckAdmin()
'Call CnkAdminRight(1)
Dim ShowLang
ShowLang=Trim(Request("ShowLang"))
if ShowLang<>"" then ShowLang=Clng(ShowLang)
thispage=request("page_code")
if thispage="" then
thispage=1
else
thispage=clng(thispage)
end if
if thispage<1 then thispage=1
PagePara="?ShowLang="&ShowLang
Dim Action,Language,hrid,JobPosition,Renshu,JobArea,Daiyu,Sex,Age,Xueli,Zhuanye,Content,startdate,enddate
Action=Trim(Request("Action"))
Language=Trim(Request.Form("Language"))
JobPosition=Trim(Request.Form("JobPosition"))
Renshu=Trim(Request.Form("Renshu"))
JobArea=Trim(Request.Form("JobArea"))
Daiyu=Trim(Request.Form("Daiyu"))
Sex=Trim(Request.Form("Sex"))
Age=Trim(Request.Form("Age"))
Xueli=Trim(Request.Form("Xueli"))
Zhuanye=Trim(Request.Form("Zhuanye"))
Content=Trim(Request.Form("Content"))
startdate=Trim(Request.Form("startdate"))
enddate=Trim(Request.Form("enddate"))
hrid=Trim(Request("hrid"))
Call Head()
%>
<script language="JavaScript">
<!--
function cform(){
if(!confirm("您确认删除吗? 请注意删除后无法恢复!"))
return false;
}//-->
</script>
<body>
<div class="cnkbox">
<% =GetChannelContent(ChannelID,"ChannelName")%>
管理导航： <a href="?ChannelID=<%= ChannelID %>">人才招聘管理首页</a> | <a href="?ChannelID=<%= ChannelID %>&Action=Add">添加招聘信息</a></div>
<%
select case Action
case "saveadd"
Call SaveAdd()
case "savemodi"
Call SaveModi()
case "del"
Call AdminRight("DelAdmin",ChannelID,session("admin"))
Call del()
case ""
%>
<div class="cnkbox">
<div class="title">
<% =GetChannelContent(ChannelID,"ChannelName")%>
人才招聘管理</div>
<div class="content"> <a href="?ChannelID=<%=ChannelID%>">显示全部</a> | <a href="?ChannelID=<%=ChannelID%>&ShowLang=0">只显示中文</a> | <a href="?ChannelID=<%=ChannelID%>&ShowLang=1">只显示英文</a>
<% Dim ipage
sql="select * from Cnk_hr where ChannelID="&ChannelID
if ShowLang<>"" then sql=sql&" and Lang="&ShowLang
sql=sql&" order by startdate desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "<br>未有内容"
Response.end
else
rs.pagesize=20
if thispage>rs.pagecount then thispage=rs.pagecount
rs.AbsolutePage = thispage
for ipage=1 to rs.pagesize
%>
<table width="96%" border="0" cellpadding="3" cellspacing="1">
<tr bgcolor="#C2E0FE" align="center">
<td colspan="4" align="right" bgcolor="#C2E0FE"><a href="?hrid=<%=rs("hrid")%>&ChannelID=<%=ChannelID%>&ShowLang=<%= ShowLang %>&Action=modi">修改</a> | <a href="?hrid=<%=rs("hrid")%>&ChannelID=<%=ChannelID%>&ShowLang=<%= ShowLang %>&Action=del" onClick="return cform()">删除</a></td>
</tr>
<tr align="left">
<td width="20%" bgcolor="#C2E0FE">招聘职位</td>
<td width="30%" bgcolor="#F6F6F6"><%=rs("JobPosition")%></td>
<td width="20%" bgcolor="#C2E0FE">待遇/福利</td>
<td width="30%" bgcolor="#F6F6F6"><%=rs("Daiyu")%></td>
</tr>
<tr align="left">
<td bgcolor="#C2E0FE">招聘人数</td>
<td bgcolor="#F6F6F6"><%=rs("Renshu")%></td>
<td bgcolor="#C2E0FE">学历要求</td>
<td bgcolor="#F6F6F6"><%=rs("Xueli")%></td>
</tr>
<tr align="left">
<td bgcolor="#C2E0FE">工作地点</td>
<td bgcolor="#F6F6F6"><%=rs("JobArea")%></td>
<td bgcolor="#C2E0FE">专业要求</td>
<td bgcolor="#F6F6F6"><%=rs("Zhuanye")%></td>
</tr>
<tr align="left">
<td bgcolor="#C2E0FE">性别要求</td>
<td bgcolor="#F6F6F6"><%=rs("Sex")%></td>
<td bgcolor="#C2E0FE">发布日期</td>
<td bgcolor="#F6F6F6"><%=rs("startdate")%></td>
</tr>
<tr align="left">
<td bgcolor="#C2E0FE">年龄要求</td>
<td bgcolor="#F6F6F6"><%=rs("Age")%></td>
<td bgcolor="#C2E0FE">有效期至</td>
<td bgcolor="#F6F6F6"><%=rs("enddate")%></td>
</tr>
<tr align="left">
<td bgcolor="#C2E0FE">详细要求</td>
<td bgcolor="#F6F6F6" colspan="3"><%=CnkUBBContent(rs("Content"))%></td>
</tr>
</table>
<hr size="1">
<%rs.movenext
if rs.eof then exit for
next%>
<table width="96%" height="21" border="0" background="images/bg-xg.gif" bgcolor="#EFEFEF">
<tr>
<td width="50%"><% = GetPageList(rs.pagecount,thispage,PagePara,0) %></td>
<td width="50%" align="right"> 共 <strong><%=rs.recordcount%></strong> 条
<% = GetPage(rs.pagecount,thispage,PagePara,0) %></td>
</tr>
</table>
<% rs.close
set rs=nothing
End If %>
</div>
</div>
<% Case "Add"
Call AdminRight("AddAdmin",ChannelID,session("admin"))%>
<form name="form1" method="post" action="hr.asp">
<div class="cnkbox">
<div class="title">
<% =GetChannelContent(ChannelID,"ChannelName")%>
添加招聘信息</div>
<div class="content">
<div id="list">
<ul>
<li class="t1">选择语言：</li>
<li class="t2">
<% If Lang=0 or Lang=2 Then %>
<input type="radio" name="Language" value="0" id="Lang1" checked="checked" />
<label for="Lang1">中文</label>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<input type="radio" name="Language" value="1" id="Lang2" />
<label for="Lang2">EngLish</label>
<% End If %>
</li>
</ul>
<ul>
<li class="t1">招聘职位：</li>
<li class="t2">
<input name="JobPosition" type="text" class="input" id="JobPosition" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">招聘人数：</li>
<li class="t2">
<input name="Renshu" type="text" class="input" id="Renshu" size="20" maxlength="5" />
人 (只能填数字)
</li>
</ul>
<ul>
<li class="t1">工作地区：</li>
<li class="t2">
<input name="JobArea" type="text" class="input" id="JobArea" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">福利待遇：</li>
<li class="t2">
<input name="Daiyu" type="text" class="input" id="Daiyu" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">性别要求：</li>
<li class="t2">
<select name="Sex" id="Sex" class="input">
<option value="不限" selected>不限</option>
<option value="男">男</option>
<option value="女">女</option>
</select>
</li>
</ul>
<ul>
<li class="t1">年龄要求：</li>
<li class="t2">
<input name="Age" type="text" class="input" id="Age" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">学历要求：</li>
<li class="t2">
<input name="Xueli" type="text" class="input" id="Xueli" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">专业要求：</li>
<li class="t2">
<input name="Zhuanye" type="text" class="input" id="Zhuanye" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">发布日期：</li>
<li class="t2">
<input name="startdate" type="text" class="input" id="startdate" value="<%= date %>" size="20" maxlength="10" />
格式:2007-6-18
</li>
</ul>
<ul>
<li class="t1">有效期至：</li>
<li class="t2">
<input name="enddate" type="text" class="input" id="enddate" value="<%= date+30 %>" size="20" maxlength="10" />
格式:2007-8-18
</li>
</ul>
<ul>
<li class="t1">详细要求：</li>
<li class="t2">
<textarea name="Content" cols="70" rows="20" class="input" id="Content"></textarea>
</li>
</ul>
<br />
<ul>
<li class="t1">
<input name="Action" type="hidden" id="Action" value="saveadd" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" />
<input name="ShowLang" type="hidden" id="ShowLang" value="<%= ShowLang %>" />
</li>
<li class="t2">
<input name="提交" type="submit" class="button" value="提交" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</div>
</div>
</form>
<% Case "modi"
Call AdminRight("ModiAdmin",ChannelID,session("admin"))
rs.open "select * from Cnk_hr where hrid="&hrid,conn,1,1
%>
<form name="form1" method="post" action="hr.asp">
<div class="cnkbox">
<div class="title">
<% =GetChannelContent(ChannelID,"ChannelName")&" -- "%>
修改招聘信息</div>
<div class="content">
<div id="list">
<ul>
<li class="t1">选择语言：</li>
<li class="t2">
<% If Lang=0 or Lang=2 Then %>
<input type="radio" name="Language" value="0" id="Lang1" <% If rs("Lang")=0 Then Response.Write("checked=""checked""")%> />
<label for="Lang1">中文</label>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<input type="radio" name="Language" value="1" id="Lang2" <% If rs("Lang")=1 Then Response.Write("checked=""checked""")%> />
<label for="Lang2">EngLish</label>
<% End If %>
</li>
</ul>
<ul>
<li class="t1">招聘职位：</li>
<li class="t2">
<input name="JobPosition" type="text" class="input" id="JobPosition" value="<%= rs("JobPosition") %>" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">招聘人数：</li>
<li class="t2">
<input name="Renshu" type="text" class="input" id="Renshu" value="<%= rs("Renshu") %>" size="20" maxlength="5" />
人
</li>
</ul>
<ul>
<li class="t1">工作地区：</li>
<li class="t2">
<input name="JobArea" type="text" class="input" id="JobArea" value="<%= rs("JobArea") %>" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">福利待遇：</li>
<li class="t2">
<input name="Daiyu" type="text" class="input" id="Daiyu" size="30" value="<%= rs("Daiyu") %>" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">性别要求：</li>
<li class="t2">
<select name="Sex" id="Sex" class="input">
<option value="不限" <% If rs("Sex")="不限" Then Response.Write("selected=""selected""")%>>不限</option>
<option value="男" <% If rs("Sex")="男" Then Response.Write("selected=""selected""")%>>男</option>
<option value="女" <% If rs("Sex")="女" Then Response.Write("selected=""selected""")%>>女</option>
</select>
</li>
</ul>
<ul>
<li class="t1">年龄要求：</li>
<li class="t2">
<input name="Age" type="text" class="input" id="Age" value="<%= rs("Age") %>" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">学历要求：</li>
<li class="t2">
<input name="Xueli" type="text" class="input" id="Xueli" value="<%= rs("Xueli") %>" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">专业要求：</li>
<li class="t2">
<input name="Zhuanye" type="text" class="input" id="Zhuanye" value="<%= rs("Zhuanye") %>" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">发布日期：</li>
<li class="t2">
<input name="startdate" type="text" class="input" id="startdate" value="<%= rs("startdate") %>" size="20" maxlength="10" />
格式:2007-6-18
</li>
</ul>
<ul>
<li class="t1">有效期至：</li>
<li class="t2">
<input name="enddate" type="text" class="input" id="enddate" value="<%= rs("startdate") %>" size="20" maxlength="10" />
格式:2007-8-18
</li>
</ul>
<ul>
<li class="t1">详细要求：</li>
<li class="t2">
<textarea name="Content" cols="70" rows="20" class="input" id="Content"><%= rs("content") %></textarea>
</li>
</ul>
<br />
<ul>
<li class="t1">
<input name="Action" type="hidden" id="Action" value="savemodi" />
<input name="hrid" type="hidden" id="hrid" value="<%= rs("hrid") %>" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" />
<input name="ShowLang" type="hidden" id="ShowLang" value="<%= ShowLang %>" />
</li>
<li class="t2">
<input name="提交" type="submit" class="button" value="提交" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</div>
</div>
</form>
<%
rs.close
End Select
Call Foot()
Call Closedb()
Sub SaveAdd()
sql="insert into Cnk_hr"
sql=sql&" (ChannelID,[Lang],JobPosition,Renshu,JobArea,Daiyu,Sex,Age,Xueli,Zhuanye,Content,startdate,enddate)"
sql=sql&" values ("&ChannelID&","&Language&",'"&JobPosition&"',"&Renshu&",'"&JobArea&"','"&Daiyu&"','"&Sex&"','"&Age&"','"&Xueli&"','"&Zhuanye&"','"&Content&"','"&startdate&"','"&enddate&"')"
conn.execute(sql)
Call alertmsg_url("添加成功","hr.asp?ChannelID="&ChannelID&"&ShowLang="&ShowLang)
End Sub
Sub SaveModi()
sql="update Cnk_hr set"
sql=sql&" ChannelID="&ChannelID&",Lang="&Language&",JobPosition='"&JobPosition&"',Renshu="&Renshu&",JobArea='"&JobArea&"',Daiyu='"&Daiyu&"',Age='"&Age&"',Sex='"&Sex&"',Xueli='"&Xueli&"',Zhuanye='"&Zhuanye&"',Content='"&Content&"',startdate='"&startdate&"',enddate='"&enddate&"' where hrid="&hrid
conn.execute(sql)
Call alertmsg_url("修改成功","hr.asp?ChannelID="&ChannelID&"&ShowLang="&ShowLang)
End Sub
Sub del()
conn.execute("delete from Cnk_hr where hrid="&hrid)
Call alertmsg_url("删除成功","hr.asp?ChannelID="&ChannelID&"&ShowLang="&ShowLang)
End Sub
%>