⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 hx_function.bak.asp

📁 精美OA网络办公系统,带PSD文件.可任意修改.
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<%
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='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='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"">&nbsp; <font color=""#7C96B8"">" & FormatNumber(p_percent,2) & "%&nbsp;[" & 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'>&nbsp;<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'>&nbsp;暂时还没有通知公告</td></tr>"
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -