📄 web_master_manage.asp
字号:
<td height="25"> </td>
<td height="25"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <font color="#990000">个人会员</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="120" <% If Instr(Powers,"120")>0 Then Response.write "Checked" %>>
全部会员 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="121" <% If Instr(Powers,"121")>0 Then Response.write "Checked" %>>
全职会员 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="122" <% If Instr(Powers,"122")>0 Then Response.write "Checked" %>>
兼职会员 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="123" <% If Instr(Powers,"123")>0 Then Response.write "Checked" %>>
视频简历 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="124" <% If Instr(Powers,"124")>0 Then Response.write "Checked" %>>
预约记录</td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="125" <% If Instr(Powers,"125")>0 Then Response.write "Checked" %>>
新增个人会员 </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <font color="#990000">院校会员</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="130" <% If Instr(Powers,"130")>0 Then Response.write "Checked" %>>
全部会员 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="131" <% If Instr(Powers,"131")>0 Then Response.write "Checked" %>>
收费会员 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="132" <% If Instr(Powers,"132")>0 Then Response.write "Checked" %>>
免费会员 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="133" <% If Instr(Powers,"133")>0 Then Response.write "Checked" %>>
到期收费会员 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="134" <% If Instr(Powers,"134")>0 Then Response.write "Checked" %>>
等待审核会员</td>
<td width="15%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><font color="#990000"> 培训机构</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="140" <% If Instr(Powers,"140")>0 Then Response.write "Checked" %>>
全部用户</td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="141" <% If Instr(Powers,"141")>0 Then Response.write "Checked" %>>
已审核用户</td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="142" <% If Instr(Powers,"142")>0 Then Response.write "Checked" %>>
待审核用户</td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="143" <% If Instr(Powers,"143")>0 Then Response.write "Checked" %>>
添加培训机构</td>
<td width="15%"> </td>
<td width="15%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <font color="#990000">职位管理</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="150" <% If Instr(Powers,"150")>0 Then Response.write "Checked" %>>
全部职位 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="151" <% If Instr(Powers,"151")>0 Then Response.write "Checked" %>>
固顶职位 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="152" <% If Instr(Powers,"152")>0 Then Response.write "Checked" %>>
急聘职位 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="153" <% If Instr(Powers,"153")>0 Then Response.write "Checked" %>>
全职职位 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="154" <% If Instr(Powers,"154")>0 Then Response.write "Checked" %>>
兼职职位 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="155" <% If Instr(Powers,"155")>0 Then Response.write "Checked" %>>
劳务信息 </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <font color="#990000">视频</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="160" <% If Instr(Powers,"160")>0 Then Response.write "Checked" %>>
视频会 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="161" <% If Instr(Powers,"161")>0 Then Response.write "Checked" %>>
添加会 </td>
<td width="15%"> </td>
<td width="15%"> </td>
<td width="15%"> </td>
<td width="15%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <font color="#990000">猎头服务</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="170" <% If Instr(Powers,"170")>0 Then Response.write "Checked" %>>
猎头企业 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="171" <% If Instr(Powers,"171")>0 Then Response.write "Checked" %>>
猎头职位 </td>
<td width="15%"></td>
<td width="15%"> </td>
<td width="15%"> </td>
<td width="15%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><font color="#990000">新闻管理</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="180" <% If Instr(Powers,"180")>0 Then Response.write "Checked" %>>
添加新闻 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="181" <% If Instr(Powers,"181")>0 Then Response.write "Checked" %>>
新闻管理 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="182" <% If Instr(Powers,"182")>0 Then Response.write "Checked" %>>
类别管理 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="183" <% If Instr(Powers,"183")>0 Then Response.write "Checked" %>>
评论管理 </td>
<td width="15%"> </td>
<td width="15%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <font color="#990000">系统设置</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="190" <% If Instr(Powers,"190")>0 Then Response.write "Checked" %>>
管理员管理 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="191" <% If Instr(Powers,"191")>0 Then Response.write "Checked" %>>
系统日志管理 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="192" <% If Instr(Powers,"192")>0 Then Response.write "Checked" %>>
群发邮件</td>
<td width="15%"> </td>
<td width="15%"> </td>
<td width="15%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <font color="#990000">其他管理</font></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"><table width="99%" border="0" align="center" cellspacing="0">
<tr>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="200" <% If Instr(Powers,"200")>0 Then Response.write "Checked" %>>
广告管理 </td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="201" <% If Instr(Powers,"201")>0 Then Response.write "Checked" %>>
友情连接</td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="202" <% If Instr(Powers,"202")>0 Then Response.write "Checked" %>>
在线调查</td>
<td width="15%"><input name="Set" type="checkbox" id="Set" value="203" <% If Instr(Powers,"203")>0 Then Response.write "Checked" %>>
合作伙伴</td>
<td width="15%"> </td>
<td width="15%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="EFF0EB"> <input type="submit" name="Submit2" value="更 新">
<input name=chkall type=checkbox value=on onclick=CheckAll(this.form)>
选择所有权限</td>
</tr>
</table></td>
</tr>
</Form>
</table>
<%
End Sub
''///开始
Sub AddSubmit()
Dim Username,Password,Flag
If Not ChkPost Then
Response.Write("对不起，请不要从外部提交数据！")
Response.End()
End If
Username = SafeRequest("username")
Password = SafeRequest("password")
Flag = SafeRequest("flag")
IF Username="" or Password="" Then
Response.Write "请将参数填写完整！"
Response.End()
End if
Password = Enpas(md5(mistake(Password)))
SQL="Insert Into [pH_Web_Supper] (su_SupperName,su_Password,su_Addtim,su_Iflag,su_Setting) Values ('"&Username&"','"&Password&"','"&Now&"',"&Flag&",',')"
Conn.Execute(SQL)
Set Rs=Nothing
CloseDB
Response.Redirect "Web_Master_Manage.asp"
End Sub
''///结束
''///开始修改
Sub ModSubmit()
Dim Username,Password,Flag,ID
If Not ChkPost Then
Response.Write("对不起，请不要从外部提交数据！")
Response.End()
End If
ID = SafeRequest("id")
Username = SafeRequest("username")
Password = SafeRequest("password")
Flag = SafeRequest("flag")
Check_ID(ID)
IF Username="" Then
Response.Write "请将参数填写完整！"
Response.End()
End if
If Password<>"" Then
Password = Enpas(md5(mistake(Password)))
SQL="Update [pH_Web_Supper] Set su_SupperName='"&Username&"',su_Password='"&Password&"',su_Iflag="&Flag&" Where su_ID="&Cstr(id)
Else
SQL="Update [pH_Web_Supper] Set su_SupperName='"&Username&"',su_Iflag="&Flag&" Where su_ID="&Cstr(id)
End if
Conn.Execute(SQL)
Set Rs=Nothing
CloseDB
Response.Redirect "Web_Master_Manage.asp"
End Sub
''///结束
''///开始
Sub EditSubmit()
Dim id,Setting
If Not ChkPost Then
Response.Write("对不起，请不要从外部提交数据！")
Response.End()
End If
id = SafeRequest("id")
Setting = SafeRequest("set")
Check_ID(id)
SQL="Update [pH_Web_Supper] Set su_Setting='"&Setting&"' Where su_id="&Cstr(id)
Conn.Execute(SQL)
Set Rs=Nothing
CloseDB
Response.Redirect "Web_Master_Manage.asp"
End Sub
''///结束
''///开始删除
Sub Del()
Dim id
If Not ChkPost Then
Response.Write("对不起，请不要从外部提交数据！")
Response.End()
End If
id = SafeRequest("id")
Check_ID(id)
SQL="Delete From [pH_Web_Supper] Where su_id="&Cstr(id)
Conn.Execute(SQL)
Set Rs=Nothing
CloseDB
Response.Redirect "Web_Master_Manage.asp"
End Sub
''///结束
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -