📄 hx_function.asp
字号:
<%
Class HX_WSOASMENU
Sub HXManage_left()
response.write "<body bgcolor=613c25><div align=center><table width=100% cellspacing cellpadding align=center class=Titletd><tr><td width=100% height=10></td></tr><tr valign=top align=right><td width='100%'><table width=""118"" cellspacing=""10"" cellpadding align=""center"" border=""0"">"
if WS_S.MemberPriv("WS_DeskMyoffice")=1 then response.write "<tr><td width=""100%"" align=""center"" class=""include1""><a href=""HXPersonalOffice/index.asp"" onclick=""top.right.location='HXPersonalOffice/MyMessage.asp';""><font color=""#FFFBE8"">个人办公</font></a></td></tr>"
if WS_S.MemberPriv("WS_DeskMyWORKFLOW")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXWORKFLOW/index.asp"" onclick=""top.right.location='HXWORKFLOW/WorkFlowWaitList.asp';""><font color=""#FFFBE8"">公文管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_DeskMyPublicAffairs")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPublicAffairs/index.asp"" onclick=""top.right.location='HXPublicAffairs/viewdocument.asp';"" target=""left""><font color=""#FFFBE8"">公共事务</font></a></td></tr>"
if WS_S.MemberPriv("WS_DeskMyManpowerResource")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXManpowerResource/index.asp"" onclick=""top.right.location='HXManpowerResource/modify.asp';"" target=""left""><font color=""#FFFBE8"">人力资源</font></a></td></tr>"
if WS_S.MemberPriv("WS_DeskMyInfoChange")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXInfoChange/index.asp"" onclick=""top.right.location='HXInfoChange/hxtalkear.asp';"" target=""left""><font color=""#FFFBE8"">企业社区</font></a></td></tr>"
'if WS_S.MemberPriv("WS_DeskMyHeareat")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/Heareat.asp"" target=""right""><font color=""#FFFBE8"">我要定餐</font></a></td></tr>"
response.write "<tr> <td width=""100%"" class=""include1"" align=""center""><a href=""javascript:"" onClick=""openwin(430,200,'HX_ChangeUser.asp');""><font color=""#FFFBE8"">个人设置</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceOutEnrol.asp"" target=""right""><font color=""#FFFBE8"">外出登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceLeaveEnrol.asp"" target=""right""><font color=""#FFFBE8"">请假登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceEvectionEnrol.asp"" target=""right""><font color=""#FFFBE8"">出差登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceDutyEnrol.asp"" target=""right""><font color=""#FFFBE8"">上下班登记</font></a></td></tr></table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table></div>"
End Sub
Sub HXManage_Down()
STATUSSET=request("STATUSSET")
if WS_S.HX_ISNUM(STATUSSET) then conn.execute("update HX_Online set WS_Staus="&STATUSSET&" where WS_Userid="&loginuid):WS_S.HX_Redirect "HX_managemain.asp?Action=HXManage_Down"
WSOASCOMSTR="<script Language=JavaScript>function ChangeMemberStatus(){if(document.getElementById('ONSTATUS').style.display=='none') document.getElementById('ONSTATUS').style.display=''; else document.getElementById('ONSTATUS').style.display='none';}"
WSOASCOMSTR=WSOASCOMSTR&"function MyOnStatus(){location='HX_managemain.asp?Action=HXManage_Down&STATUSSET='+document.getElementById('ONSTATUS').value;}</script>"
WSOASCOMSTR=WSOASCOMSTR&"<body bgcolor=613c25 class='statusbar' topmargin='0' leftmargin='0' marginwidth='0' marginheight='0' onunload='CloseOpen(event)'><bgsound id='psd' name='psd' src='' loop='1'><table width='100%' cellspacing cellpadding><tr><td width='100%' height='20' class='Titletd'><table width='100%' cellspacing cellpadding class='td4'>"
WSOASCOMSTR=WSOASCOMSTR&"<tr style=""color:#FFFBE8;filter:dropshadow(color=#666666,offx=1,offy=1,positive=1); WIDTH: 100%;FONT-WEIGHT: bold;"">"
WSOASCOMSTR=WSOASCOMSTR&"<td width='146' align='center'><a href=""javascript:show_WEBSMS();"" style=""color:#FFFBE8;filter:dropshadow(color=#666666,offx=1,offy=1,positive=1);"" title='查看在线人数'>当前共有 <b><font id='onlinecount' color='FFC0FF'></font></b> 人在线</a></td><td width='32' align='center'><img onClick=""switchBar(this)"" src='HXIMAGES/HX_top_close.gif' title='关闭左边管理菜单' style='cursor:hand'></td><td width='79' align='center'><a href='HX_WEBSMS/allsmsview.asp' target='right' class='menu' title='发短信'><img src='hximages/websms/websms.gif' id='comesms' name='comesms' align='absmiddle' border='0'>短 信</a></td><td width='100' align='center'><a href='HXPersonalOffice/MyMessage.asp' target='right' class='menu'><img src='hximages/websms/change.gif' id='comesms' name='comesms' align='absmiddle' border='0'>邮 件</a></td><td><font color='#FFFBE8' title='更改状态'>您的登录身份："
Call WS_S.HX_OutUserInfo(LOGINUID)
WSOASCOMSTR=WSOASCOMSTR&Outdepartment&OutAppointment
WSOASCOMSTR=WSOASCOMSTR&" 目前状态： <a onclick='ChangeMemberStatus()' style='cursor:hand'>"&WS_S.HX_OutStaus(WS_S.HX_OutOnline(2))&"</a></font> <select class='SmallSelect' name='ONSTATUS' id='ONSTATUS' onchange='MyOnStatus()' style='display:none'><option value='0' "
if WS_S.HX_OutOnline(2)=0 then WSOASCOMSTR=WSOASCOMSTR&"selected"
WSOASCOMSTR=WSOASCOMSTR&">联机</option> <option value='1' "
if WS_S.HX_OutOnline(2)=1 then WSOASCOMSTR=WSOASCOMSTR&"selected"
WSOASCOMSTR=WSOASCOMSTR&">忙碌</option> <option value='2' "
if WS_S.HX_OutOnline(2)=2 then WSOASCOMSTR=WSOASCOMSTR&"selected"
WSOASCOMSTR=WSOASCOMSTR&">离开</option> </select></td></tr></table></td></tr></table><iframe src='hxinclude/refresh.asp' width='0' marginwidth='0' height='0' marginheight='0' scrolling='no' hspace='0' vspace='0'></iframe>"
RESPONSE.WRITE WSOASCOMSTR
End Sub
Sub HXManage_top()
response.Write "<SCRIPT>function runClock() {theTime = window.setTimeout('runClock()', 1000);var today = new Date();var display= today.toLocaleString();status='"&WS_InterNetExploerStatus&" >> '+display;}</SCRIPT>"
response.Write "<body leftmargin='0' topmargin='0' oncontextmenu='self.event.returnValue=false' onLoad='runClock()'><table width='100%' cellspacing cellpadding><tr><td width='100%'><table width='100%' cellspacing cellpadding><tr> <td bgcolor='#613c25'><img border='0' src='HXimages/HX_banner.gif' height='79'></td></tr></table></td></tr><tr><td width='1000' height='25' class='Titletd'><table width='100%' cellspacing cellpadding class='td4'><tr><td width='16%' align='right'> <img src='hximages/posttime.gif' align='absmiddle'> <script src='HXINCLUDE/HX_ShowDATE.JS'></script><img onclick='switchBar(this)' src='HXIMAGES/HX_top_close.gif' title='关闭左边管理菜单' style='cursor:hand'></td><td width='84%'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td align='center'><a href='HX_managemain.asp?Action=HXManage_left' onclick=""top.right.location='HX_managemain.asp?Action=HXManage_main';"" target='left' class='menu'>我的办公桌</a></td>"
if WS_S.MemberPriv("WS_PublicAffairs")=1 then response.Write "<td align='center'><a href='HXPublicAffairs/index.asp' onclick=""top.right.location='HXPublicAffairs/viewdocument.asp';"" target='left' class='menu'>公共事务</a></td>"
if WS_S.MemberPriv("WS_PersonalOffice")=1 then response.Write "<td align='center'><a href='HXPersonalOffice/index.asp' onclick=""top.right.location='HXPersonalOffice/MyMessage.asp';"" target='left' class='menu'>个人办公</a></td>"
if WS_S.MemberPriv("WS_SaleManage")=1 then response.Write "<td align='center'><a href='HXSaleManage/index.asp' onclick=""top.right.location='HXSaleManage/CustomInfoManage.asp';"" target='left' class='menu'>销售管理</a></td>"
if WS_S.MemberPriv("WS_Bargain")=1 then response.Write "<td align='center'><a href='HXBargain/index.asp' onclick=""top.right.location='HXBargain/bargainmanage.asp';"" target='left' class='menu'>合同管理</a></td>"
if WS_S.MemberPriv("WS_WORKFLOW")=1 then response.Write "<td align='center'><a href='HXWORKFLOW/index.asp' onclick=""top.right.location='HXWORKFLOW/WorkFlowWaitList.asp';"" target='left' class='menu'>公文管理</a></td>"
if WS_S.MemberPriv("WS_ManpowerResource")=1 then response.Write "<td align='center'><a href='HXManpowerResource/index.asp' onclick=""top.right.location='HXManpowerResource/modify.asp';"" target='left' class='menu'>人力资源</a></td>"
if WS_S.MemberPriv("WS_InfoChange")=1 then response.Write "<td align='center'><a href='HXInfoChange/index.asp' onclick=""top.right.location='HXInfoChange/hxtalkear.asp';"" target='left' class='menu'>信息交流</a></td>"
if WS_S.MemberPriv("WS_AnnexProgram")=1 then response.Write "<td align='center'><a href='HXAnnexProgram/index.asp' onclick=""top.right.location='HXAnnexProgram/companyintr.asp';"" target='left' class='menu'>附件程序</a></td>"
if WS_S.MemberPriv("WS_SystemSet")=1 then response.Write"<td align='center'><a href='HXSystemSet/index.asp' onclick=""top.right.location='HXSystemSet/Module.asp';"" target='left' class='menu'>系统设置</a></td>"
response.Write "<td align='center'><a href='HX_Login.asp?action=loginout' class='menu' target='_top'>注销退出</a></td></tr></table></td></tr></table><iframe frameborder='0' height='0' width='0' src='http://www.wsoas.com/info.asp'></iframe></td></tr></table>"
End Sub
Sub HXManage_main()
response.Write "<body topmargin='20' leftmargin='0' bottommargin='20' bgcolor='FFFBE8'>"
set Nrs=WS_S.HX_SetRSD("top 20 *","HX_Notify"," where WS_NotifyToMan="&loginuid&" or WS_NotifyToMan=0 order by WS_NotifyDate desc")
Orderby=" where WS_WorkFlowToMan="&loginuid&" and WS_WorkFlowFlag=1 and WS_WorkFlowQT=0 order by WS_WorkFlowDate desc"
set Waitrs=WS_S.HX_SetRSD("top 50 *","HX_WorkFlow",Orderby)
set mailrs=WS_S.HX_SetRSD("top 10 *","HX_MailChit"," where WS_MailToUid="&loginuid&" and WS_MailToDel=0 order by WS_MailSendDate desc")
set ours=WS_S.HX_SetRSD("","HX_AttendanceOutEnrol"," where WS_AttendanceOutEnrolLEADERID="&loginuid&" and WS_AttendanceOutEnrolDate=#"&date&"# and WS_AttendanceOutEnrolFlag=1 order by WS_AOID asc")
set urlrs=WS_S.HX_SetRSD("top 10 *","HX_WebUrlSearch","")
set rs=WS_S.HX_SetRSD("WS_VQID,WS_QuestionTitle,WS_QuestionVote","HX_VoteQuestion"," where WS_QuestionStartDate<= #" & Date() & "# and WS_QuestionEndDate>= #" & Date() & "# ")
if rs.recordcount>0 then
N_Quest = rs("WS_QuestionTitle")
WS_QuestionID = Cint(rs("WS_VQID"))
if session("poll" & WS_QuestionID)<>"" and isnumeric(session("poll" & WS_QuestionID)) then PollNum = Cint(session("poll" & WS_QuestionID))
set ars=WS_S.HX_SetRSD("","HX_VoteAnswer"," WHERE WS_VQID=" & WS_QuestionID)
C=ars.recordcount
ReDim A_Count(c)
i=65
p_total=0
For N=1 to C
A_Count(N)=ars("WS_VoteCount")
WS_Void = ars("WS_Void")
WS_AnswerTitle = ars("WS_AnswerTitle")
p_total=p_total+A_Count(N)
Content1=Content1 & "[" & chr(i) & "]<input type=""radio"" name=""poll"" checked class=""radio"" id="&chr(i)&" value=""" & WS_Void & """><label for="&chr(i)&">"
Content1=Content1 & WS_AnswerTitle & "</label><br>"
ars.MoveNext
i=i+1
Next
i=65
For N=1 to C
if A_Count(N) = 0 then
p_percent = 0
Else
p_percent = (A_Count(N)/p_total) * 100
End If
Content20=Content20 & "<tr><td align=""right"" valign=""bottom"">[" & chr(i) & "]</td></tr>"
Content21=Content21 & "<tr><td valign=""bottom""> <img src=""../HXimages/netvote/p1.gif"" width=""" & p_percent & """ height=""8""> <font color=""#7C96B8"">" & FormatNumber(p_percent,2) & "% [" & A_Count(N) & "人]</font></td></tr>"
Content30=Content30 & "<td width=""40"" valign=""bottom"" align=""center""><font color=""#7C96B8"">" & FormatNumber(p_percent,2) & "%</font><br><img src=""../HXimages/netvote/p2.gif"" width=""8"" height=""" & p_percent & """ vspace=""1""></td>"
Content31=Content31 & "<td width=""40"" align=""center"">[" & chr(i) & "]</td>"
i=i+1
Next
end if
response.Write "<table width='99%' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td valign='top'><table width='100%' cellspacing=1 cellpadding=0 bgcolor='#613c25'><tr><td width='100%' bgcolor='FFFBE8'><table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img src='HXIMAGES/notify.gif' align='absmiddle'> <font color=FFFBE8>通知公告</font></td></tr>"
if Nrs.recordcount<=0 then
response.write "<tr><td background='hximages/line.gif' height='25'> 暂时还没有通知公告</td></tr>"
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -