📄 hx_function.bak.asp
字号:
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
rs.update:WS_S.HX_Redirect "MemberPrivManage.asp?MPID="&MPID
End Sub
Sub HX_ManpowerResource()
response.Write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25><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>"
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>"
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>"
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>"
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>"
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=613c25><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='#613c25' align='center'>"
if WS_S.MemberPriv("WS_PublicAffairsOfficeView")=1 then
response.Write "<tr><td bgcolor='#4d2811'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> <font color='#FFFBE8'>办公用品</font></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsOfficeAdd")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='officeadd.asp'><font color='#FFFBE8'>>> 办公用品入库</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsOfficeEdit")=1 or WS_S.MemberPriv("WS_PublicAffairsOfficeDel")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='officelist.asp'><font color='#FFFBE8'>>> 办公用品列表</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_PublicAffairsDocumentView")=1 then
response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 文档管理</font></td></tr><tr> <td bgcolor='#7a553e'> <a target='right' href='viewdocument.asp'><font color='#FFFBE8'>>> 查看文档 </font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsDocumentAdd")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='newcreatedocument.asp'><font color='#FFFBE8'>>> 新建文档</font> </a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsDocumentTypeMange")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='setdocument.asp'><font color='#FFFBE8'>>> 类别管理</font></a></td></tr>"
response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='searchdocument.asp'><font color='#FFFBE8'>>> 检索文档</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_PublicAffairsBookView")=1 then
response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 图书管理</font><strong></a></strong></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='booksview.asp'><font color='#FFFBE8'>>> 查看图书</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsBookAdd")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='booksadd.asp'><font color='#FFFBE8'>>> 添加图书</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsBookManage")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='booksmanage.asp'><font color='#FFFBE8'>>> 管理图书</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_PublicAffairsCarManage")=1 then
response.Write " <tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 车辆管理</font><strong></a></strong></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsCarApply")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='carapply.asp'><font color='#FFFBE8'>>> 车辆申请</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsCarView")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='carlist.asp'><font color='#FFFBE8'>>> 查看车辆</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsCarModify")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='caradd.asp'><font color='#FFFBE8'>>> 添加车辆</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsCarModify")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='carmanage.asp'><font color='#FFFBE8'>>> 管理车辆</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_PublicAffairsMeetingManage")=1 then
response.Write " <tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 会议室管理</font><strong></a></strong></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsMeetingApply")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='meetingapply.asp'><font color='#FFFBE8'>>> 会议室申请</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsMeetingView")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='meetinglist.asp'><font color='#FFFBE8'>>> 查看会议室</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsMeetingModify")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='meetingadd.asp'><font color='#FFFBE8'>>> 添加会议室</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsMeetingModify")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='meetingmanage.asp'><font color='#FFFBE8'>>> 管理会议室</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_PublicAffairsPropertyManage")=1 then
response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 资产管理</font><strong></a></strong></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsPropertyView")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='propertylist.asp'><font color='#FFFBE8'>>> 资产清单</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsPropertyModify")=1 then response.Write " <tr><td bgcolor='#7a553e'> <a target='right' href='propertyadd.asp'><font color='#FFFBE8'>>> 资产登记</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsPropertyModify")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='propertymanage.asp'><font color='#FFFBE8'>>> 资产管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsPropertySearch")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='searchproperty.asp'><font color='#FFFBE8'>>> 资产查询</font></a></td></tr>"
end if
response.Write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
End Sub
Sub HX_PersonalOffice()
response.write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25><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='#613c25' align='center'>"
if WS_S.MemberPriv("WS_PersonalOfficeMessage")=1 then response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 内部邮件</font></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='SendMessage.asp'><font color='#FFFBE8'>>> 发邮件</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='MyListSave.asp'><font color='#FFFBE8'>>> 草稿箱</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='MyMessage.asp'><font color='#FFFBE8'>>> 收件箱</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='MySendedMessage.asp'><font color='#FFFBE8'>>> 发件箱</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='MyDelMessage.asp'><font color='#FFFBE8'>>> 垃圾箱</font></a></td></tr>"
if WS_S.MemberPriv("WS_PersonalOfficeInternetEmail")=1 then response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 外部邮件</font><strong></a></strong></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='setinternetemail.asp'><font color='#FFFBE8'>>> 创建账号</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='internetinbox.asp'><font color='#FFFBE8'>>> 收 件 箱</font></a></td></tr>"
if WS_S.MemberPriv("WS_PersonalOfficeSchEdule")=1 then response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 日程安排</font></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='SchEduleWait.asp'><font color='#FFFBE8'>>> 待办事宜 </font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='SchEduleNewCreate.asp'><font color='#FFFBE8'>>> 新建日程</font> </a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='SchEduleEverymonth.asp'><font color='#FFFBE8'>>> 按月查看</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='SchEduleEveryweek.asp'><font color='#FFFBE8'>>> 按周查看</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='SchEduleSearch.asp'><font color='#FFFBE8'>>> 日程检索</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='SchEduleSetSort.asp'><font color='#FFFBE8'>>> 日程设置</font></a></td></tr>"
if WS_S.MemberPriv("WS_PersonalOfficePDA")=1 then response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 通 迅 录</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='PersonalListPDA.asp'><font color='#FFFBE8'>>> 个人通迅录</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='CompanyListPDA.asp'><font color='#FFFBE8'>>> 企业通迅录</font></a></td></tr><tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 我的文档</font><strong></a></strong></td></tr>"
if WS_S.MemberPriv("WS_PersonalOfficeDocument")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='newcreatedocument.asp'><font color='#FFFBE8'>>> 新建文档</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='documentshow.asp'><font color='#FFFBE8'>>> 查看文档</font></a></td></tr><tr><td bgcolor='#7a553e'> <a target='right' href='searchdocument.asp'><font color='#FFFBE8'>>> 检索文档</font></a></td></tr>"
response.write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
End Sub
Sub HX_Bargain()
response.write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25><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_Bargaintype")=1 then response.Write "<tr><td width='100%' align='center' class='include1'><a href='bargaintype.asp' target='right' class='menu1'>类别管理</a></td></tr>"
if WS_S.MemberPriv("WS_BargainAdd")=1 then response.Write "<tr><td class='include1' align='center'><a href='addbargain.asp' target='right' class='menu1'>合同录入</a></td></tr>"
if WS_S.MemberPriv("WS_Bargainmanage")=1 then response.Write "<tr><td class='include1' align='center'><a href='bargainmanage.asp' target='right' class='menu1'>合同管理</a></td></tr>"
response.Write "</table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table>"
End Sub
Sub HX_BargainType()
if WS_S.MemberPriv("WS_Bargaintype")<>1 then HX_GoBack "对不起!您的权限不够!",""
ColumnName="":Tablename="HX_bargaintype":action=request("action"):WS_Tid=request("WS_Tid")
if WS_Tid<>"" and isnumeric(WS_Tid) then Orderby=" where WS_Tid="&WS_Tid else Orderby=" ORDER BY WS_OrderBy ASC" end if
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
WS_bargaintypename=WS_S.HX_Replace(request.form("WS_bargaintypename")):WS_OrderBy=WS_S.HX_Replace(request.form("WS_OrderBy"))
if WS_OrderBy="" then WS_OrderBy=1
select case action
case "addsaveinfo"
WS_S.HX_Isnull "类别名称不能为空",WS_bargaintypename
set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_bargaintypename='"&WS_bargaintypename&"'")
If SERS.recordcount>0 then
HX_GoBack "添加失败:\n此类别已存在!",""
End If
Call WS_S.HX_RSClose(SERS)
msg="“"&WS_bargaintypename&"”类别添加成功!"
rs.addnew
rs("WS_bargaintypename")=WS_bargaintypename
rs("WS_OrderBy")=WS_OrderBy
rs.update
Call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
HX_GoBack msg,"bargaintype.asp"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -