admin_group.asp

嘉缘人才6.0精简 ,很好用的人才系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../inc/commoncode.asp"-->
<!--#include file="../checkvalid.asp"-->
<%If Not FRAdminLevel(203) Then
	Call ErrorMsg()
End If
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.ExpiresAbsolute = Now() - 1 
Dim Action
Dim FoundErr,ErrMsg
Group_id=request("Group_id")
typeid=request("typeid")
Sub addmore()
Group_name=Trim(Request("Group_name"))
Group_images=Trim(Request("Group_images"))
Group_unit=Trim(Request("Group_unit"))
Group_term=Trim(Request("Group_term"))
Group_outlay=Trim(Request("Group_outlay"))
Group_membertype=Clng(Trim(request("Group_membertype")))
'新增
Group_namenew=Trim(Request("Group_namenew"))
Group_imagesnew=Trim(Request("Group_imagesnew"))
Group_unitnew=Trim(Request("Group_unitnew"))
Group_termnew=Clng(Trim(Request("Group_termnew")))
Group_outlaynew=Clng(Trim(Request("Group_outlaynew")))
	if action<>"" and action="Addmore" then
'更新现有的记录
		pp=ubound(split(Group_id,","))+1 
			for v=1 to pp
			Group_id=request("Group_id")(v)
			Group_name=request("Group_name")(v)
			Group_unit=request("Group_unit")(v)
			Group_term=request("Group_term")(v)
			Group_outlay=request("Group_outlay")(v)
			Group_images=request("Group_images")(v)
			if Group_id="" or Group_name="" or Group_unit="" or Group_term="" or Group_outlay="" or Group_images="" or not IsNumeric(Group_id) or not IsNumeric(Group_term) or not IsNumeric(Group_outlay) then
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>部分项目未填写完整！</li>"
				exit sub
			else
			Set rst= Server.CreateObject(FR_HR_RS)
			sql1="select * from JOB_Group where Group_id="&Group_id&""
			rst.open sql1,conn,1,3
			rst("Group_name")=Group_name
			rst("Group_unit")=Group_unit
			rst("Group_term")=Clng(Group_term)
			rst("Group_outlay")=Group_outlay
			rst("Group_images")=Group_images
			rst.update
			end if
			next
			rst.close
			set rst=nothing
		if Group_namenew<>"" then
		Set rs= Server.CreateObject(FR_HR_RS)
		sql="select * from JOB_Group where Group_name='"&Group_namenew&"' and Group_membertype="&Group_membertype&""
		rs.open sql,conn,1,3
			if not rs.eof then
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>用户组已存在！</li>"
				exit sub
			else
			rs.addnew
			rs("Group_name")=Group_namenew
			rs("Group_membertype")=Group_membertype
			rs("Group_outlay")=Group_outlaynew
			rs("Group_term")=Group_termnew
			rs("Group_unit")=Group_unitnew
			rs("Group_images")=Group_imagesnew
			rs.update
			end if
		rs.close
		set rs=nothing
		end if
		response.redirect "Admin_Group.asp#type"&Group_membertype-1&""
		response.end	
	end if
end sub
Sub SaveModify()
Group_name=Trim(Request("Group_name"))
Group_images=Trim(Request("Group_images"))
Group_unit=Trim(Request("Group_unit"))
Group_term=Trim(Request("Group_term"))
Group_outlay=Trim(Request("Group_outlay"))
Group_membertype=Clng(Trim(request("Group_membertype")))

if Group_membertype=1 then
Group_Plimit0=Clng(Trim(Request("Group_Plimit0")))
Group_Plimit1=Clng(Trim(Request("Group_Plimit1")))
Group_Plimit2=Clng(Trim(Request("Group_Plimit2")))
Group_Plimit3=Clng(Trim(Request("Group_Plimit3")))
Group_Plimit4=Clng(Trim(Request("Group_Plimit4")))
Group_Plimit5=Clng(Trim(Request("Group_Plimit5")))
Group_Plimit6=Clng(Trim(Request("Group_Plimit6")))
Group_Plimit7=Clng(Trim(Request("Group_Plimit7")))
Group_Plimit8=Clng(Trim(Request("Group_Plimit8")))
Group_Plimit9=Clng(Trim(Request("Group_Plimit9")))
Group_Plimit=""&Group_Plimit0&","&Group_Plimit1&","&Group_Plimit2&","&Group_Plimit3&","&Group_Plimit4&","&Group_Plimit5&","&Group_Plimit6&","&Group_Plimit7&","&Group_Plimit8&","&Group_Plimit9&""

Group_Pdianshu0=Clng(Trim(Request("Group_Pdianshu0")))
Group_Pdianshu1=Clng(Trim(Request("Group_Pdianshu1")))
Group_Pdianshu2=Clng(Trim(Request("Group_Pdianshu2")))
Group_Pdianshu3=Clng(Trim(Request("Group_Pdianshu3")))
Group_Pdianshu4=Clng(Trim(Request("Group_Pdianshu4")))
Group_Pdianshu5=Clng(Trim(Request("Group_Pdianshu5")))
Group_Pdianshu6=Clng(Trim(Request("Group_Pdianshu6")))
Group_Pdianshu7=Clng(Trim(Request("Group_Pdianshu7")))
Group_Pdianshu=""&Group_Pdianshu0&","&Group_Pdianshu1&","&Group_Pdianshu2&","&Group_Pdianshu3&","&Group_Pdianshu4&","&Group_Pdianshu5&","&Group_Pdianshu6&","&Group_Pdianshu7&""

Group_Pintegral0=Clng(Trim(Request("Group_Pintegral0")))
Group_Pintegral1=Clng(Trim(Request("Group_Pintegral1")))
Group_Pintegral2=Clng(Trim(Request("Group_Pintegral2")))
Group_Pintegral3=Clng(Trim(Request("Group_Pintegral3")))
Group_Pintegral4=Clng(Trim(Request("Group_Pintegral4")))
Group_Pintegral5=Clng(Trim(Request("Group_Pintegral5")))
Group_Pintegral6=Clng(Trim(Request("Group_Pintegral6")))
Group_Pintegral7=Clng(Trim(Request("Group_Pintegral7")))
Group_Pintegral=""&Group_Pintegral0&","&Group_Pintegral1&","&Group_Pintegral2&","&Group_Pintegral3&","&Group_Pintegral4&","&Group_Pintegral5&","&Group_Pintegral6&","&Group_Pintegral7&""

Set rst= Server.CreateObject(FR_HR_RS)
sql1="select * from JOB_Group where Group_id="&Group_id&" and Group_membertype="&Group_membertype&""
rst.open sql1,conn,1,3
rst("Group_name")=Group_name
rst("Group_unit")=Group_unit
rst("Group_term")=Clng(Group_term)
rst("Group_outlay")=Group_outlay
rst("Group_images")=Group_images
rst("Group_Plimit")=Group_Plimit
rst("Group_Pdianshu")=Group_Pdianshu
rst("Group_Pintegral")=Group_Pintegral
rst.update
rst.close
set rst=nothing
end if
if Group_membertype=2 then
Group_Climit0=Clng(Trim(Request("Group_Climit0")))
Group_Climit1=Clng(Trim(Request("Group_Climit1")))
Group_Climit2=Clng(Trim(Request("Group_Climit2")))
Group_Climit3=Clng(Trim(Request("Group_Climit3")))
Group_Climit4=Clng(Trim(Request("Group_Climit4")))
Group_Climit5=Clng(Trim(Request("Group_Climit5")))
Group_Climit6=Clng(Trim(Request("Group_Climit6")))
Group_Climit7=Clng(Trim(Request("Group_Climit7")))
Group_Climit8=Clng(Trim(Request("Group_Climit8")))
Group_Climit9=Clng(Trim(Request("Group_Climit9")))
Group_Climit10=Clng(Trim(Request("Group_Climit10")))
Group_Climit11=Clng(Trim(Request("Group_Climit11")))
Group_Climit=""&Group_Climit0&","&Group_Climit1&","&Group_Climit2&","&Group_Climit3&","&Group_Climit4&","&Group_Climit5&","&Group_Climit6&","&Group_Climit7&","&Group_Climit8&","&Group_Climit9&","&Group_Climit10&","&Group_Climit11&""

Group_Cdianshu0=Clng(Trim(Request("Group_Cdianshu0")))
Group_Cdianshu1=Clng(Trim(Request("Group_Cdianshu1")))
Group_Cdianshu2=Clng(Trim(Request("Group_Cdianshu2")))
Group_Cdianshu3=Clng(Trim(Request("Group_Cdianshu3")))
Group_Cdianshu4=Clng(Trim(Request("Group_Cdianshu4")))
Group_Cdianshu5=Clng(Trim(Request("Group_Cdianshu5")))
Group_Cdianshu6=Clng(Trim(Request("Group_Cdianshu6")))
Group_Cdianshu7=Clng(Trim(Request("Group_Cdianshu7")))
Group_Cdianshu=""&Group_Cdianshu0&","&Group_Cdianshu1&","&Group_Cdianshu2&","&Group_Cdianshu3&","&Group_Cdianshu4&","&Group_Cdianshu5&","&Group_Cdianshu6&","&Group_Cdianshu7&""

Group_Cintegral0=Clng(Trim(Request("Group_Cintegral0")))
Group_Cintegral1=Clng(Trim(Request("Group_Cintegral1")))
Group_Cintegral2=Clng(Trim(Request("Group_Cintegral2")))
Group_Cintegral3=Clng(Trim(Request("Group_Cintegral3")))
Group_Cintegral4=Clng(Trim(Request("Group_Cintegral4")))
Group_Cintegral5=Clng(Trim(Request("Group_Cintegral5")))
Group_Cintegral6=Clng(Trim(Request("Group_Cintegral6")))
Group_Cintegral=""&Group_Cintegral0&","&Group_Cintegral1&","&Group_Cintegral2&","&Group_Cintegral3&","&Group_Cintegral4&","&Group_Cintegral5&","&Group_Cintegral6&""

Set rst= Server.CreateObject(FR_HR_RS)
sql1="select * from JOB_Group where Group_id="&Group_id&" and Group_membertype="&Group_membertype&""
rst.open sql1,conn,1,3
rst("Group_name")=Group_name
rst("Group_unit")=Group_unit
rst("Group_term")=Clng(Group_term)
rst("Group_outlay")=Group_outlay
rst("Group_images")=Group_images
rst("Group_Climit")=Group_Climit
rst("Group_Cdianshu")=Group_Cdianshu
rst("Group_Cintegral")=Group_Cintegral
rst.update
rst.close
set rst=nothing
end if
response.redirect "Admin_Group.asp#type"&Group_membertype-1&""
response.end
End Sub
Sub Del()
	if Group_id="" or typeid=""then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	else
	conn.execute("delete from JOB_Group where Group_id="&Group_id&" and Group_membertype="&typeid&"")
	end if
    response.redirect "Admin_Group.asp#type"&typeid-1&""
	response.End()
End Sub
Sub IsDefault()
	if Group_id="" or typeid=""then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	else
	conn.execute("update JOB_Group set Group_IsDefault=0 where Group_membertype="&typeid&"")
	conn.execute("update JOB_Group set Group_IsDefault=1 where Group_id="&Group_id&" and Group_membertype="&typeid&"")
	end if
    response.redirect "Admin_Group.asp#type"&typeid-1&""
	response.End()
End Sub

%>
<!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>会员管理</title>
<link href="../Css/style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style11 {	color: #0066CC;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <tr class="title">
    <th height="22" align="center" >用户组管理</th>
  </tr>
  <tr>
    <td height="20"><b class="style1">　管理选项：</b><%for m=0 to ubound(Groupid)%><a href="Admin_Group.asp#type<%=m%>"><%=Grouptype(m)%></a> | <%next%>[<a href="javascript:location.reload()">刷新页面</a>]</td>
  </tr>
</table>
<%
Action=trim(Request("Action"))
Select Case Action
	Case "Addmore"
		Call addmore()
	Case "Modify"
		Call Modify()
	Case "SaveModify"
		Call SaveModify()
	Case "Del"
		Call Del()
	Case "IsDefault"
		Call IsDefault()
	Case Else
		Call main()
End Select
if FoundErr=True then
call Show_Err()
end if	
Conn.Close
Set Conn=Nothing
%>
<%
Sub main()
for i=0 to ubound(Groupid)
Set rs= Server.CreateObject(FR_HR_RS)
	sql="select * from JOB_Group where Group_membertype="&CLng(Groupid(i))&" order by Group_id asc"
	rs.open sql,conn,1,1
	%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1"  class="tableBorder mt10">
  <tr>
    <th  height="25" colspan="8" class="tableHeaderText"><%=Grouptype(i)%><a name="type<%=i%>" id="type<%=i%>"></a></th>
  </tr>
  <form action="Admin_Group.asp" method="post" name="form<%=i%>" id="form<%=i%>">
    <tr>
      <td width="5%" align="center" class="bodytitle"><span class="style11">组ID</span></td>
      <td width="17%" align="center" class="bodytitle"><b class="style11">用户组名称</b></td>
      <td width="11%" align="center" class="bodytitle"><b class="style11">升级费用</b></td>
      <td width="13%" align="center" class="bodytitle"><b class="style11">服务期限</b></td>
      <td width="17%" align="center" class="bodytitle"><b class="style11">组图片</b></td>
      <td width="9%" align="center" class="bodytitle"><b class="style11">默认组</b></td>
      <td width="9%" align="center" class="bodytitle"><b class="style11">用户数</b></td>
      <td width="19%" align="center" class="bodytitle"><b class="style11">操作选项</b></td>
    </tr>
	<%
	if not rs.eof then
	n=0
	do while not rs.eof
	n=n+1
	%>
    <tr>
      <td height="25" align="center"><%=rs("Group_id")%><input name="Group_id" type="hidden" value="<%=rs("Group_id")%>"></td>
      <td align="center">
	  <label>
        <input name="Group_name" type="text" value="<%=rs("Group_name")%>" />
        </label>	  </td>
      <td align="center">
        <label>
        <input name="Group_outlay" type="text" size="6" value="<%=rs("Group_outlay")%>" />
        </label>
      元</td>
      <td align="center">
        <div align="left">
		<label>
          <input name="Group_term" type="text" size="6" value="<%=rs("Group_term")%>" />
		</label>
        <select name="Group_unit" class="checkbox">
          <option value="日"<%if rs("Group_unit")="日" then Response.Write(" selected")%>>日</option>
          <option value="月"<%if rs("Group_unit")="月" then Response.Write(" selected")%>>月</option>
          <option value="季"<%if rs("Group_unit")="季" then Response.Write(" selected")%>>季</option>
          <option value="年"<%if rs("Group_unit")="年" then Response.Write(" selected")%>>年</option>
        </select>
        </div>	  </td>
      <td align="center">
        <div align="left">
		<label>
          <input name="Group_images" type="text" size="15" value="<%=rs("Group_images")%>" />
		  </label>
		  <img src="<%=SiteUrl%><%=InstallDir%><%=rs("Group_images")%>">	    </div>	  </td>
      <td align="center"><%
			if rs("Group_IsDefault") then
				response.write "<a href=Admin_Group.asp?Action=IsDefault&typeid="&Groupid(i)&"&Group_id="&rs("Group_id")&"><font color=green>是</font></a>"
			else
				response.write "<a href=Admin_Group.asp?Action=IsDefault&typeid="&Groupid(i)&"&Group_id="&rs("Group_id")&"><font color=red>否</font></a>"
			end if
		%></td>
      <td align="center"><%=AdminCounts("JOB_Member","Member_typeid",Groupid(i),"Member_Groupid",rs("Group_id"))%></td>
      <td align="center"><a href="Admin_Group.asp?Action=Modify&typeid=<%=Groupid(i)%>&Group_id=<%=rs("Group_id")%>">设置</a> | <a href="Admin_Member.asp?typeid=<%=Groupid(i)%>&Group_id=<%=rs("Group_id")%>">列出用户</a> | <a href="Admin_Group.asp?Action=Del&typeid=<%=Groupid(i)%>&Group_id=<%=rs("Group_id")%>">删除</a></td>
    </tr>
	<%rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
	%>
    <tr>
      <td height="25" align="center">新增</td>
      <td align="center">
	  <label>
        <input type="text" name="Group_namenew" />
        </label>      </td>
      <td align="center">
        <label>
        <input name="Group_outlaynew" type="text" value="0" size="6" />
        </label>
      元</td>
      <td align="center">
        <div align="left">
		<label>
          <input name="Group_termnew" type="text" value="30" size="6" />
          <select name="Group_unitnew" class="checkbox">
            <option value="日" selected>日</option>
            <option value="月">月</option>
            <option value="季">季</option>