📄 hx_function.asp
字号:
response.Write "</form></table></td></tr></table></td></tr></table></td><td width='3' valign='top'></td><td width='14%' valign='top'><table width='100%' cellspacing=1 cellpadding=0 bgcolor='#CCCCCC'><tr><td width='100%' height='24' bgcolor='BDD6F7' align=center><script>calenderout();</script></td></tr><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img src='HXIMAGES/Message/newmail.GIF'><font color=FFFFFF>内部邮件</font></td></tr>"
if mailrs.recordcount<=0 then
response.write "<tr><td background='hximages/line.gif' height='25'> 暂时还没有收到邮件</td></tr>"
else
ii=1
do until mailrs.eof
response.Write "<tr> <td background='hximages/line.gif' height='20'> "&ii&"、<a href='javascript:' title='"&mailrs("WS_MailObject")&"' onClick=""openwin(630,490,'HXPersonalOffice/Readmessage.asp?MAID="&mailrs("WS_MAID")&"')"">"&left(mailrs("WS_MailObject"),20)&"</a></td></tr>"
ii=ii+1
mailrs.movenext
loop
end if
response.Write "<tr> <td height='20' align='right'><a href='HXPersonalOffice/SendMessage.asp'><font color=red>撰写>></font></a> </td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/calendar.gif'><font color=FFFFFF>工作日程</font></td></tr><tr> <td width='100%' align=center><iframe src='HXDdesk/HX_yeardate.asp' width='160' height='160' frameborder='0'></iframe> </td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFFFF'> <table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/attendance.gif'> <font color=FFFFFF>外出人员公告牌</font></td></tr><tr> <td width='100%' align=center> <table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='A1BBE0'><tr bgcolor='F1f1f1'><td width='29%' height='24'>姓名</td><td width='38%'>外出时间</td><td width='33%'>归来时间</td></tr>"
if ours.recordcount<=0 then
response.Write "<tr><td bgcolor=ffffff colspan=3 align=center background='hximages/line.gif' height='25'> 暂时无人外出</td></tr>"
else
do until ours.eof
Call WS_S.HX_OutUserInfo(ours("WS_AttendanceOutEnrolReplyID"))
response.Write "<tr bgcolor='FFFFFF'> <td height='22'>"&OutName&"</td><td>"&ours("WS_AttendanceOutEnrolTime1")&"</td><td>"&ours("WS_AttendanceOutEnrolTime2")&"</td></tr>"
ours.movenext
loop
end if
response.Write "</table></td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFFFF'> <table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/bookmark.gif'><font color=FFFFFF>常用网址</font></td></tr>"
if urlrs.recordcount<=0 then
response.Write "<tr><td align=center background='hximages/line.gif' height='25'> 暂无常用网址</td></tr>"
else
ii=1
do until urlrs.eof
response.Write "<tr> <td background='hximages/line.gif' height='20'> "&ii&"、<a href='http://"&replace(urlrs("WS_WebSearchUrl"),"http://","")&"' target='_blank'>"&urlrs("WS_WebSearchName")&"</a></td></tr>"
ii=ii+1
urlrs.movenext
loop
end if
response.Write "<tr><td height='20' align='right'><a href='HXAnnexProgram/weburlsearch.asp'><font color=red>全部>></font></a> </td></tr></table></td></tr><tr><td width='100%' height='24' bgcolor='ffffff' align=center> <table width='100%' border='0' cellspacing='0' cellpadding='0'><form action='HXInfoChange/netvoteinfo.asp?action=sendvote' method='post'><input type='hidden' name='WS_QuestionID' value='"&WS_QuestionID&"'><input type='hidden' name='N_Question' value='"&N_Quest&"'><tr><td height='23' background='hximages\titlebg.gif'> <img src='hximages/vote.gif'><font color='#ffffff'>在线调查</font></td></tr> <tr><td bgcolor='#FFFFFF'>"&Content1&"</td></tr> <tr><td bgcolor='#FFFFFF'> <input type='submit' value=' 提 交 ' "
If PollNum = WS_QuestionID Then response.write "disabled"
response.Write "<input type='reset' name='Submit3' value=' 重 选 '></td></tr></form></table> </td></tr></table> </td></tr></table>"
End Sub
Sub HX_SaleManage()
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_SaleManageCustomInfo")=1 then
response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 客户关系</font></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomInfoManage")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='CustomInfoManage.asp'><font color='#FFFFFF'>>> 客户管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomContactManage")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='CustomContactManage.asp'><font color='#FFFFFF'>>> 联系人管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomConnectManage")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='CustomConnectManage.asp'><font color='#FFFFFF'>>> 交往信息管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomSearch")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='CustomSearch.asp'><font color='#FFFFFF'>>> 客户查询</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_SaleManageProduct")=1 then
response.Write "<tr><td bgcolor='#344B6B'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> <font color='#FFFFFF'>产品销售</font></td></tr>"
if WS_S.MemberPriv("WS_SaleManageProductManage")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='ProductManage.asp'><font color='#FFFFFF'>>> 产品管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageProductSearch")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='ProductSearch.asp'><font color='#FFFFFF'>>> 产品查询</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageProductSaleRecord")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='ProductSaleRecord.asp'><font color='#FFFFFF'>>> 销售纪录</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_SaleManageShopManage")=1 then
response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 供应商</font></td></tr>"
if WS_S.MemberPriv("WS_SaleManageSaleShopManage")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='SaleShopManage.asp'><font color='#FFFFFF'>>> 供应商管理 </font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageSaleShopSearch")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='SaleShopSearch.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_MemberPrivManage()
DeskMyarr=trim(request("01")):Officearr=trim(request("02")):PersonalOfficearr=trim(request("03")):SaleManagearr=trim(request("04")):Bargainarr=trim(request("05")):WorkFlowarr=trim(request("06")):Manpowerarr=trim(request("07")):InfoChangearr=trim(request("08")):AnnexProgramarr=trim(request("09")):SystemSetarr=trim(request("10"))
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=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>"
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=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>"
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>"
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>"
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>"
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>"
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>"
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>"
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>"
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>"
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>"
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>"
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
if WS_S.MemberPriv("WS_PublicAffairsMeetingManage")=1 then
response.Write " <tr><td bgcolor='#344B6B'><font color='#FFFFFF'><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='#678DC0'> <a target='right' href='meetingapply.asp'><font color='#FFFFFF'>>> 会议室申请</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsMeetingView")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='meetinglist.asp'><font color='#FFFFFF'>>> 查看会议室</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsMeetingModify")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='meetingadd.asp'><font color='#FFFFFF'>>> 添加会议室</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsMeetingModify")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='meetingmanage.asp'><font color='#FFFFFF'>>> 管理会议室</font></a></td></tr>"
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -