📄 getresumelist.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../checkvalid.asp"-->
<%
If Not FRAdminLevel(404) Then
Call ErrorMsg()
End If
Dim Action
Dim FoundErr,ErrMsg
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Finereason HRCMS 6.0 后台管理系统</title>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
<script language="javascript">
<!--
function fnRemoveBrank(strSource)
{
return strSource.replace(/^\s*/,'').replace(/\s*$/,'');
}
function String.prototype.lenB()
{
return this.replace(/[^\x00-\xff]/g,"**").length;
}
function Juge(theForm)
{
if (fnRemoveBrank(theForm.LabelName.value) == "")
{
alert("请输入标签名称!");
theForm.LabelName.focus();
return (false);
}
// if (fnRemoveBrank(theForm.cid.value) == "")
// {
// alert("请选择频道!");
// theForm.cid.focus();
// return (false);
// }
// if (fnRemoveBrank(theForm.tid.value) == "")
// {
// alert("请选择栏目!");
// theForm.tid.focus();
// return (false);
// }
// var objv = fnRemoveBrank(theForm.imgnum.value);
// var pattern = /^[0-9]+$/;
// flag = pattern.test(objv);
// if(!flag)
// {
// alert("图片数量应该为整数数字!");
// theForm.imgnum.focus();
// return (false);
// }
// var objv = fnRemoveBrank(theForm.imgw.value);
// var pattern = /^[0-9]+$/;
// flag = pattern.test(objv);
// if(!flag)
// {
// alert("图片宽度应该为整数数字!");
// theForm.imgw.focus();
// return (false);
// }
// var objv = fnRemoveBrank(theForm.imgh.value);
// var pattern = /^[0-9]+$/;
// flag = pattern.test(objv);
// if(!flag)
// {
// alert("图片高度应该为整数数字!");
// theForm.imgh.focus();
// return (false);
// }
// if (fnRemoveBrank(theForm.order.value) == "")
// {
// alert("请选择排序方式!");
// theForm.order.focus();
// return (false);
// }
// var objv = fnRemoveBrank(theForm.font_left.value);
// var pattern = /^[0-9]+$/;
// flag = pattern.test(objv);
// if(!flag)
// {
// alert("标题字数应该为整数数字!");
// theForm.font_left.focus();
// return (false);
// }
if (fnRemoveBrank(theForm.Labelorder.value) != "")
{
var objv = fnRemoveBrank(theForm.Labelorder.value);
var pattern = /^[0-9]+$/;
flag = pattern.test(objv);
if(!flag)
{
alert("标签级别要求为数字!请重新输入。");
theForm.Labelorder.focus();
return (false);
}
}
}
//-->
</script></head>
<body>
<%
Action=trim(Request("Action"))
select case Action
Case "Add"
Call ShowData()
Case "Modify"
Call ShowData()
Case "SaveData"
Call SaveData()
end select
Sub ShowData()
LabelID=trim(request.QueryString("LabelID"))
If LabelID<>"" and IsNumeric(LabelID) Then
sql="select * from JOB_Label where LabelID=" & LabelID
set rs=server.CreateObject (FR_HR_RS)
rs.open sql,conn,1,1
if not rs.eof then
LabelName=Rs("LabelName")
LabelName=Replace(LabelName,"{$FR_","")
LabelName=Replace(LabelName,"}","")
LabelType=Rs("LabelType")
LabelContent=Rs("LabelContent")
LabelContent=Replace(LabelContent,"{$GetResumeList(","")
LabelContent=Replace(LabelContent,")}","")
LabelContents=Split(LabelContent,",")
LabelIntro=Rs("LabelIntro")
Labelorder=Rs("Labelorder")
end if
rs.Close
Set rs=Nothing
nums=LabelContents(0)
rows=LabelContents(1)
sqlfield=LabelContents(2)
Resumefield=Split(sqlfield,"|")
flag=LabelContents(3)
cnstatus=LabelContents(4)
commands=LabelContents(5)
groupid=LabelContents(6)
usergroup=LabelContents(7)
jobtype=LabelContents(8)
order=LabelContents(9)
target=LabelContents(10)
ppic=LabelContents(11)
bxic=LabelContents(12)
picw=LabelContents(13)
pich=LabelContents(14)
else
Resumefield=Split("0|0|0|0|0|0|0|0|0","|")
nums=20
rows=1
groupid=0
picw=110
pich=80
LabelName=""
LabelIntro="请输入标签介绍..."
Labelorder=0
End If
%>
<table width="51%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th colspan="2" align="right"><%if LabelID<>"" then:Response.Write("编辑"&LabelName):else:Response.Write("添加简历列表"):end if%>标签</th>
</tr>
<form action="?Action=SaveData&LabelID=<%=LabelID%>" method="post" name="labelform" onSubmit="return Juge(this)">
<tr>
<td align="right">标签名称：</td>
<td>{$FR_<input name="LabelName" type="text" size="15" value="<%=LabelName%>" <%if LabelID<>"" and LabelType=<5 then Response.Write("readonly")%> />
}请输入中文汉字作为标签名称</td>
</tr>
<tr>
<td width="22%" align="right">显示简历数量：</td>
<td width="78%"><input name="nums" type="text" size="4" value="<%=nums%>"></td>
</tr>
<tr>
<td align="right">显示列数：</td>
<td><label>
<input name="rows" type="text" size="4" value="<%=rows%>">
列</label></td>
</tr>
<tr>
<td align="right">显示内容项目：</td>
<td><input name="Resumefield0" type="checkbox" class="checkbox" value="1" <%if Resumefield(0)=1 then Response.Write("checked")%>>
简历编号
<input name="Resumefield1" type="checkbox" class="checkbox" value="1" <%if Resumefield(1)=1 then Response.Write("checked")%>>
用户名
<input name="Resumefield2" type="checkbox" class="checkbox" value="1" <%if Resumefield(2)=1 then Response.Write("checked")%>>
真实姓名
<input name="Resumefield3" type="checkbox" class="checkbox" value="1" <%if Resumefield(3)=1 then Response.Write("checked")%>>
性别
<input name="Resumefield4" type="checkbox" class="checkbox" value="1" <%if Resumefield(4)=1 then Response.Write("checked")%>>
出生年月
<input name="Resumefield5" type="checkbox" class="checkbox" value="1" <%if Resumefield(5)=1 then Response.Write("checked")%>>
学历
<input name="Resumefield6" type="checkbox" class="checkbox" value="1" <%if Resumefield(6)=1 then Response.Write("checked")%>>
意向工作职位
<input name="Resumefield7" type="checkbox" class="checkbox" value="1" <%if Resumefield(7)=1 then Response.Write("checked")%>>
性质
<input name="Resumefield8" type="checkbox" class="checkbox" value="1" <%if Resumefield(8)=1 then Response.Write("checked")%>>
意向工作地</td>
</tr>
<tr>
<td align="right">是否显示照片：</td>
<td><input name="ppic" type="checkbox" class="checkbox" id="ppic" value="1" <%if ppic=1 then Response.Write("checked")%>>
是 <span class="f00">注：未选择此项以下两项不起作用</span></td>
</tr>
<tr>
<td align="right">是否必须照片：</td>
<td><input name="bxpic" type="checkbox" class="checkbox" id="bxpic" value="1" <%if bxpic=1 then Response.Write("checked")%>>
是 <span class="f00">注：选择此项将只显示有照片的人才简历</span></td>
</tr>
<tr>
<td align="right">照片尺寸大小：</td>
<td>宽
<input name="picw" type="text" id="picw" size="4" value="<%=picw%>">
px 高
<input name="pich" type="text" id="pich" size="4" value="<%=pich%>">
px</td>
</tr>
<tr>
<td align="right">是否已审核的简历：</td>
<td><input name="flag" type="checkbox" class="checkbox" value="1" <%if flag=1 then Response.Write("checked")%>>
是</td>
</tr>
<tr>
<td align="right">简历是否已激活：</td>
<td><input name="cnstatus" type="checkbox" class="checkbox" value="1" <%if cnstatus=1 then Response.Write("checked")%>>
是</td>
</tr>
<tr>
<td align="right">是否精英人才：</td>
<td><input name="commands" type="checkbox" class="checkbox" value="1" <%if commands=1 then Response.Write("checked")%>>
是(推荐的个人会员)</td>
</tr>
<tr>
<td align="right">个人会员组：</td>
<td><select name="groupid">
<option value="0" <%if groupid="0" then Response.Write("selected") %>>全部组</option>
<%sql="select * from JOB_Group where Group_membertype=1"
set rsw=conn.execute(sql)
if not rsw.eof then
do while not rsw.eof%>
<option value="<%=rsw("Group_id")%>" <%if groupid=trim(rsw("Group_id")) then Response.Write("selected") %>><%=rsw("Group_name")%></option>
<%rsw.movenext
loop
end if
rsw.close
set rsw=nothing%>
</select></td>
</tr>
<tr>
<td align="right">人才类型：</td>
<td>
<select name="usergroup">
<option value="0" <%if usergroup=0 then Response.Write("selected")%>>普通人才</option>
<option value="1" <%if usergroup=1 then Response.Write("selected")%>>毕业生</option>
<option value="2" <%if usergroup=2 then Response.Write("selected")%>>高级人才</option>
<option value="3" <%if usergroup=3 then Response.Write("selected")%>>全部</option>
</select> </td>
</tr>
<tr>
<td align="right">意向职位类型：</td>
<td><select name="jobtype">
<option value="1" <%if jobtype=1 then Response.Write("selected")%>>全职</option>
<option value="2" <%if jobtype=2 then Response.Write("selected")%>>兼职</option>
<option value="3" <%if jobtype=3 then Response.Write("selected")%>>两者均可</option>
</select></td>
</tr>
<tr>
<td align="right">排序方式：</td>
<td><select name="order">
<option value="resume_announcedate desc" <%if order="resume_announcedate desc" then Response.Write("selected")%>>按更新时间正序排列</option>
<option value="resume_announcedate asc" <%if order="resume_announcedate asc" then Response.Write("selected")%>>按更新时间反序排列</option>
<option value="resume_visitnum desc" <%if order="resume_visitnum desc" then Response.Write("selected")%>>按点击次数</option>
<option value="Member_regdate desc" <%if order="Member_regdate desc" then Response.Write("selected")%>>会员注册时间</option>
</select></td>
</tr>
<tr>
<td align="right">打开方式：</td>
<td><select name="target">
<option value="_blank" <%if target="_blank" then Response.Write("selected")%>>新窗口打开</option>
<option value="_self" <%if target="_self" then Response.Write("selected")%>>原窗口打开</option>
</select></td>
</tr>
<tr>
<td align="right">标签介绍：</td>
<td><label>
<textarea name="LabelIntro" cols="60" rows="4"><%=LabelIntro%></textarea>
</label></td>
</tr>
<tr>
<td align="right">标签级别：</td>
<td><input name="Labelorder" type="text" size="4" value="<%=Labelorder%>">
级别较高标签将被优先转换</td>
</tr>
<tr>
<td colspan="2" align="center"><label>
<input name="Submit" type="submit" class="inputs" value="保 存">
<input name="Submit2" type="reset" class="inputs" value="重 置">
<input name="Submit3" type="button" class="inputs" value="取 消" onClick="window.close();">
</label></td>
</tr>
</form>
</table>
<%End Sub%>
</body>
</html>
<%Sub SaveData()
LabelID=trim(request.QueryString("LabelID"))
LabelName=Trim(Request.Form("LabelName"))
LabelName=Replace(LabelName,LabelName,"{$FR_"&LabelName&"}")
nums=Trim(Request.Form("nums"))
if nums="" then
nums=60
end if
rows=Trim(Request.Form("rows"))
if rows="" then
rows=2
end if
Resumefield0=Trim(Request.Form("Resumefield0"))
if Resumefield0="" then
Resumefield0=0
end if
Resumefield1=Trim(Request.Form("Resumefield1"))
if Resumefield1="" then
Resumefield1=0
end if
Resumefield2=Trim(Request.Form("Resumefield2"))
if Resumefield2="" then
Resumefield2=0
end if
Resumefield3=Trim(Request.Form("Resumefield3"))
if Resumefield3="" then
Resumefield3=0
end if
Resumefield4=Trim(Request.Form("Resumefield4"))
if Resumefield4="" then
Resumefield4=0
end if
Resumefield5=Trim(Request.Form("Resumefield5"))
if Resumefield5="" then
Resumefield5=0
end if
Resumefield6=Trim(Request.Form("Resumefield6"))
if Resumefield6="" then
Resumefield6=0
end if
Resumefield7=Trim(Request.Form("Resumefield7"))
if Resumefield7="" then
Resumefield7=0
end if
Resumefield8=Trim(Request.Form("Resumefield8"))
if Resumefield8="" then
Resumefield8=0
end if
sqlfield=Resumefield0&"|"&Resumefield1&"|"&Resumefield2&"|"&Resumefield3&"|"&Resumefield4&"|"&Resumefield5&"|"&Resumefield6&"|"&Resumefield7&"|"&Resumefield8
ppic=Trim(Request.Form("ppic"))
if ppic="" then
ppic=0
end if
bxpic=Trim(Request.Form("bxpic"))
if bxpic="" then
bxpic=0
end if
picw=Trim(Request.Form("picw"))
if picw="" then
picw=0
end if
pich=Trim(Request.Form("pich"))
if pich="" then
pich=0
end if
flag=Trim(Request.Form("flag"))
if flag="" then
flag=0
end if
cnstatus=Trim(Request.Form("cnstatus"))
if cnstatus="" then
cnstatus=0
end if
commands=Trim(Request.Form("commands"))
if commands="" then
commands=0
end if
groupid=Trim(Request.Form("groupid"))
jobtype=Trim(Request.Form("jobtype"))
usergroup=Trim(Request.Form("usergroup"))
order=Trim(Request.Form("order"))
target=Trim(Request.Form("target"))
LabelContent="{$GetResumeList("&nums&","&rows&","&sqlfield&","&flag&","&cnstatus&","&commands&","&groupid&","&usergroup&","&jobtype&","&order&","&target&","&ppic&","&bxpic&","&picw&","&pich&")}"
LabelIntro=Trim(Request.Form("LabelIntro"))
Labelorder=Trim(Request.Form("Labelorder"))
If LabelName="" Then
Response.Write ("<script language=JavaScript>{alert('请输入标签名称！');history.back();}</script>")
Response.End
End If
If Labelorder="" then
Labelorder=0
end if
set rs=Server.CreateObject(FR_HR_RS)
if LabelID<>"" and IsNumeric(LabelID) then
sql="select * from JOB_Label where LabelID=" & LabelID
else
sql="select * from JOB_Label"
end if
rs.open sql,conn,1,3
if LabelID="" then
rs.AddNew
rs("LabelType")=6
rs("Labeladddate")=now()
end if
rs("LabelName")=LabelName
rs("LabelContent")=LabelContent
rs("LabelIntro")=LabelIntro
rs("Labelorder")=Labelorder
rs("Labeleditdate")=now()
rs.update
rs.close
set rs=nothing
Response.Write ("<script language=JavaScript>{alert('操作成功！');window.opener.location.reload();window.close();}</script>")
Response.End
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -