📄 hx_function.asp
字号:
<%
Class HX_WSOASMENU
Sub HXManage_left()
response.write "<body bgcolor=065485><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=""#FFFFFF"">个人办公</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=""#FFFFFF"">公文管理</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=""#FFFFFF"">公共事务</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=""#FFFFFF"">人力资源</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=""#FFFFFF"">企业社区</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=""#FFFFFF"">我要定餐</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=""#FFFFFF"">个人设置</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceOutEnrol.asp"" target=""right""><font color=""#FFFFFF"">外出登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceLeaveEnrol.asp"" target=""right""><font color=""#FFFFFF"">请假登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceEvectionEnrol.asp"" target=""right""><font color=""#FFFFFF"">出差登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceDutyEnrol.asp"" target=""right""><font color=""#FFFFFF"">上下班登记</font></a></td></tr></table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table></div>"
End Sub
Sub HXManage_Down()
response.Write "<body bgcolor=065485 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'> <tr style=""color:#FFFFFF;filter:dropshadow(color=#666666,offx=1,offy=1,positive=1); WIDTH: 100%;FONT-WEIGHT: bold;""><td width='146' align='center'><a href=""javascript:show_WEBSMS();"" style=""color:#FFFFFF;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='79' 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> </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>"
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='#065485'><img border='0' src='HXimages/HX_banner.gif' height='79'></td></tr></table></td></tr><tr><td width='100%' 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='f1f1f1'>"
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))
end if
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='#CCCCCC'><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img src='HXIMAGES/notify.gif' align='absmiddle'> <font color=FFFFFF>通知公告</font></td></tr>"
if Nrs.recordcount<=0 then
response.write "<tr><td background='hximages/line.gif' height='25'> 暂时还没有通知公告</td></tr>"
else
ii=1
do until Nrs.eof
response.Write "<tr><td background='hximages/line.gif' height='20'> "&ii&"、<a href='javascript:' title='"&Nrs("WS_NotifyTitle")&"' onClick=""openwin(630,490,'HXPersonalOffice/ReadNotify.asp?WS_NNID="&Nrs("WS_NNID")&"')"">"&left(Nrs("WS_NotifyTitle"),20)&"</a></td></tr>"
ii=ii+1
Nrs.movenext
loop
end if
response.Write "<tr><td height='20' align='right'><a href='HXPersonalOffice/Notify.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/erp.gif' align='absmiddle'> <font color=FFFFFF>待办公文</font></td></tr><tr> <td width='100%' align=center><table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor=ffffff><form method='post' action='HXWORKFLOW/WorkFlowWaitList.asp?action=del&page="&page&"' name='form1'><tr bgcolor='#A1BBE0' class='td4'><td width='20' align=center><input type='checkbox' name='checkall' value='checkbox' onClick='chkall(this)' class='radio' style='background-color:A1BBE0;'></td><td width='117' align='center'>办文编号</td><td width='114' align='center'>标 题</td><td width='63' align='center'>公文类别 </td><td width='117' align='center'>正 文 </td><td width='68' align='center'>拟办意见</td><td width='52' align='center'>保密级别</td><td width='35' align='center'>附件</td><td width='62' align='center'>收文日期</td><td width='48' align='center'>状态</td><td width='61' align='center'>发文人</td></tr>"
if Waitrs.recordcount<=0 then
response.Write "<tr><td colspan=11 background='hximages/line.gif' height=25 align=center>暂时还没有待办公文！</td></tr>"
else
do while not Waitrs.EOF
response.Write "<tr bgcolor='#ECF2F2' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ECF2F2'> <td width='28' align=center><input type='checkbox' name='MAID' value='"&Waitrs("WS_FCID")&"' class='radio' style='background-color:ECF2F2;'></td><td width='140'>"&Waitrs("WS_WorkFlowNumber")&"</td><td width='156'>"&Waitrs("WS_WorkFlowTitle")&"</td><td width='61' align=center>"&WS_S.HX_OutWorkFlowType(Waitrs("WS_WorkFlowFlowType"))&"</td><td width='145' title='"&Waitrs("WS_WorkFlowContent")&"'>"&left(Waitrs("WS_WorkFlowContent"),10)&"</td><td width='83' title='"&Waitrs("WS_WorkFlowBrief")&"'>"&left(Waitrs("WS_WorkFlowBrief"),10)&"</td><td width='61' align=center>"&Waitrs("WS_WorkFlowGrade")&"</td><td width='33' align=center>"
if Waitrs("WS_WorkFlowAnnex")<>"" then response.write "<a href='"&Waitrs("WS_WorkFlowAnnex")&"' target='_blank'><img src='../HXIMAGES/Message/sign.gif' border=0></a>"
response.Write "</td><td width='80' align=center>"&Waitrs("WS_WorkFlowDate")&"</td><td width='55' align=center>"
if Waitrs("WS_WorkFlowQT")=0 then response.Write "<font color=red>未签收</font>" else response.Write "<font color=blue title='签收日期："&Waitrs("WS_WorkFlowQTDate")&"'>已签收</font>"
response.write "</td><td width='67' align=center>"
Call WS_S.HX_OutUserInfo(Waitrs("WS_WorkFlowMan")):response.Write OutName
response.Write "</td></tr>"
Waitrs.movenext
loop
response.Write "<tr bgcolor='#A1BBE0' class='td4'><td colspan='15' height='30'> <input type='checkbox' name='checkall' value='checkbox' onClick='chkall(this)' id='checkall' class='radio' style='background-color:A1BBE0;'><label for='checkall'>全选</label> 将选中全部 <input name='del' type='submit' value='签收' style='font-size: 12px;color:#FFFFFF;border: 1px solid #000000;background-color: #A1BBE0; '> </tr>"
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -