hx_function.asp

一个比较完整的oa系统

			rs("WS_talkman")=WS_s.HX_Replace(request.form("WS_talkman"))
			rs("WS_okman")=WS_s.HX_Replace(request.form("WS_okman"))
			rs("WS_height")=WS_s.HX_Replace(request.form("WS_height"))
			rs("WS_weight")=WS_s.HX_Replace(request.form("WS_weight"))
			rs("WS_zcnumber")=WS_s.HX_Replace(request.form("WS_zcnumber"))
			rs("WS_zippo")=WS_s.HX_Replace(request.form("WS_zippo"))
			rs("WS_jcry")=WS_s.HX_Replace(request.form("WS_jcry"))
			rs("WS_jjlxr")=WS_s.HX_Replace(request.form("WS_jjlxr"))
			rs("WS_selfgx")=WS_s.HX_Replace(request.form("WS_selfgx"))
			rs("WS_phone1")=WS_s.HX_Replace(request.form("WS_phone1"))
			rs("WS_mobile1")=WS_s.HX_Replace(request.form("WS_mobile1"))
			rs("WS_xphone1")=WS_s.HX_Replace(request.form("WS_xphone1"))
			rs("WS_xphone2")=WS_s.HX_Replace(request.form("WS_xphone2"))
			rs("WS_time1")=WS_s.HX_Replace(request.form("WS_time1"))
			rs("WS_time2")=WS_s.HX_Replace(request.form("WS_time2"))
			rs("WS_time3")=WS_s.HX_Replace(request.form("WS_time3"))
			rs("WS_time4")=WS_s.HX_Replace(request.form("WS_time4"))
			rs("WS_time5")=WS_s.HX_Replace(request.form("WS_time5"))
			rs("WS_time6")=WS_s.HX_Replace(request.form("WS_time6"))
			rs("WS_time7")=WS_s.HX_Replace(request.form("WS_time7"))
			rs("WS_time8")=WS_s.HX_Replace(request.form("WS_time8"))
			rs("WS_collegename1")=WS_s.HX_Replace(request.form("WS_collegename1"))
			rs("WS_collegename2")=WS_s.HX_Replace(request.form("WS_collegename2"))
			rs("WS_collegename3")=WS_s.HX_Replace(request.form("WS_collegename3"))
			rs("WS_collegename4")=WS_s.HX_Replace(request.form("WS_collegename4"))
			rs("WS_collegename5")=WS_s.HX_Replace(request.form("WS_collegename5"))
			rs("WS_collegename6")=WS_s.HX_Replace(request.form("WS_collegename6"))
			rs("WS_collegename7")=WS_s.HX_Replace(request.form("WS_collegename7"))
			rs("WS_collegename8")=WS_s.HX_Replace(request.form("WS_collegename8"))
			rs("WS_spname1")=WS_s.HX_Replace(request.form("WS_spname1"))
			rs("WS_spname2")=WS_s.HX_Replace(request.form("WS_spname2"))
			rs("WS_spname3")=WS_s.HX_Replace(request.form("WS_spname3"))
			rs("WS_spname4")=WS_s.HX_Replace(request.form("WS_spname4"))
			rs("WS_spname5")=WS_s.HX_Replace(request.form("WS_spname5"))
			rs("WS_spname6")=WS_s.HX_Replace(request.form("WS_spname6"))
			rs("WS_spname7")=WS_s.HX_Replace(request.form("WS_spname7"))
			rs("WS_spname8")=WS_s.HX_Replace(request.form("WS_spname8"))
			rs("WS_xw1")=WS_s.HX_Replace(request.form("WS_xw1"))
			rs("WS_xw2")=WS_s.HX_Replace(request.form("WS_xw2"))
			rs("WS_xw3")=WS_s.HX_Replace(request.form("WS_xw3"))
			rs("WS_xw4")=WS_s.HX_Replace(request.form("WS_xw4"))
			rs("WS_xw5")=WS_s.HX_Replace(request.form("WS_xw5"))
			rs("WS_xw6")=WS_s.HX_Replace(request.form("WS_xw6"))
			rs("WS_xw7")=WS_s.HX_Replace(request.form("WS_xw7"))
			rs("WS_xw8")=WS_s.HX_Replace(request.form("WS_xw8"))
			rs("WS_worktime3")=WS_s.HX_Replace(request.form("WS_worktime3"))
			rs("WS_worktime4")=WS_s.HX_Replace(request.form("WS_worktime4"))
			rs("WS_worktime5")=WS_s.HX_Replace(request.form("WS_worktime5"))
			rs("WS_workdept3")=WS_s.HX_Replace(request.form("WS_workdept3"))
			rs("WS_workdept4")=WS_s.HX_Replace(request.form("WS_workdept4"))
			rs("WS_workdept5")=WS_s.HX_Replace(request.form("WS_workdept5"))
			rs("WS_workduty3")=WS_s.HX_Replace(request.form("WS_workduty3"))
			rs("WS_workduty4")=WS_s.HX_Replace(request.form("WS_workduty4"))
			rs("WS_workduty5")=WS_s.HX_Replace(request.form("WS_workduty5"))
			rs("WS_workman3")=WS_s.HX_Replace(request.form("WS_workman3"))
			rs("WS_workman4")=WS_s.HX_Replace(request.form("WS_workman4"))
			rs("WS_workman5")=WS_s.HX_Replace(request.form("WS_workman5"))
			rs("WS_sallary1")=WS_s.HX_Replace(request.form("WS_sallary1"))
			rs("WS_sallary2")=WS_s.HX_Replace(request.form("WS_sallary2"))
			rs("WS_sallary3")=WS_s.HX_Replace(request.form("WS_sallary3"))
			rs("WS_sallary4")=WS_s.HX_Replace(request.form("WS_sallary4"))
			rs("WS_sallary5")=WS_s.HX_Replace(request.form("WS_sallary5"))
			rs("WS_workname3")=WS_s.HX_Replace(request.form("WS_workname3"))
			rs("WS_workname4")=WS_s.HX_Replace(request.form("WS_workname4"))
			rs("WS_workname5")=WS_s.HX_Replace(request.form("WS_workname5"))
			rs.update
	 End Sub
     Sub HX_WageWSOASCOM()
	      rs("WS_dotime")=request("yy")&"-"&request("mm")&"-"&"15"
          rs("WS_wage")=request("WS_wage")
          rs("WS_pay")=request("WS_pay")
          if request("WS_house")<>"" then rs("WS_house")=request("WS_house")
          if request("WS_lunch")<>"" then rs("WS_lunch")=request("WS_lunch")
          if request("WS_outpay")<>"" then rs("WS_outpay")=request("WS_outpay")
          if request("WS_bonus")<>"" then rs("WS_bonus")=request("WS_bonus")
          if request("WS_card")<>"" then  rs("WS_card")=request("WS_card")
          if request("WS_ratal")<>"" then  rs("WS_ratal")=request("WS_ratal")
          if request("WS_safe")<>"" then rs("WS_safe")=request("WS_safe")
          if request("WS_other")<>"" then  rs("WS_other")=request("WS_other")
          if request("WS_brief")<>"" then  rs("WS_brief")=request("WS_brief")
          if request("WS_lastmoney")<>"" then rs("WS_lastmoney")=request("WS_lastmoney")
          rs("WS_givetime")=request("yy")&"-"&request("bmm")&"-"&request("bdd")
          rs("WS_Uid")=request("WS_Uid")
         rs.update 
     End Sub
	 Sub HX_Webmsms()
	 response.Write "<SCRIPT LANGUAGE=javascript>parent.onlinecount.innerHTML=' "&WS_S.HX_OutOnline(0)&" ';</SCRIPT>"
     set rs=WS_S.HX_SetRSD("WS_sendnmb,WS_SMSstype","HX_WebSMS"," where WS_recvnmb="&loginuid&" and WS_Ifread=1")
     if rs.recordcount>0 then  session("sendnmb")=rs("WS_Sendnmb"):response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='../HXIMAGES/Websms/sound/mail.wav';parent.comesms.src='../HXIMAGES/Websms/comesms.gif';show('"&rs("WS_sendnmb")&"');</SCRIPT>")   else  response.Write("<SCRIPT LANGUAGE=javascript>parent.comesms.src='../HXIMAGES/Websms/websms.gif';</SCRIPT>")  end if
	 End Sub
	 Sub HX_Webmsm()	 
	    set rs=WS_S.HX_SetRSD("WS_sendnmb,WS_SMSstype","HX_WebSMS"," where WS_recvnmb="&loginuid&" and WS_Ifread=1")
        if rs.recordcount>0 then session("sendnmb")=rs("WS_Sendnmb"):response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='../HXIMAGES/Websms/sound/mail.wav';parent.WSOA"&session("sendnmb")&".src='../HXIMAGES/Websms/4-1.gif';</SCRIPT>")   else   response.Write("<SCRIPT LANGUAGE=javascript>parent.WSOA"&session("sendnmb")&".src='../HXIMAGES/Websms/userface.gif';</SCRIPT>")  end if
        WS_S.HX_RSClose rs			 
	 End Sub
	 Sub HX_WebsmsList()
	    response.write "<html><head><NOSCRIPT><IFRAME SRC=""*.html""></IFRAME></NOSCRIPT><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><script language=""JavaScript"" src=""../HXINCLUDE/HX_menu.js"" type=""text/JavaScript""></script><link href=""../hxinclude/HX_websms.css"" rel=""stylesheet"" type=""text/css""></head><body oncontextmenu='return false' ondragstart='return false' onselectstart='return false' onkeydown='if((event.ctrlKey)||(event.keyCode==8)||(event.keyCode==116)){event.keyCode=0;return false}'><bgsound src="""" id=""psound"" name=""psound"" loop=1><bgsound id=""psd"" name=""psd"" src="""" loop=""1""><table width=""88"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#848284"" class=""iframe""><tr><td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""butup""  onMouseDown=""this.className='tddown1'"" onMouseUp=""this.className='butup'"" onMouseOver=""this.className='but1'"" onMouseOut=""this.className='butup'""><tr><td align=""center"" onclick=""return change(1)"" onMouseDown=""this.className='tddown2'"" onMouseUp=""this.className='';psound.src='../HXIMAGES/Websms/sound/01.wav'"" onMouseOver=""this.className='but2'"" onMouseOut=""this.className=''"">在线人员</td></tr></table></td></tr><tr><td height=""300"" align=""center"" valign=""top"" bgcolor=""#8080C0"" id=""a1"" style=""DISPLAY: block""><table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr><td width=""89%"" rowspan=""3"" align=""right""><div id=""div1"" style=""overflow: hidden;height: 300px;width:85px;"">"
WS_S.HX_OutOnline(1)
       response.write "</div></td><td><img src=""../HXIMAGES/Websms/scroll1.gif"" width=""16"" hei