📄 hx_function.asp
字号:
if instr(trim(request("MENU_09")),"AnnexProgram")>0 then rs("WS_AnnexProgram")=1 else rs("WS_AnnexProgram")=0 end if
if instr(AnnexProgramarr,"AnnexProgramCalendar")>0 then rs("WS_AnnexProgramCalendar")=1 else rs("WS_AnnexProgramCalendar")=0 end if
if instr(AnnexProgramarr,"AnnexProgramworldtime")>0 then rs("WS_AnnexProgramworldtime")=1 else rs("WS_AnnexProgramworldtime")=0 end if
if instr(AnnexProgramarr,"AnnexProgramnetipsearch")>0 then rs("WS_AnnexProgramnetipsearch")=1 else rs("WS_AnnexProgramnetipsearch")=0 end if
if instr(AnnexProgramarr,"AnnexProgrammobilesearch")>0 then rs("WS_AnnexProgrammobilesearch")=1 else rs("WS_AnnexProgrammobilesearch")=0 end if
if instr(AnnexProgramarr,"AnnexProgramlawrulesearch")>0 then rs("WS_AnnexProgramlawrulesearch")=1 else rs("WS_AnnexProgramlawrulesearch")=0 end if
if instr(AnnexProgramarr,"AnnexProgramtelsearch")>0 then rs("WS_AnnexProgramtelsearch")=1 else rs("WS_AnnexProgramtelsearch")=0 end if
if instr(AnnexProgramarr,"AnnexProgramweburlsearch")>0 then rs("WS_AnnexProgramweburlsearch")=1 else rs("WS_AnnexProgramweburlsearch")=0 end if
if instr(AnnexProgramarr,"AnnexProgrampostcardsearch")>0 then rs("WS_AnnexProgrampostcardsearch")=1 else rs("WS_AnnexProgrampostcardsearch")=0 end if
if instr(AnnexProgramarr,"AnnexProgrampostcodesearch")>0 then rs("WS_AnnexProgrampostcodesearch")=1 else rs("WS_AnnexProgrampostcodesearch")=0 end if
if instr(trim(request("MENU_10")),"SystemSet")>0 then rs("WS_SystemSet")=1 else rs("WS_SystemSet")=0 end if
if instr(SystemSetarr,"SystemSetWebOAconfig")>0 then rs("WS_SystemSetWebOAconfig")=1 else rs("WS_SystemSetWebOAconfig")=0 end if
if instr(SystemSetarr,"SystemSetOAInterFaceSet")>0 then rs("WS_SystemSetOAInterFaceSet")=1 else rs("WS_SystemSetOAInterFaceSet")=0 end if
if instr(SystemSetarr,"SystemSetModule")>0 then rs("WS_SystemSetModule")=1 else rs("WS_SystemSetModule")=0 end if
if instr(SystemSetarr,"SystemSetDepartment")>0 then rs("WS_SystemSetDepartment")=1 else rs("WS_SystemSetDepartment")=0 end if
if instr(SystemSetarr,"SystemSetAppointment")>0 then rs("WS_SystemSetAppointment")=1 else rs("WS_SystemSetAppointment")=0 end if
if instr(SystemSetarr,"SystemSetMemberPriv")>0 then rs("WS_SystemSetMemberPriv")=1 else rs("WS_SystemSetMemberPriv")=0 end if
if instr(SystemSetarr,"SystemSetAttendanceSet")>0 then rs("WS_SystemSetAttendanceSet")=1 else rs("WS_SystemSetAttendanceSet")=0 end if
if instr(SystemSetarr,"SystemSettalkear")>0 then rs("WS_SystemSettalkear")=1 else rs("WS_SystemSettalkear")=0 end if
if instr(SystemSetarr,"SystemSetNotifyManage")>0 then rs("WS_SystemSetNotifyManage")=1 else rs("WS_SystemSetNotifyManage")=0 end if
if instr(SystemSetarr,"SystemSetWorkFlowType")>0 then rs("WS_SystemSetWorkFlowType")=1 else rs("WS_SystemSetWorkFlowType")=0 end if
if instr(SystemSetarr,"SystemSetnetvoteinfo")>0 then rs("WS_SystemSetnetvoteinfo")=1 else rs("WS_SystemSetnetvoteinfo")=0 end if
if instr(SystemSetarr,"SystemSetlawrule")>0 then rs("WS_SystemSetlawrule")=1 else rs("WS_SystemSetlawrule")=0 end if
if instr(SystemSetarr,"SystemSettel")>0 then rs("WS_SystemSettel")=1 else rs("WS_SystemSettel")=0 end if
if instr(SystemSetarr,"SystemSetweburl")>0 then rs("WS_SystemSetweburl")=1 else rs("WS_SystemSetweburl")=0 end if
if instr(SystemSetarr,"SystemSetInterviewControl")>0 then rs("WS_SystemSetInterviewControl")=1 else rs("WS_SystemSetInterviewControl")=0 end if
if instr(SystemSetarr,"SystemSetOperation")>0 then rs("WS_SystemSetOperation")=1 else rs("WS_SystemSetOperation")=0 end if
if instr(SystemSetarr,"SystemSetWSOADATABASEMANAGE")>0 then rs("WS_SystemSetWSOADATABASEMANAGE")=1 else rs("WS_SystemSetWSOADATABASEMANAGE")=0 end if
if instr(FrontSetarr,"FrontSetSystem")>0 then rs("WS_FrontSetSystem")=1 else rs("WS_FrontSetSystem")=0 end if
if instr(FrontSetarr,"FrontSetDepartment")>0 or instr(FrontSetarr,"FrontSetAdmin")>0 then rs("WS_FrontSetDepartment")=1 else rs("WS_FrontSetDepartment")=0 end if
if instr(FrontSetarr,"FrontSetFeedback")>0 then rs("WS_FrontSetFeedback")=1 else rs("WS_FrontSetFeedback")=0 end if
if instr(FrontSetarr,"FrontSetNews")>0 or instr(FrontSetarr,"FrontSetAdmin")>0 then rs("WS_FrontSetNews")=1 else rs("WS_FrontSetNews")=0 end if
if instr(FrontSetarr,"FrontSetNotice")>0 or instr(FrontSetarr,"FrontSetAdmin")>0 then rs("WS_FrontSetNotice")=1 else rs("WS_FrontSetNotice")=0 end if
if instr(FrontSetarr,"FrontSetActicle")>0 or instr(FrontSetarr,"FrontSetAdmin")>0 then rs("WS_FrontSetActicle")=1 else rs("WS_FrontSetActicle")=0 end if
if instr(FrontSetarr,"FrontSetPhoto")>0 or instr(FrontSetarr,"FrontSetAdmin")>0 then rs("WS_FrontSetPhoto")=1 else rs("WS_FrontSetPhoto")=0 end if
if instr(FrontSetarr,"FrontSetMovie")>0 or instr(FrontSetarr,"FrontSetAdmin")>0 then rs("WS_FrontSetMovie")=1 else rs("WS_FrontSetMovie")=0 end if
if instr(FrontSetarr,"FrontSetDown")>0 or instr(FrontSetarr,"FrontSetAdmin")>0 then rs("WS_FrontSetDown")=1 else rs("WS_FrontSetDown")=0 end if
if instr(FrontSetarr,"FrontSetAdmin")>0 then rs("WS_FrontSetAdmin")=1 else rs("WS_FrontSetAdmin")=0 end if
if instr(FrontSetarr,"FrontSetUpload")>0 then rs("WS_FrontSetUpload")=1 else rs("WS_FrontSetUpload")=0 end if
rs.update:WS_S.HX_Redirect "MemberPrivManage.asp?MPID="&MPID
End Sub
Sub HX_Front()
response.write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=065485><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr><td height='10'></td></tr><tr valign='top'><td><table width='90%' border='0' cellspacing='1' cellpadding='5' bgcolor='#065485' align='center'>"
if WS_S.MemberPriv("WS_FrontSetSystem")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 网站设置</font></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_Set.asp'><font color='#FFFFFF'>>> 基本设置</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_Navigation.asp'><font color='#FFFFFF'>>> 导航管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_link.asp?action=link'><font color='#FFFFFF'>>> 友情链接</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='list.asp'><font color='#FFFFFF'>>> 广告管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_qq.asp'><font color='#FFFFFF'>>> 在线客服</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='editballot.asp'><font color='#FFFFFF'>>> 在线调查</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='../UploadFile/SpaceSize.asp'><font color='#FFFFFF'>>> 空间占用</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_check.asp'><font color='#FFFFFF'>>> 组件测试</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetNews")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 新闻管理</font><strong></a></strong></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_news.asp'><font color='#FFFFFF'>>> 新闻管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_news.asp?action=Add'><font color='#FFFFFF'>>> 添加新闻</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetNotice")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 公告管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_Announce.asp'><font color='#FFFFFF'>>> 公告管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_Announce.asp?action=Add'><font color='#FFFFFF'>>> 添加公告</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetFeedback")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 投诉管理</font></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_Guestbook.asp'><font color='#FFFFFF'>>> 留言管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_mail.asp'><font color='#FFFFFF'>>> 领导信箱</font> </a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_Guestbook.asp?action=Edit_web'><font color='#FFFFFF'>>> 留言设置</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetActicle")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 文章管理</font></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_List.asp'><font color='#FFFFFF'>>> 文章管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_Add.asp'><font color='#FFFFFF'>>> 添加文章</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetadmin")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='Admin_sort.asp'><font color='#FFFFFF'>>> 栏目设置</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetPhoto")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 图片管理</font></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_pic.asp?action=pic'><font color='#FFFFFF'>>> 图片管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_pic.asp?action=newpic'><font color='#FFFFFF'>>> 添加图片</font> </a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetadmin")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='admin_picsort.asp?action=piccat'><font color='#FFFFFF'>>> 分类管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_picsort.asp?action=newpiccat'><font color='#FFFFFF'>>> 添加分类</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetMovie")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 视频管理</font></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_movie.asp?action=pic'><font color='#FFFFFF'>>> 视频管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_movie.asp?action=newpic'><font color='#FFFFFF'>>> 添加视频</font> </a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetadmin")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='admin_moviesort.asp?action=piccat'><font color='#FFFFFF'>>> 分类管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_moviesort.asp?action=newpiccat'><font color='#FFFFFF'>>> 添加分类</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetDown")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 下载管理</font><strong></a></strong></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_down.asp?action=list'><font color='#FFFFFF'>>> 下载管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_down.asp?action=newsoft'><font color='#FFFFFF'>>> 添加下载</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetadmin")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='admin_downsort.asp'><font color='#FFFFFF'>>> 分类管理</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='admin_downsort.asp?action=newcat'><font color='#FFFFFF'>>> 添加分类</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_FrontSetDepartment")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 部门管理</font></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='Admin_bumeng.asp'><font color='#FFFFFF'>>> 部门管理</font></a></td></tr>" end if
response.write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
End Sub
Sub HX_ManpowerResource()
response.Write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=065485><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr> <td width='100%' height='10'></td></tr><tr valign='top'><td width='100%'><table width='118' cellspacing='10' cellpadding align='center' border='0'>"
if WS_S.MemberPriv("WS_ManpowerResourceView")=1 then response.Write "<tr><td width='100%' align='center' class='include1'><a href='modify.asp' target='right' class='menu1'>员工一览</a></td></tr>" end if
if WS_S.MemberPriv("WS_ManpowerResourceUserManage")=1 then response.Write "<tr><td class='include1' align='center'><a href='addnewuser.asp' target='right' class='menu1'>新增员工</a></td></tr><tr><td class='include1' align='center'><a href='deluser.asp' target='right' class='menu1'>审核删除</a></td></tr><tr><td class='include1' align='center'><a href='leaveuser.asp' target='right' class='menu1'>离职员工</a></td></tr>" end if
if WS_S.MemberPriv("WS_ManpowerResourceWageMonth")=1 then response.Write "<tr><td class='include1' align='center'><a href='wagemonth.asp' target='right' class='menu1'>工资报表</a></td></tr>" end if
if WS_S.MemberPriv("WS_ManpowerResourceConfirm")=1 then response.Write "<tr><td class='include1' align='center'><a href='AttendanceManageConfirm.asp' target='right' class='menu1'>考勤审批</a></td></tr>" end if
if WS_S.MemberPriv("WS_ManpowerResourceCount")=1 then response.Write "<tr><td class='include1' align='center'><a href='AttendanceManageUserManage.asp' target='right' class='menu1'>考勤查询与统计</a></td></tr>" end if
response.Write "</table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table>"
End Sub
Sub HX_PublicAffair()
response.Write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=065485><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr><td height='10'></td></tr><tr valign='top'> <td><table width='90%' border='0' cellspacing='1' cellpadding='5' bgcolor='#065485' align='center'>"
if WS_S.MemberPriv("WS_PublicAffairsOfficeView")=1 then response.Write "<tr><td bgcolor='#344B6B'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> <font color='#FFFFFF'>办公用品</font></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsOfficeAdd")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='officeadd.asp'><font color='#FFFFFF'>>> 办公用品入库</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsOfficeEdit")=1 or WS_S.MemberPriv("WS_PublicAffairsOfficeDel")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='officelist.asp'><font color='#FFFFFF'>>> 办公用品列表</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsDocumentView")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 文档管理</font></td></tr><tr> <td bgcolor='#678DC0'> <a target='right' href='viewdocument.asp'><font color='#FFFFFF'>>> 查看文档 </font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsDocumentAdd")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='newcreatedocument.asp'><font color='#FFFFFF'>>> 新建文档</font> </a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsDocumentTypeMange")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='setdocument.asp'><font color='#FFFFFF'>>> 类别管理</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsDocumentView")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='searchdocument.asp'><font color='#FFFFFF'>>> 检索文档</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsBookView")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 图书管理</font><strong></a></strong></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='booksview.asp'><font color='#FFFFFF'>>> 查看图书</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsBookAdd")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='booksadd.asp'><font color='#FFFFFF'>>> 添加图书</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsBookManage")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='booksmanage.asp'><font color='#FFFFFF'>>> 管理图书</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsCarManage")=1 then response.Write " <tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 车辆管理</font><strong></a></strong></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsCarApply")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='carapply.asp'><font color='#FFFFFF'>>> 车辆申请</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsCarView")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='carlist.asp'><font color='#FFFFFF'>>> 查看车辆</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsCarModify")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='caradd.asp'><font color='#FFFFFF'>>> 添加车辆</font></a></td></tr>" end if
if WS_S.MemberPriv("WS_PublicAffairsCarModify")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='carmanage.asp'><font color='#FFFFFF'>>> 管理车辆</font></a></td></tr>" end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -