📄 getcomlist.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,"{$GetComList(","")
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)
groupid=LabelContents(2)
name_left=LabelContents(3)
ishire=LabelContents(4)
hireyes=LabelContents(5)
hire_left=LabelContents(6)
hire_nums=LabelContents(7)
hireflag=LabelContents(8)
comflag=LabelContents(9)
commands=LabelContents(10)
order=LabelContents(11)
target=LabelContents(12)
cpic=LabelContents(13)
yespic=LabelContents(14)
bxpic=LabelContents(15)
tjpic=LabelContents(16)
picw=LabelContents(17)
pich=LabelContents(18)
else
nums=20
rows=2
groupid=0
picw=180
pich=60
name_left=20
hire_left=5
hire_nums=3
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><select name="groupid">
<option value="0" <%if groupid="0" then Response.Write("selected") %>>全部组</option>
<%sql="select * from JOB_Group where Group_membertype=2"
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">是否显示LOGO：</td>
<td><input name="cpic" type="checkbox" class="checkbox" id="cpic" value="1" <%if cpic=1 then Response.Write("checked")%>>
是 <span class="f00">注：未选择此项以下四项不起作用</span></td>
</tr>
<tr>
<td align="right">是否仅显示LOGO：</td>
<td><input name="yespic" type="checkbox" class="checkbox" id="yespic" value="1" <%if yespic=1 then Response.Write("checked")%>>
是 <span class="f00">注：选择此项将不显示企业名称</span></td>
</tr>
<tr>
<td align="right">LOGO是否必须：</td>
<td><input name="bxpic" type="checkbox" class="checkbox" id="bxpic" value="1" <%if bxpic=1 then Response.Write("checked")%>>
是</td>
</tr>
<tr>
<td align="right">LOGO是否推荐：</td>
<td><input name="tjpic" type="checkbox" class="checkbox" id="tjpic" value="1" <%if tjpic=1 then Response.Write("checked")%>>
是 <span class="f00">注：未选择此项将显示所有LOGO</span></td>
</tr>
<tr>
<td align="right">LOGO尺寸大小：</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="name_left" type="text" size="4" value="<%=name_left%>"></td>
</tr>
<tr>
<td align="right">已发布职位：</td>
<td><input name="ishire" type="checkbox" class="checkbox" id="ishire" value="1" <%if ishire=1 then Response.Write("checked")%>>
是</td>
</tr>
<tr>
<td align="right">是否显示职位名称：</td>
<td><input name="hireyes" type="checkbox" class="checkbox" id="hireyes" value="1" <%if hireyes=1 then Response.Write("checked")%>>
是</td>
</tr>
<tr>
<td align="right">职位名称字数：</td>
<td><input name="hire_left" type="text" size="4" value="<%=hire_left%>"></td>
</tr>
<tr>
<td align="right">显示职位数量：</td>
<td><input name="hire_nums" type="text" size="4" value="<%=hire_nums%>"></td>
</tr>
<tr>
<td align="right">是否已审核职位：</td>
<td><input name="hireflag" type="checkbox" class="checkbox" id="hireflag" value="1" <%if hireflag=1 then Response.Write("checked")%>>
是</td>
</tr>
<tr>
<td align="right">企业是否已审核：</td>
<td><input name="comflag" type="checkbox" class="checkbox" id="comflag" value="1" <%if comflag=1 then Response.Write("checked")%>>
是</td>
</tr>
<tr>
<td align="right">企业是否推荐：</td>
<td><input name="commands" type="checkbox" class="checkbox" id="commands" value="1" <%if commands=1 then Response.Write("checked")%>>
是</td>
</tr>
<tr>
<td align="right">排序方式：</td>
<td><select name="order">
<option value="Member_id desc" <%if order="Member_id desc" then Response.Write("selected")%>>按ID正序排列</option>
<option value="Member_id asc" <%if order="Member_id asc" then Response.Write("selected")%>>按ID反序排列</option>
<option value="Member_hits desc" <%if order="Member_hits desc" then Response.Write("selected")%>>按点击次数</option>
<option value="Member_regdate desc" <%if order="Member_regdate 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
groupid=Trim(Request.Form("groupid"))
cpic=Trim(Request.Form("cpic"))
if cpic="" then
cpic=0
end if
yespic=Trim(Request.Form("yespic"))
if yespic="" then
yespic=0
end if
bxpic=Trim(Request.Form("bxpic"))
if bxpic="" then
bxpic=0
end if
tjpic=Trim(Request.Form("tjpic"))
if tjpic="" then
tjpic=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
name_left=Trim(Request.Form("name_left"))
if name_left="" then
name_left=20
end if
ishire=Trim(Request.Form("ishire"))
if ishire="" then
ishire=0
end if
hireyes=Trim(Request.Form("hireyes"))
if hireyes="" then
hireyes=0
end if
hire_left=Trim(Request.Form("hire_left"))
if hire_left="" then
hire_left=5
end if
hire_nums=Trim(Request.Form("hire_nums"))
if hire_nums="" then
hire_nums=3
end if
hireflag=Trim(Request.Form("hireflag"))
if hireflag="" then
hireflag=0
end if
comflag=Trim(Request.Form("comflag"))
if comflag="" then
comflag=0
end if
commands=Trim(Request.Form("commands"))
if commands="" then
commands=0
end if
order=Trim(Request.Form("order"))
target=Trim(Request.Form("target"))
LabelContent="{$GetComList("&nums&","&rows&","&groupid&","&name_left&","&ishire&","&hireyes&","&hire_left&","&hire_nums&","&hireflag&","&comflag&","&commands&","&order&","&target&","&cpic&","&yespic&","&bxpic&","&tjpic&","&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 + -