📄 web_person_all.asp
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="Web_Session.asp" -->
<%
Dim Rs,SQL
Dim PageNo,ThePage,Psize,PCount,RCount
Dim Action,Param,ParamName
'//检测管理员是否有权限操作该页面
If Instr(1,Session("Web_Power"),"120") <= 0 Then
Call CloseDB()
Response.write "对不起!您没有访问该页面的权限..."
Response.End()
End If
'//获取参数
ParamName = Replace_Text(Request("ParamName"))
'//查找企业表所有记录
Set Rs = Server.Createobject("ADODB.recordset")
'//组织查询语句
If ParamName = "" Then
SQL = "Select B.Perid,B.Username,B.RegDate,I.RealName,I.Sex,I.Age,I.Edus,I.PersonPhone,I.WorkWill1,I.Nc_Video,I.TopAll From pH_Person_Base As B,pH_Person_Info As I Where B.Perid=I.Perid"
Else
SQL = "Select B.Perid,B.Username,B.RegDate,I.RealName,I.Sex,I.Age,I.Edus,I.PersonPhone,I.WorkWill1,I.Nc_Video,I.TopAll From pH_Person_Base As B,pH_Person_Info As I Where B.Perid=I.Perid And (B.Username Like '%"&ParamName&"%' or I.RealName Like '%"&ParamName&"%')"
End if
SQL = SQL&" Order By B.Ncid Desc"
Rs.Open SQL,Conn,1,1
Rs.Pagesize = 10
Psize = Rs.PageSize
PCount = Rs.PageCount
RCount = Rs.RecordCount
PageNo = Cint(Request.QueryString("PageNo"))
If PageNo < 1 Then
PageNo = 1
Elseif PageNo > PCount Then
PageNo = PCount
End if
Thepage = (PageNo-1)*Psize
If Not Rs.Eof Then Rs.AbsolutePage = PageNo
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>全部个人会员</title>
<link href="../CSS/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<script language="JavaScript">
function SelectAllItem(item)
{
if( typeof(item.length) == "undefined" )
{
item.checked = !item.checked
}
else
{
for(i=0;i<item.length;i++)
{
item[i].checked=!item[i].checked
}
}
}
function theForm_Submit(id)
{
if (id=="delperson")
{
if(confirm('确认彻底删除选定的记录'))
{
form.target='_self';
form.action="Web_Person_Option.asp?param=delperson&pageno=Web_Person_All.asp?pageno=<%= PageNo %>";
form.submit();
}
}
if (id=="novideo")
{
if(confirm('确认取消该用户的视频简历？'))
{
form.target='_self';
form.action="Web_Person_Option.asp?param=novideo&pageno=Web_Person_All.asp?pageno=<%= PageNo %>";
form.submit();
}
}
if (id=="sendmail")
{
form.target='_self';
form.action="Web_Person_SendMail.asp?pageno=Web_Person_All.asp?pageno=<%= PageNo %>";
form.submit();
}
if (id=="notop")
{
form.target='_self';
form.action="Web_Person_Option.asp?param=notop&pageno=Web_Person_All.asp?pageno=<%= PageNo %>"
form.submit();
}
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="25" bgcolor="fb7a03"> <font color="#FFFFFF">::<strong>全部个人会员</strong></font></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<Form action="" name="form" method="post">
<tr>
<td align="center">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td align="left"> <table width="100%" border="0" align="left" cellpadding="0" cellspacing="1" bgcolor="eff0eb">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="25" bgcolor="eff0eb">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td width="50%" height="25">共<Font color="#FF0000"><%= RCount %></Font>条 分<Font color="#FF0000"><%= PCount %></Font>页 | 当前第<Font color="#FF0000"><%= PageNo %></Font>页</td>
<td width="30%" align="right">
<%
If PageNo > 1 Then
Response.write "<a href=""?PageNo=1&ParamName="&ParamName&""">首页</a> "
Response.write "<a href=""?PageNo="&PageNo-1&"&ParamName="&ParamName&""">上页</a> "
Else
Response.write "首页 "
Response.write "上页 "
End if
%>
<select name="menu2" onChange="MM_jumpMenu('self',this,0)" style="width:40px;">
<% For i = 1 to PCount %>
<option value="?PageNo=<%= i %>&ParamName=<%=ParamName%>" <% If i = PageNo Then Response.write "Selected"%>><%=i%></option>
<% Next %>
</select>
<%
If PageNo < PCount Then
Response.write "<a href=""?PageNo="&PageNo+1&"&ParamName="&ParamName&""">下页</a> "
Response.write "<a href=""?PageNo="&PCount&"&ParamName="&ParamName&""">尾页</a>"
Else
Response.write "下页 "
Response.write "尾页"
End if
%>
</td>
</tr>
</table>
</td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td align="left">
<table width="100%" border="0" align="left" cellpadding="0" cellspacing="1" bgcolor="eff0eb">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr align="center" bgcolor="eff0eb">
<td width="5%" height="25"><u>编号</u></td>
<td width="12%" height="25" bgcolor="eff0eb"><u>用户名</u></td>
<td width="8%" bgcolor="eff0eb"><u>姓 名</u></td>
<td width="5%" height="25" bgcolor="eff0eb"><u>性别</u></td>
<td width="5%" height="25"><u>年龄</u></td>
<td width="6%" height="25"><u>学历</u></td>
<td width="12%" height="25"><u>联系电话</u></td>
<td width="12%"><u>求职意向</u></td>
<td width="4%" height="25"><u>视频</u></td>
<td width="4%"><u>固顶</u></td>
<td width="9%" height="25"><u>注册时间</u></td>
<td><u>管理操作</u></td>
<td width="3%"> <INPUT onclick=SelectAllItem(this.form.perid) type=checkbox value=all name=chk_all></td>
</tr>
<%
For i = 1 to Psize
If Rs.Eof Then Exit For
Perid = Rs("Perid")
Username = Rs("Username")
RealName = Rs("RealName")
Sex = Rs("Sex")
Age = Rs("Age")
Edus = Rs("Edus")
PersonPhone = Rs("PersonPhone")
WorkWill1 = Rs("WorkWill1")
Nc_Video = Rs("Nc_Video")
RegDate = Rs("RegDate")
TopAll = Rs("TopAll")
'//获取注册日期
If RegDate <> "" Then
RegDate = FormatDateTime(RegDate,2)
End if
'获取会员是否有视频
Video_Str = ""
If Nc_Video = True Then
Video_Str = "<font color=#009900>√</font>"
End if
'获取会员是否固顶
Top_Str = ""
If TopAll = True Then
Top_Str = "<font color=#009900>√</font>"
End if
'获取学历
Edus_Str = Cls_Edus(Edus)
'获取性别
Sex_Str = Cls_Sex(Sex)
%>
<tr align="center" bgcolor="eff0eb">
<td height="25"><%= ThePage+i %></td>
<td height="25" align="left"><a href="../Person/Resume/Resume_Master_Preview.asp?Param=<%= Perid %>" target="_blank"><%= Username %></a></td>
<td height="25" align="center"><a href="../Person/Resume/Resume_Master_Preview.asp?Param=<%= Perid %>" target="_blank"><%= RealName %></a></td>
<td height="25"><%= Sex_Str %></td>
<td height="25"><%= Age %></td>
<td height="25" align="center"><%= Edus_Str %></td>
<td height="25" align="left"><%= PersonPhone %></td>
<td height="25" align="left"><%= WorkWill1 %></td>
<td height="25"><%= Video_Str %></td>
<td height="25"><%= Top_Str %></td>
<td height="25"><%= RegDate %></td>
<td height="25" align="left"> <a href="Web_Person_EditPass.asp?Perid=<%= Perid %>&PageNo=<%= "Web_Person_All.asp?PageNo="&PageNo %>"><u>密码</u></a>
<a href="Web_Person_TopManage.asp?Perid=<%= Perid %>&PageNo=<%= "Web_Person_All.asp?PageNo="&PageNo %>"><u>固顶</u></a>
<a href="Web_Person_VideoManage.asp?Param=rar&Perid=<%= Perid %>&PageNo=<%= "Web_Person_All.asp?PageNo="&PageNo %>"><u>视频</u></a>
<a href="Web_Person_Update.asp?Perid=<%= Perid %>"><u>编辑</u></a>
</td>
<td height="25"><INPUT type=checkbox value=<%= Perid %> name="perid"></td>
</tr>
<%
Rs.Movenext
Next
%>
</table> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td align="left"> <table width="100%" border="0" align="left" cellpadding="0" cellspacing="1" bgcolor="eff0eb">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="25" bgcolor="eff0eb">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td width="50%" height="25">快速搜索
<input name="ParamName" type="text" id="ParamName" size="16" maxlength="30">
<input type="submit" name="Submit" value="搜索">
</td>
<td width="50%" align="right">
<input type="button" name="delperson" value="删除会员" onClick="javascript:theForm_Submit('delperson')">
<input type="button" name="sendmail" value="发送邮件" onClick="javascript:theForm_Submit('sendmail')">
<input type="button" name="novideo" value="取消视频" onClick="javascript:theForm_Submit('novideo')">
<input type="button" name="notop" value="取消固顶" onClick="javascript:theForm_Submit('notop')">
</td>
</tr>
</table>
</td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
</td>
</tr>
</Form>
</table>
</body>
</html>
<%
Rs.Close
Set Rs = Nothing
Call CloseDB()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -