📄 pmember_searchlist.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../../inc/sendmail.asp" -->
<!--#include file="../checkvalid.asp" -->
<%
sUploadDir=UpFilesPath("Person")
If Not FRAdminLevel(302) Then
Call ErrorMsg()
End If
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.ExpiresAbsolute = Now() - 1
keyword=CheckStr(trim(request("keyword")))
segment=CheckStr(trim(request("segment")))
operate=trim(request("operate"))
group=trim(request("group"))
Dim Action
Dim FoundErr,ErrMsg
Dim page,i
Dim totalPut
const MaxPerpage=20
strFileName="pmember_searchlist.asp?segment="&segment&"&keyword="&keyword&"&operate="&operate&"&group="&group&""
page=Trim(Request("page"))
If page<>"" And IsNumeric(page) Then
If page<1 Or Len(page)>10 Then
page=1
Else
page=CLng(page)
End If
Else
page=1
End If
%>
<%
step=trim(request("step"))
member_id=trim(request("member"))
if trim(request("step"))<>"" then
set rsw=conn.execute("select * from job_member where member_id in ("&member_id&")")
do while not rsw.eof
member=rsw("member_login")
select case step
case "del"
conn.execute("delete from job_c_myexpert where myexpert_pmember='"&member&"'")
conn.execute("delete from job_c_myreceive where myreceive_pmember='"&member&"'")
conn.execute("delete from job_c_interview where cominterview_pmember='"&member&"'")
conn.execute("delete from job_c_recycle where comrecycle_pmember='"&member&"'")
conn.execute("delete from job_p_education where education_pmember='"&member&"'")
conn.execute("delete from job_p_training where train_pmember='"&member&"'")
conn.execute("delete from job_p_lang where lang_pmember='"&member&"'")
conn.execute("delete from job_p_work where work_pmember='"&member&"'")
conn.execute("delete from job_p_picture where picture_pmember='"&member&"'")
conn.execute("delete from job_p_letter where letter_pmember='"&member&"'")
conn.execute("delete from job_p_resume where resume_pmember='"&member&"'")
conn.execute("delete from job_member where member_login='"&member&"'")
case "adui"
conn.execute("update job_member set member_flag=1 where member_login='"&member&"'")
If emailsendperflag=1 Then
pMemberEmail=rsw("member_email")
Call SendMail(pMemberEmail,"注册账号审核",EmailPerOfRegCheck)
End IF
case "unadui"
conn.execute("update job_member set member_flag=0 where member_login='"&member&"'")
case "command"
conn.execute("update job_member set member_command=1 where member_login='"&member&"'")
case "uncommand"
conn.execute("update job_member set member_command=0 where member_login='"&member&"'")
case "picture"
conn.execute("update job_member set member_logoflag=1 where member_login='"&member&"' and member_typeid=1")
case "unpicture"
conn.execute("update job_member set member_logoflag=0 where member_login='"&member&"' and member_typeid=1")
end select
rsw.movenext
loop
set rsw=nothing
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=../css/style.css rel=stylesheet type="text/css">
<script language="javascript" src="../Inc/Admin.js"></script><style type="text/css">
<!--
.style11 { color: #0066CC;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th height=25 class="tableHeaderText">个人会员管理</th>
</tr>
<form action="pmember_searchlist.asp" method="post">
<tr bgcolor="7897E0">
<td height="28" bgcolor="#FFFFFF" align="left"><font color="ff6600"><b class="style11"> 管理选项</b></font>： <a href="pmember_searchlist.asp">管理首页</a> | <a href="pmember_searchlist.asp">人才管理</a> | <a href="resume_searchlist.asp" target="main">简历管理</a> | <a href="Admin_AddTemp.asp?wid=1">添加模板</a> | <a href="Admin_Template.asp?wid=1">模板管理</a> | [<a href="javascript:location.reload()">刷新页面</a>]</td>
</tr>
<tr bgcolor="7897E0">
<td height="28" bgcolor="#FFFFFF" align="left"><font color="ff6600"><b class="style11"> 二级选项</b></font>： <a href="?operate=0">待审人才</a> | <a href="?operate=1">已审人才</a> | <a href="?operate=2">精英人才</a> | <a href="?operate=3">待审照片</a> | <a href="?operate=4">已过期</a> | <a href="?operate=5">一周内到期</a> | <a href="?operate=6">30天内到期</a></td>
</tr>
<tr bgcolor="7897E0">
<td height="28" bgcolor="#FFFFFF" align="left"><font color="ff6600"><b class="style11"> 服务选项</b></font>：
<%set rss=conn.execute("select * from job_Group where Group_membertype=1")
if not rss.eof then
do while not rss.eof%>
<a href="?operate=<%=operate%>&group=<%=rss("Group_id")%>"><%=rss("Group_name")%></a> |
<%rss.movenext
loop
end if%></td>
</tr>
<tr bgcolor="7897E0">
<td height="28" bgcolor="#FFFFFF" align="left">
关键字：
<input name="keyword" type="text" id="keyword" size="10">
<select name="segment" size="1" id="segment">
<option value="pmember_login">会员帐号</option>
<option value="pmember_name">姓名</option>
</select>
<input name="Submit" type="submit" class="inputs" value="搜索"> </td>
</tr>
</form>
</table>
<%Call main()
if FoundErr=True then
call Show_Err()
end if
%>
<%sub main()
sql="select * from job_member where Member_typeid=1 and"
if segment="pmember_name" then
sql=sql&" member_name like '%"& keyword &"%'"
else
sql=sql&" member_login like '%"& keyword &"%'"
end if
if operate<>"" then
select case operate
case 0
sql=sql&" and member_flag=0"
case 1
sql=sql&" and member_flag=1"
case 2
sql=sql&" and member_command=1"
case 3
sql=sql&" and member_logostatus=0"
case 4
If FR_HR_DataBaseType=1 then
sql=sql&" and datediff(d,member_enddate,"&FR_HR_Now&")>0"
Else
sql=sql&" and datediff('d',member_enddate,"&FR_HR_Now&")>0"
End If
case 5
If FR_HR_DataBaseType=1 then
sql=sql&" and datediff(d,member_enddate,"&FR_HR_Now&")>7 and datediff(d,member_enddate,"&FR_HR_Now&")<=0"
Else
sql=sql&" and datediff('d',member_enddate,"&FR_HR_Now&")>7 and datediff('d',member_enddate,"&FR_HR_Now&")<=0"
End If
case 6
If FR_HR_DataBaseType=1 then
sql=sql&" and datediff(d,member_enddate,"&FR_HR_Now&")>30 and datediff(d,member_enddate,"&FR_HR_Now&")<=0"
Else
sql=sql&" and datediff('d',member_enddate,"&FR_HR_Now&")>30 and datediff('d',member_enddate,"&FR_HR_Now&")<=0"
End If
end select
end if
if group<>"" then
sql=sql&" and Member_groupid="&group&""
end if
sql=sql&" order by member_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>暂无个人用户，请添加后再进行管理！</li>"
exit sub
else
totalPut=rs.recordcount
if (page-1)*MaxPerpage>totalput then
if (totalPut mod MaxPerpage)=0 then
page= totalPut \ MaxPerpage
else
page= totalPut \ MaxPerpage + 1
end if
end if
if page=1 then
Call MainInfo()
else
if (page-1)*MaxPerpage<totalPut then
rs.move (page-1)*MaxPerpage
dim bookmark
bookmark=rs.bookmark
Call MainInfo()
else
page=1
Call MainInfo()
end if
end if
end if
rs.close
set rs=nothing
end sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -