myfunc.asp

功能齐全的oa系统

<%
Sub MsgBox(str,stype,url)
	response.write "<script language=javascript>"
	response.write "alert('"&str&"');"
	select case stype
		case "Back"
			response.write "history.go(-1);"
		case "GoUrl"
			response.write "window.location='"&url&"'"
		case "Close"
			response.write "window.close()"
	end select
	response.write "</script>"
End Sub

' 添加日志纪录

Sub AddLog(FirstMenu,SecondMenu,Opertion,OTime,OName,OIP,ODesc,OChang,ObjDB)
	     dim rs_log,sql_log
	    Set rs_log = Server.CreateObject("ADODB.Recordset")
         sql_log="select * from T_Hrms_Viewlog"

          rs_log.open sql_log,ObjDB,1,3
		  
          rs_log.addnew
		  rs_log("FirstMenuID")=left(FirstMenu,10)
          rs_log("SecondMenuID")=left(SecondMenu,10)
          rs_log("Operation")=left(Opertion,10)
          rs_log("OpeTime")=OTime
          rs_log("OpePeople")=Session("AccountID") 

		  rs_log("OpeIP")=left(OIP,20)
          rs_log("OpeDesc")=left(ODesc,200)
          rs_log("ChangeString")=OChang
          rs_log.update
          rs_log.close
		 
End Sub


Function FormatDate(D)
	FormatDate = Year(D) & "-" & Month(D) & "-" & Day(D)
End Function
Function FormatDateS(D)
	FormatDateS = Month(D) & "." & Day(D)
End Function

Function FormatDateM(D)
      IF Month(D)<10 THEN
	     if  day(d)<10 then
		 	FormatDateM = Year(D) & "-0" & Month(D) & "-0" & Day(D)
          else
		   	FormatDateM = Year(D) & "-0" & Month(D) & "-" & Day(D)
		 end if
	ELSE
	           if  day(d)<10 then
		 	FormatDateM = Year(D) & "-" & Month(D) & "-0" & Day(D)
          else
		   	FormatDateM = Year(D) & "-" & Month(D) & "-" & Day(D)
		 end if
		
		END IF

End Function

%>